jt/emacs-prelude
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Cleanup comment annotation highlighting a bit

Browse source
This commit is contained in:
Bozhidar Batsov 2013-07-24 16:13:32 +03:00
parent 44851ad5d5
commit b474df9609
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
modules/prelude-programming.el
View file

@ -90,9 +90,12 @@
(defun prelude-local-comment-auto-fill () (defun prelude-local-comment-auto-fill ()
(set (make-local-variable 'comment-auto-fill-only-comments) t)) (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 (font-lock-add-keywords
nil '(("\\<\\(FIX\\|TODO\\|FIXME\\|HACK\\|REFACTOR\\):" nil '(("\\<\\(FIX\\(ME\\)?\\|TODO\\|OPTIMIZE\\|HACK\\|REFACTOR\\):"
1 font-lock-warning-face t)))) 1 font-lock-warning-face t))))
;; show the name of the current function definition in the modeline ;; show the name of the current function definition in the modeline
@ -119,7 +122,7 @@
(guru-mode +1)) (guru-mode +1))
(prelude-enable-whitespace) (prelude-enable-whitespace)
(prelude-local-comment-auto-fill) (prelude-local-comment-auto-fill)
(prelude-add-watchwords)) (prelude-add-comment-annotations))
(setq prelude-prog-mode-hook 'prelude-prog-mode-defaults) (setq prelude-prog-mode-hook 'prelude-prog-mode-defaults)