12555 JackaLX ;:*======================= ;:* Fancy Diary with perdy colours! (defvar fancy-diary-font-lock-keywords '(("^---\\s-\\(.*$\\)" (1 font-lock-function-name-face)) ("^.*SY:" . font-lock-keyword-face))) (define-derived-mode fancy-diary-display-mode fundamental-mode "Diary" "Minor mode for displaying Fancy Diary entries buffer." (set (make-local-variable 'font-lock-defaults) '(fancy-diary-font-lock-keywords t)) (font-lock-mode) (define-key (current-local-map) "o" 'other-window)) (defadvice fancy-diary-display (after set-mode activate) "Set the mode of the buffer *Fancy Diary Entries* to `fancy-diary-display-mode'." (save-excursion (set-buffer fancy-diary-buffer) (fancy-diary-display-mode))) 3338433979 #xemacs