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

[Org] Update agenda files when changing customizations

Browse Source
This commit is contained in:
Daniel Borchmann 2017-10-27 21:14:26 +02:00
parent df224c099e
commit ad27f96943
Signed by: exot
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 22 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -241,39 +241,48 @@ forces clocking in of the default task."
;;; Agenda Customization ;;; Agenda Customization
(defun db/update-org-agenda-files (symbol value)
"Set SYMBOL to VALUE and update `org-agenda-files’ afterwards."
(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))
:test #'equalp)))
(defcustom db/org-default-work-file "" (defcustom db/org-default-work-file ""
"Path to default org-mode file at work." "Path to default org-mode file at work."
:group 'personal-settings :group 'personal-settings
:type 'string) :type 'string
:set #'db/update-org-agenda-files)
(defcustom db/org-default-home-file "" (defcustom db/org-default-home-file ""
"Path to default org-mode file at home." "Path to default org-mode file at home."
:group 'personal-settings :group 'personal-settings
:type 'string) :type 'string
:set #'db/update-org-agenda-files)
(defcustom db/org-default-notes-file "" (defcustom db/org-default-notes-file ""
"Path to default org-mode file for notes." "Path to default org-mode file for notes."
:group 'personal-settings :group 'personal-settings
:type 'string) :type 'string
:set #'db/update-org-agenda-files)
(defcustom db/org-default-refile-file "" (defcustom db/org-default-refile-file ""
"Path to default org-mode file for capturing." "Path to default org-mode file for capturing."
:group 'personal-settings :group 'personal-settings
:type 'string) :type 'string
:set #'db/update-org-agenda-files)
(defcustom db/org-default-pensieve-file "" (defcustom db/org-default-pensieve-file ""
"Path to default org-mode file for private notes." "Path to default org-mode file for private notes."
:group 'personal-settings :group 'personal-settings
:type 'string) :type 'string
:set #'db/update-org-agenda-files)
;; TODO: reset `org-agenda-files’ if one of the following variables gets changed
(setq org-agenda-files (remove-duplicates
(cl-remove-if #'null
(list db/org-default-home-file
db/org-default-work-file
db/org-default-refile-file
db/org-default-notes-file))
:test #'equalp))
(setq org-agenda-include-diary nil (setq org-agenda-include-diary nil
org-agenda-span 1 org-agenda-span 1