From b474df9609155ffc3710cf766af5f3a9791b217e Mon Sep 17 00:00:00 2001 From: Bozhidar Batsov Date: Wed, 24 Jul 2013 16:13:32 +0300 Subject: [PATCH] Cleanup comment annotation highlighting a bit --- modules/prelude-programming.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/modules/prelude-programming.el b/modules/prelude-programming.el index 2e0638e..271fa9a 100644 --- a/modules/prelude-programming.el +++ b/modules/prelude-programming.el @@ -90,9 +90,12 @@ (defun prelude-local-comment-auto-fill () (set (make-local-variable 'comment-auto-fill-only-comments) t)) -(defun prelude-add-watchwords () +(defun prelude-add-comment-annotations () + "Highlight a bunch of well known comment annotations. + +This functions should be added to the hooks of major modes for programming." (font-lock-add-keywords - nil '(("\\<\\(FIX\\|TODO\\|FIXME\\|HACK\\|REFACTOR\\):" + nil '(("\\<\\(FIX\\(ME\\)?\\|TODO\\|OPTIMIZE\\|HACK\\|REFACTOR\\):" 1 font-lock-warning-face t)))) ;; show the name of the current function definition in the modeline @@ -119,7 +122,7 @@ (guru-mode +1)) (prelude-enable-whitespace) (prelude-local-comment-auto-fill) - (prelude-add-watchwords)) + (prelude-add-comment-annotations)) (setq prelude-prog-mode-hook 'prelude-prog-mode-defaults)