pop-up for fancy diary display

1 files changed, 18 insertions, 3 deletions

diff --git a/init.org b/init.org
index f79c581..4fbd7c5 100644
--- a/init.org
+++ b/init.org
@@ -728,7 +728,7 @@
       (add-hook 'diary-list-entries-hook 'diary-sort-entries t)
     #+END_SRC
 *** Calendar
-    #+BEGIN_SRC emacs-lisp
+    #+begin_src emacs-lisp
       (setq appt-display-format nil)
       (appt-activate 1)
       (setq calendar-latitude 55.9533
@@ -760,7 +760,21 @@
                                      (/ calendar-daylight-savings-ends-time
                                         (float 60))
                                      calendar-daylight-time-zone-name)))))
-    #+END_SRC
+
+      (add-to-list 'display-buffer-alist
+                   `(,(regexp-quote diary-fancy-buffer)
+                     (display-buffer-at-bottom)
+                     (window-parameters (mode-line-format . none))
+                     (window-height . fit-window-to-buffer)))
+
+      (defun jao-diary--select ()
+        (switch-to-buffer diary-fancy-buffer))
+
+      (add-hook 'diary-fancy-display-mode-hook #'jao-diary--select)
+      (setq org-calendar-insert-diary-entry-key nil
+            org-agenda-diary-file 'diary-file)
+
+    #+end_src
 *** Weather
 ***** winttr
       #+begin_src emacs-lisp
@@ -962,7 +976,8 @@
       (defun jao-define-attached-buffer (name-rx &optional height)
         (add-to-list 'display-buffer-alist
                      (jao-attached-buffer-entry name-rx height)))
-    #+end_src
+
+     #+end_src
 *** images
     #+begin_src emacs-lisp
       (setq image-use-external-converter t)