[Org] Change the way ‘org-agenda-files’ is set
Up to now, ‘org-agenda-files’ only consisted of the four variables customizable in init.el, namly ‘db/org-default-work-file’, ‘db/org-default-home-file’, ‘db/org-default-notes-file’, and ‘db/org-default-refile-file’. However, this meant that no *additional* agenda files were possible, like including multiple files for notes. This should not be the case any longer.
This commit is contained in:
parent
dcf656c2ed
commit
25ec604019
|
@ -13,18 +13,14 @@
|
||||||
|
|
||||||
;; For customization of default org agenda files
|
;; For customization of default org agenda files
|
||||||
(defun db/update-org-agenda-files (symbol value)
|
(defun db/update-org-agenda-files (symbol value)
|
||||||
"Set SYMBOL to VALUE and update `org-agenda-files’ afterwards."
|
"Set SYMBOL to VALUE and update `org-agenda-files’ afterwards.
|
||||||
|
Remove the old value of SYMBOL from `org-agenda-files’ and add
|
||||||
|
the new one instead."
|
||||||
|
(require 'org)
|
||||||
|
(when (boundp symbol)
|
||||||
|
(setq org-agenda-files (cl-delete (symbol-value symbol) org-agenda-files)))
|
||||||
(set-default symbol value)
|
(set-default symbol value)
|
||||||
(setq org-agenda-files (cl-remove-duplicates
|
(push value org-agenda-files))
|
||||||
(cl-remove-if #'string-empty-p
|
|
||||||
(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 #'cl-equalp)))
|
|
||||||
|
|
||||||
(defun db/org-agenda-list-deadlines (&optional match)
|
(defun db/org-agenda-list-deadlines (&optional match)
|
||||||
;; XXX org-agenda-later does not work, fix this
|
;; XXX org-agenda-later does not work, fix this
|
||||||
|
|
Loading…
Reference in New Issue