X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/0d4e1152a1c56dfa50bf2a581db83868ea7d6ff9..2fddf4aa7fdb5d69096b149ec9c48011e867ae60:/dot/emacs

diff --git a/dot/emacs b/dot/emacs
index 37e742d..6dbbbed 100644
--- a/dot/emacs
+++ b/dot/emacs
@@ -361,7 +361,12 @@
 ;;;--------------------------------------------------------------------------
 ;;; Calendar configuration.
 
-(setq diary-file "~/etc/state/diary")
+(setq diary-file
+      (let ((main-diary "~/etc/state/diary")
+	    (private-diary "~/etc/state.private/diary.private"))
+	(if (file-exists-p private-diary)
+	    private-diary
+	  main-diary)))
 
 ;; Trivial stuff for the sunrise/sunset calculations.
 
@@ -380,15 +385,19 @@
 ;; Date format fiddling.
 
 (setq european-calendar-style t
-      calendar-date-style 'european)
-
-(setq diary-date-forms '((day "[-/]" month "[^-/0-9]")
-			 (day " *" monthname "[ \t]*\\(\^M\\|\n\\)")
-			 (backup day " *" monthname "\\W+\\<[^*0-9]")
-			 (day "[-/]" month "[-/]" year "[^0-9]")
-			 (day " *" monthname " *" year "[^0-9]")
-			 (year "[-/]" month "[-/]" day "[^0-9]")
-			 (dayname "\\W")))
+      calendar-date-style 'european
+      calendar-time-display-form
+      '(24-hours ":" minutes
+	(if time-zone " (") time-zone (if time-zone ")")))
+
+(setq diary-date-forms
+      '((day "[-/]" month "[^-/0-9]")
+	(day " *" monthname "[ \t]*\\(\^M\\|\n\\)")
+	(backup day " *" monthname "\\W+\\<\\([^*0-9]\\|[0-9]+[:aApP]\\)")
+	(day "[-/]" month "[-/]" year "[^0-9]")
+	(day " *" monthname " *" year "[^0-9]")
+	(year "[-/]" month "[-/]" day "[^0-9]")
+	(dayname "\\W")))
 
 ;; Fancy diary handling.