From cf59fd9a42f7896e2e91c2b1caf1a66bd8720f1a Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Fri, 13 Aug 2021 19:58:45 +0100
Subject: pop-up for fancy diary display
---
init.org | 21 ++++++++++++++++++---
1 file 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)
--
cgit v1.2.3