exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[Org] Fix bug when initializing custom agenda files

Browse Source
This commit is contained in:
Daniel Borchmann 2017-10-28 09:43:28 +02:00
parent 5bc22120fe
commit fdcbeebcb8
Signed by: exot
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
site-lisp/db-org.el
View File

@ -246,10 +246,13 @@ forces clocking in of the default task."
(set-default symbol value) (set-default symbol value)
(setq org-agenda-files (remove-duplicates (setq org-agenda-files (remove-duplicates
(cl-remove-if #'string-empty-p (cl-remove-if #'string-empty-p
(list db/org-default-home-file (mapcar (lambda (symbol)
db/org-default-work-file (when (boundp symbol)
db/org-default-refile-file (symbol-value symbol)))
db/org-default-notes-file)) '(db/org-default-home-file
db/org-default-work-file
db/org-default-refile-file
db/org-default-notes-file)))
:test #'equalp))) :test #'equalp)))
(defcustom db/org-default-work-file "" (defcustom db/org-default-work-file ""
@ -282,8 +285,6 @@ forces clocking in of the default task."
:type 'string :type 'string
:set #'db/update-org-agenda-files) :set #'db/update-org-agenda-files)
(setq org-agenda-include-diary nil (setq org-agenda-include-diary nil
org-agenda-span 1 org-agenda-span 1
org-agenda-diary-file db/org-default-refile-file org-agenda-diary-file db/org-default-refile-file