imalison:add-to-org-agenda-files

This commit is contained in:
Ivan Malison 2015-06-25 03:26:57 -04:00
parent 074d9fe555
commit 166aefa960

View File

@ -843,10 +843,14 @@ the same tree node, and the headline of the tree node in the Org-mode file."
(unless (boundp 'org-capture-templates) (unless (boundp 'org-capture-templates)
(defvar org-capture-templates nil)) (defvar org-capture-templates nil))
(setq org-agenda-files
(append org-agenda-files (defun imalison:add-to-org-agenda-files (incoming-files)
(--filter (or (file-symlink-p it) (file-exists-p it)) (setq org-agenda-files (delete-dups
`(,org-gtd-file ,org-habits-file ,org-calendar-file)))) (cl-loop for filepath in (append org-agenda-files incoming-files)
when (file-exists-p (file-truename filepath))
collect (file-truename filepath)))))
(imalison:add-to-org-agenda-files (list org-gtd-file org-habits-file org-calendar-file))
(add-to-list 'org-capture-templates (add-to-list 'org-capture-templates
`("t" "GTD Todo (Linked)" entry (file ,org-gtd-file) `("t" "GTD Todo (Linked)" entry (file ,org-gtd-file)