[elpa] master aa5513d 1/7: excorporate-diary: Always use diary-fancy-display

[Thomas Fitzsimmons]

branch: master
commit aa5513d12ff37fff6e2ba70eca2defcabfa062cd
Author: Thomas Fitzsimmons <address@hidden>
Commit: Thomas Fitzsimmons <address@hidden>

    excorporate-diary: Always use diary-fancy-display
    
    * packages/excorporate/excorporate-diary.el
    (excorporate-diary-enable): Ensure diary-display-function is
    diary-fancy-display; warn and override if not.
---
 packages/excorporate/excorporate-diary.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/packages/excorporate/excorporate-diary.el 
b/packages/excorporate/excorporate-diary.el
index caaae20..e3435be 100644
--- a/packages/excorporate/excorporate-diary.el
+++ b/packages/excorporate/excorporate-diary.el
@@ -229,6 +229,12 @@ ARGUMENTS are the arguments to `diary-view-entries'."
              #'exco-diary-diary-view-entries-override)
   (add-hook 'diary-list-entries-hook #'diary-sort-entries)
   (add-hook 'diary-list-entries-hook #'diary-include-other-diary-files)
+  (unless (eq diary-display-function 'diary-fancy-display)
+    (warn (format
+          (concat "Excorporate diary support needs diary-fancy-display"
+                  " but diary-display-function is currently %S; overriding")
+          diary-display-function))
+    (customize-set-variable 'diary-display-function 'diary-fancy-display))
   (appt-activate 1)
   (message "Excorporate diary support enabled."))