Finally do something about the famous "midnight bug"

[syinit] / 12-cal-sy.el

diff --git a/12-cal-sy.el b/12-cal-sy.el
index 93a798c..fdfaa81 100644 (file)
--- a/12-cal-sy.el
+++ b/12-cal-sy.el
@@ -5,7 +5,7 @@
 ;;     Author: Steve Youngs <steve@sxemacs.org>
 ;; Maintainer: Steve Youngs <steve@sxemacs.org>
 ;;    Created: <2007-12-02>
-;; Time-stamp: <Friday Jun 29, 2012 16:25:18 steve>
+;; Time-stamp: <Sunday Jul  1, 2012 00:45:19 steve>
 ;;   Download: <http://bastard.steveyoungs.com/~steve/SXEmacs/inits/>
 ;;   HTMLised: <http://bastard.steveyoungs.com/~steve/SXEmacs/htmlinits/12-cal-sy.html>
 ;;   Git Repo: git clone http://git.sxemacs.org/syinit
@@ -145,15 +145,6 @@ for a fontified Diary buffer."
 
 (defvar fancy-diary-font-lock-keywords (fancy-diary-font-lock-keywords))
 
-(defun sy-update-diary-font-lock-keywords ()
-  (sit-for 1.1)
-  (setq fancy-diary-font-lock-keywords (fancy-diary-font-lock-keywords))
-  ;(with-current-buffer (get-buffer-create fancy-diary-buffer)
-  ;  (font-lock-fontify-buffer))
-  )
-
-(run-at-time "23:59:59" 86400 'sy-update-diary-font-lock-keywords)
-
 ;:*=======================
 ;:* Display ISO week numbers
 ;;
@@ -250,6 +241,11 @@ characters on the line."
             (include-other-diary-files)))
 (add-hook 'mark-diary-entries-hook #'mark-included-diary-files)
 (add-hook 'today-visible-calendar-hook #'calendar-mark-today)
+(add-hook 'calendar-move-hook #'(lambda () (diary-view-entries 1)))
+(add-hook 'calendar-mode-hook
+         #'(lambda ()
+             (setq fancy-diary-font-lock-keywords
+                   (fancy-diary-font-lock-keywords))))
 
 ;:*=======================
 ;:* Appointments