payas/nixos
Archived
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity

doom/org: Define advice'd functions before loading org

Browse source
This commit is contained in:
Payas Relekar 2023-11-10 20:55:42 +05:30
parent d89cdbb023
commit d4fbff0e56
1 changed files with 11 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
modules/emacs/doom/config.org
View file

@ -379,6 +379,17 @@ As such, relying on imperative config evaluation can turn into gotchas. While th
:init
(require 'ffap)
(setq! org-fold-core-style 'overlays)
(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 (and (boundp 'bhankas-fit-buffer-limit-max)
bhankas-fit-buffer-limit-max)
(setq new-args (append args '(20))))
(apply og-fun new-args)))
:config
(map!
:map org-mode-map
@ -459,17 +470,6 @@ As such, relying on imperative config evaluation can turn into gotchas. While th
'(("^\\*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)