From ae5a18c364ca2eb6994fcfc61f1267090c0ccda2 Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Fri, 29 Nov 2019 21:54:51 -0500
Subject: [PATCH] lang/org: respect org-agenda-sticky

And remove remappings of org-agenda-{q,Q}uit to org-agenda-exit
---
 modules/lang/org/config.el | 13 +++++--------
 1 file changed, 5 insertions(+), 8 deletions(-)

diff --git a/modules/lang/org/config.el b/modules/lang/org/config.el
index ad64023d0..04d124f6e 100644
--- a/modules/lang/org/config.el
+++ b/modules/lang/org/config.el
@@ -547,10 +547,11 @@ eldoc string."
       "Prevent temporarily-opened agenda buffers from being associated with the
 current workspace (and clean them up)."
       (when (and org-agenda-new-buffers (bound-and-true-p persp-mode))
-        (let (persp-autokill-buffer-on-remove)
-          (persp-remove-buffer org-agenda-new-buffers
-                               (get-current-persp)
-                               nil))
+        (unless org-agenda-sticky
+          (let (persp-autokill-buffer-on-remove)
+            (persp-remove-buffer org-agenda-new-buffers
+                                 (get-current-persp)
+                                 nil)))
         (dolist (buffer org-agenda-new-buffers)
           (with-current-buffer buffer
             ;; HACK Org agenda opens temporary agenda incomplete org-mode
@@ -689,10 +690,6 @@ between the two."
           "r" #'org-refile)) ; to all `org-refile-targets'
 
   (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
         "d" #'org-agenda-deadline
         (:prefix ("c" . "clock")