;:*=======================
;:* 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)))