emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

lang/org: close agenda buffers after org-agenda

Browse source 
Experimental. Running org-agenda would leave leftover open buffers, this
hook cleans them up.
This commit is contained in:
Henrik Lissner 2018-01-08 20:42:41 -05:00
parent 6853196017
commit 3dbf994871
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
modules/lang/org/config.el
View file

@ -241,6 +241,14 @@ between the two."
;; Don't open separate windows ;; Don't open separate windows
(map-put org-link-frame-setup 'file 'find-file) (map-put org-link-frame-setup 'file 'find-file)
(defun +org|cleanup-agenda-files ()
"Close leftover agenda buffers after they've been indexed by org-agenda."
(cl-loop for file in org-agenda-files
for buf = (get-file-buffer file)
if (and file (not (get-buffer-window buf)))
do (kill-buffer buf)))
(add-hook 'org-agenda-finalize-hook #'+org|cleanup-agenda-files)
;; Let OS decide what to do with files when opened ;; Let OS decide what to do with files when opened
(setq org-file-apps (setq org-file-apps
`(("\\.org$" . emacs) `(("\\.org$" . emacs)