summaryrefslogtreecommitdiffstats
path: root/conf
diff options
context:
space:
mode:
authorSebastien Delafond <seb@debian.org>2015-11-04 17:32:13 +0000
committerSebastien Delafond <seb@debian.org>2015-11-04 17:32:13 +0000
commit3f11ccc4157d61240cb1076d85ea5347500ed461 (patch)
tree6dca70b6beea8b903811684ed24fd91f90f4e66d /conf
parent58e295e0b49a463dcb5228df0faba4f76a16ce56 (diff)
[conf/cvelist.el] Tidying up a bit
* use defvars for font-lock patterns * use our mode's own keymap instead of global-set-key * add documentation strings git-svn-id: svn+ssh://svn.debian.org/svn/secure-testing@37565 e39458fd-73e7-0310-bf30-c45bca0a0e42
Diffstat (limited to 'conf')
-rw-r--r--conf/cvelist.el50
1 files changed, 28 insertions, 22 deletions
diff --git a/conf/cvelist.el b/conf/cvelist.el
index ccb0126c34..789c671b52 100644
--- a/conf/cvelist.el
+++ b/conf/cvelist.el
@@ -8,29 +8,35 @@
;; (setq auto-mode-alist
;; (cons '("list" . debian-cvelist-mode) auto-mode-alist))
+(defun debian-cvelist-insert-not-for-us ()
+ "Insert NOT-FOR-US keyword"
+ (interactive)
+ (insert "\tNOT-FOR-US: "))
-(setq debian-cvelist-highlights
- '(("^CVE-[0-9]\\{4\\}-[0-9X]\\{4\\}" . font-lock-function-name-face)
- ("^\tNOTE:" . font-lock-comment-delimiter-face)
- ("^\tTODO:" . font-lock-warning-face)
- ("^\t\\(RESERVED\\|NOT-FOR-US\\|REJECTED\\)" . font-lock-keyword-face)
- ("^CVE-[0-9]\\{4\\}-[0-9X]\\{4\\}" "\\[\\(.*\\)\\]$" nil nil (1 font-lock-variable-name-face))
- ("\\<unfixed\\|undetermined\\>" . font-lock-warning-face)
- ("\\<end-of-life\\|not-affected\\|no-dsa\\>" . font-lock-constant-face)
- ))
+(defun debian-cvelist-insert-note ()
+ "Insert NOTE comment"
+ (interactive)
+ (insert "\tNOTE: "))
-(global-set-key
- (kbd "C-c C-f")
- (lambda ()
- (interactive)
- (insert "\tNOT-FOR-US: ")))
+(defvar debian-cvelist-mode-map
+ (let ((map (make-sparse-keymap)))
+ (define-key map (kbd "C-c C-f") 'debian-cvelist-insert-not-for-us)
+ (define-key map (kbd "C-c C-n") 'debian-cvelist-insert-note)
+ map)
+ "Keymap for `debian-cvelist-mode'.")
-(global-set-key
- (kbd "C-c C-n")
- (lambda ()
- (interactive)
- (insert "\tNOTE: ")))
+(defvar debian-cvelist-font-lock-keywords
+ '(("^CVE-[0-9]\\{4\\}-[0-9X]\\{4\\}" . font-lock-function-name-face)
+ ("^\tNOTE:" . font-lock-comment-delimiter-face)
+ ("^\tTODO:" . font-lock-warning-face)
+ ("^\t\\(RESERVED\\|NOT-FOR-US\\|REJECTED\\)" . font-lock-keyword-face)
+ ("^CVE-[0-9]\\{4\\}-[0-9X]\\{4\\}" "\\[\\(.*\\)\\]$" nil nil (1 font-lock-variable-name-face))
+ ("\\<unfixed\\|undetermined\\>" . font-lock-warning-face)
+ ("\\<end-of-life\\|not-affected\\|no-dsa\\>" . font-lock-constant-face))
+ "Keyword highlighting for `debian-cvelist-mode'")
-(define-derived-mode debian-cvelist-mode fundamental-mode
- (setq font-lock-defaults '(debian-cvelist-highlights))
- (setq mode-name "debian cvelist"))
+(define-derived-mode debian-cvelist-mode fundamental-mode "debian-cvelist"
+ "A major mode for editing data/CVE/list in the Debian secure-testing repo."
+ (setq-local font-lock-defaults '(debian-cvelist-font-lock-keywords nil)))
+
+(provide 'debian-cvelist)

© 2014-2024 Faster IT GmbH | imprint | privacy policy