Added highlight for TODO, FIXME, tabs etc.
--- a/.emacs Thu Apr 17 23:58:12 2008 +0300
+++ b/.emacs Thu Apr 17 23:59:52 2008 +0300
@@ -189,6 +189,8 @@
(global-set-key [?\C-x right] 'next-buffer)
(global-set-key [?\C-x left] 'previous-buffer)
+(global-set-key (kbd "C-x C-d") 'dired)
+
(global-set-key (kbd "\e\eg") 'goto-line)
(global-set-key (kbd "\e\er") 'query-replace-regexp)
@@ -620,6 +622,31 @@
;; (setq show-trailing-whitespace t)))
;; ----------------------------------------------------------------------
+;; TODO, XXX, FIXME highlight.
+;; Show blanks and FIXME
+;; http://www.emacswiki.org/cgi-bin/wiki/EightyColumnRule
+
+(defface my-tab-face
+ '((((type graphical) (class color) (min-colors 216)) (:underline "#666"))
+ (((class color) (min-colors 216)) (:background "#666"))
+ (((class color) (min-colors 16)) (:background "yellow")))
+ "Face for showing TABs."
+ :group 'basic-faces)
+
+(defface my-todo-face
+ '((t :foreground "red" :weight bold))
+ "Font for showing TODO words."
+ :group 'basic-faces)
+
+(add-hook 'font-lock-mode-hook (function (lambda ()
+ (unless (or (eq 'diff-mode major-mode) (eq 'script-mode major-mode))
+ (font-lock-add-keywords nil
+ '(
+ ("\t+" 0 'my-tab-face t)
+ ("\\<\\(FIXME:?\\|XXX:?\\|TODO:?\\)\\>" 1 'my-todo-face t)
+ ))))))
+
+;; ----------------------------------------------------------------------
;; Diff, patch
;; (add-hook 'diff-mode-hook '(lambda ()
;; (setq show-trailing-whitespace t)) nil t)