From fdcbeebcb82fcff54858dc868b23f75612e4f8fa Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sat, 28 Oct 2017 09:43:28 +0200 Subject: [PATCH] [Org] Fix bug when initializing custom agenda files --- site-lisp/db-org.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el index ad8e274..8bd27f2 100644 --- a/site-lisp/db-org.el +++ b/site-lisp/db-org.el @@ -246,10 +246,13 @@ forces clocking in of the default task." (set-default symbol value) (setq org-agenda-files (remove-duplicates (cl-remove-if #'string-empty-p - (list db/org-default-home-file - db/org-default-work-file - db/org-default-refile-file - db/org-default-notes-file)) + (mapcar (lambda (symbol) + (when (boundp symbol) + (symbol-value symbol))) + '(db/org-default-home-file + db/org-default-work-file + db/org-default-refile-file + db/org-default-notes-file))) :test #'equalp))) (defcustom db/org-default-work-file "" @@ -282,8 +285,6 @@ forces clocking in of the default task." :type 'string :set #'db/update-org-agenda-files) - - (setq org-agenda-include-diary nil org-agenda-span 1 org-agenda-diary-file db/org-default-refile-file