doom/org: limit max height for indirect buffers in agenda

This commit is contained in:
Payas Relekar 2023-11-10 20:41:01 +05:30
parent 4e4b8a576a
commit d89cdbb023

View file

@ -458,6 +458,21 @@ As such, relying on imperative config evaluation can turn into gotchas. While th
(set-popup-rules!
'(("^\\*Org Src"
:slot 20 :side right :size 0.7 :select t)))
(defun bhankas-org-agenda-limit-indirect-max (og-fun &rest args)
(setq bhankas-fit-buffer-limit-max t)
(apply og-fun args)
(setq bhankas-fit-buffer-limit-max nil))
(defun bhankas-org-agenda-limit-indirect-buffer (og-fun &rest args)
(let ((new-args args))
(when bhankas-fit-buffer-limit-max
(setq new-args (append args '(20))))
(apply og-fun new-args)))
(advice-add 'fit-window-to-buffer :around #'bhankas-org-agenda-limit-indirect-buffer)
(advice-add 'org-agenda-tree-to-indirect-buffer :around #'bhankas-org-agenda-limit-indirect-max)
(global-org-modern-mode))
#+END_SRC
** org-roam