From 96c09fe281b9307430d7353a24ff00fe06f838f9 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Sat, 6 Feb 2016 23:48:25 -0500
Subject: org-agenda: Keep default-directory with restriction

---
 init.el        | 2 +-
 lisp/km-org.el | 5 +++--
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/init.el b/init.el
index 0303079..f144f85 100644
--- a/init.el
+++ b/init.el
@@ -312,7 +312,7 @@
   (after 'org-agenda
     (setq km/org-agenda-file-directory "~/notes/agenda/"
           org-agenda-files (list km/org-agenda-file-directory))
-    (add-hook 'org-agenda-mode-hook #'km/org-agenda-cd-and-read-dir-locals)
+    (add-hook 'org-agenda-finalize-hook #'km/org-agenda-cd-and-read-dir-locals)
     (add-hook 'org-agenda-finalize-hook #'km/org-agenda-store-current-span))
   (after 'ox-md
     (advice-add 'org-md-paragraph :filter-return #'km/org-md-fill-string))
diff --git a/lisp/km-org.el b/lisp/km-org.el
index fcf82ed..5098748 100644
--- a/lisp/km-org.el
+++ b/lisp/km-org.el
@@ -308,8 +308,9 @@ called through the speed command interface."
 
 ;;;###autoload
 (defun km/org-agenda-cd-and-read-dir-locals ()
-  (setq default-directory "~/notes/")
-  (hack-local-variables))
+  (unless (get 'org-agenda-files 'org-restrict)
+    (setq default-directory "~/notes/")
+    (hack-local-variables)))
 
 ;;;###autoload
 (defun km/org-agenda-store-current-span ()
-- 
cgit v1.2.3