forked from colonelpanic/dotfiles
prefix org-file variables with imalison
This commit is contained in:
parent
3660ae722a
commit
c407088e4f
@ -558,7 +558,6 @@ The current directory is assumed to be the project's root otherwise."
|
|||||||
(defvar-setq magit-last-seen-setup-instructions "1.4.0")
|
(defvar-setq magit-last-seen-setup-instructions "1.4.0")
|
||||||
:config
|
:config
|
||||||
(progn
|
(progn
|
||||||
(diminish 'magit-auto-revert-mode)
|
|
||||||
(use-package magit-filenotify
|
(use-package magit-filenotify
|
||||||
;; Seems like OSX does not support filenotify.
|
;; Seems like OSX does not support filenotify.
|
||||||
:disabled t
|
:disabled t
|
||||||
@ -878,12 +877,9 @@ the same tree node, and the headline of the tree node in the Org-mode file."
|
|||||||
(setq org-ehtml-everything-editable t)))
|
(setq org-ehtml-everything-editable t)))
|
||||||
|
|
||||||
;; Agenda setup.
|
;; Agenda setup.
|
||||||
(unless (boundp 'org-gtd-file)
|
(defvar-if-non-existent imalison:org-gtd-file "~/org/gtd.org")
|
||||||
(defvar org-gtd-file "~/org/gtd.org"))
|
(defvar-if-non-existent imalison:org-habits-file "~/org/habits.org")
|
||||||
(unless (boundp 'org-habits-file)
|
(defvar-if-non-existent imalison:org-calendar-file "~/org/calendar.org")
|
||||||
(defvar org-habits-file "~/org/habits.org"))
|
|
||||||
(unless (boundp 'org-calendar-file)
|
|
||||||
(defvar org-calendar-file "~/org/calendar.org"))
|
|
||||||
|
|
||||||
(unless (boundp 'org-capture-templates)
|
(unless (boundp 'org-capture-templates)
|
||||||
(defvar org-capture-templates nil))
|
(defvar org-capture-templates nil))
|
||||||
@ -891,22 +887,23 @@ the same tree node, and the headline of the tree node in the Org-mode file."
|
|||||||
(defun imalison:add-to-org-agenda-files (incoming-files)
|
(defun imalison:add-to-org-agenda-files (incoming-files)
|
||||||
(setq org-agenda-files (delete-dups
|
(setq org-agenda-files (delete-dups
|
||||||
(cl-loop for filepath in (append org-agenda-files incoming-files)
|
(cl-loop for filepath in (append org-agenda-files incoming-files)
|
||||||
when (file-exists-p (file-truename filepath))
|
when (and filepath (file-exists-p (file-truename filepath)))
|
||||||
collect (file-truename filepath)))))
|
collect (file-truename filepath)))))
|
||||||
|
|
||||||
(imalison:add-to-org-agenda-files (list org-gtd-file org-habits-file org-calendar-file))
|
(imalison:add-to-org-agenda-files
|
||||||
|
(list imalison:org-gtd-file imalison:org-habits-file imalison: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 ,imalison:org-gtd-file)
|
||||||
(function org-capture-make-linked-todo-template)))
|
(function org-capture-make-linked-todo-template)))
|
||||||
|
|
||||||
(add-to-list 'org-capture-templates
|
(add-to-list 'org-capture-templates
|
||||||
`("g" "GTD Todo" entry (file ,org-gtd-file)
|
`("g" "GTD Todo" entry (file ,imalison:org-gtd-file)
|
||||||
(function org-capture-make-todo-template)))
|
(function org-capture-make-todo-template)))
|
||||||
|
|
||||||
(add-to-list 'org-capture-templates
|
(add-to-list 'org-capture-templates
|
||||||
`("y" "Calendar entry (Linked)" entry
|
`("y" "Calendar entry (Linked)" entry
|
||||||
(file ,org-calendar-file)
|
(file ,imalison:org-calendar-file)
|
||||||
"* %? %A
|
"* %? %A
|
||||||
:PROPERTIES:
|
:PROPERTIES:
|
||||||
:CREATED: %U
|
:CREATED: %U
|
||||||
@ -915,7 +912,7 @@ the same tree node, and the headline of the tree node in the Org-mode file."
|
|||||||
|
|
||||||
(add-to-list 'org-capture-templates
|
(add-to-list 'org-capture-templates
|
||||||
`("c" "Calendar entry" entry
|
`("c" "Calendar entry" entry
|
||||||
(file ,org-calendar-file)
|
(file ,imalison:org-calendar-file)
|
||||||
"* %?
|
"* %?
|
||||||
:PROPERTIES:
|
:PROPERTIES:
|
||||||
:CREATED: %U
|
:CREATED: %U
|
||||||
@ -923,7 +920,7 @@ the same tree node, and the headline of the tree node in the Org-mode file."
|
|||||||
%^T"))
|
%^T"))
|
||||||
|
|
||||||
(add-to-list 'org-capture-templates
|
(add-to-list 'org-capture-templates
|
||||||
`("h" "Habit" entry (file ,org-habits-file)
|
`("h" "Habit" entry (file ,imalison:org-habits-file)
|
||||||
"* TODO
|
"* TODO
|
||||||
SCHEDULED: %^t
|
SCHEDULED: %^t
|
||||||
:PROPERTIES:
|
:PROPERTIES:
|
||||||
|
Loading…
Reference in New Issue
Block a user