From c520a582a68d0ab6d7fd02225378c5c90deaf137 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Sat, 17 Jan 2015 22:15:23 -0500
Subject: Store current span across Org agenda calls

---
 lisp/init-org.el | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'lisp/init-org.el')

diff --git a/lisp/init-org.el b/lisp/init-org.el
index 96cae0c..516f219 100644
--- a/lisp/init-org.el
+++ b/lisp/init-org.el
@@ -342,6 +342,15 @@ be restored properly."
       org-agenda-use-time-grid nil
       org-agenda-start-on-weekday nil)
 
+(defun km/org-agenda-store-current-span ()
+    "Store the current span value in `org-agenda-span'.
+This allows the view to persist when the agenda buffer is
+killed."
+    (when org-agenda-current-span
+      (setq org-agenda-span org-agenda-current-span)))
+
+(add-hook 'org-agenda-finalize-hook 'km/org-agenda-store-current-span)
+
 (setq org-agenda-sorting-strategy
       '((agenda time-up deadline-up scheduled-up priority-down category-keep)
         (todo priority-down category-keep)
-- 
cgit v1.2.3