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

lang/org: respect org-agenda-sticky

Browse source 
And remove remappings of org-agenda-{q,Q}uit to org-agenda-exit
This commit is contained in:
Henrik Lissner 2019-11-29 21:54:51 -05:00
parent 50cab52766
commit ae5a18c364
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 5 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -547,10 +547,11 @@ eldoc string."
"Prevent temporarily-opened agenda buffers from being associated with the "Prevent temporarily-opened agenda buffers from being associated with the
current workspace (and clean them up)." current workspace (and clean them up)."
(when (and org-agenda-new-buffers (bound-and-true-p persp-mode)) (when (and org-agenda-new-buffers (bound-and-true-p persp-mode))
(unless org-agenda-sticky
(let (persp-autokill-buffer-on-remove) (let (persp-autokill-buffer-on-remove)
(persp-remove-buffer org-agenda-new-buffers (persp-remove-buffer org-agenda-new-buffers
(get-current-persp) (get-current-persp)
nil)) nil)))
(dolist (buffer org-agenda-new-buffers) (dolist (buffer org-agenda-new-buffers)
(with-current-buffer buffer (with-current-buffer buffer
;; HACK Org agenda opens temporary agenda incomplete org-mode ;; HACK Org agenda opens temporary agenda incomplete org-mode
@ -689,10 +690,6 @@ between the two."
"r" #'org-refile)) ; to all `org-refile-targets' "r" #'org-refile)) ; to all `org-refile-targets'
(map! :after org-agenda (map! :after org-agenda
:map org-agenda-mode-map
;; Always clean up after itself
[remap org-agenda-quit] #'org-agenda-exit
[remap org-agenda-Quit] #'org-agenda-exit
:localleader :localleader
"d" #'org-agenda-deadline "d" #'org-agenda-deadline
(:prefix ("c" . "clock") (:prefix ("c" . "clock")