From 4132be420896fe075523fec08edaa5d79ad8ca70 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Wed, 30 Jan 2019 17:23:00 -0500 Subject: [PATCH] org-agenda-window-setup = popup-window This is a custom setting that allows org agenda windows to be managed by Doom's popup manager. --- modules/ui/popup/+hacks.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/modules/ui/popup/+hacks.el b/modules/ui/popup/+hacks.el index e5abd14cb..deebf9b06 100644 --- a/modules/ui/popup/+hacks.el +++ b/modules/ui/popup/+hacks.el @@ -266,14 +266,15 @@ instead of switch-to-buffer-*." (advice-add #'org-switch-to-buffer-other-window :around #'+popup*org-pop-to-buffer) ;; `org-agenda' - (setq org-agenda-window-setup 'other-window + (setq org-agenda-window-setup 'popup-window org-agenda-restore-windows-after-quit nil) - ;; Don't monopolize frame! + ;; Don't monopolize the frame! (defun +popup*org-agenda-suppress-delete-other-windows (orig-fn &rest args) (cond ((not +popup-mode) (apply orig-fn args)) ((eq org-agenda-window-setup 'popup-window) - (let (org-agenda-restore-windows-after-quit) + (let ((org-agenda-window-setup 'other-window) + org-agenda-restore-windows-after-quit) (cl-letf (((symbol-function 'delete-other-windows) (symbol-function 'ignore))) (apply orig-fn args))))