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)
(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