61 lines
2.2 KiB
EmacsLisp
61 lines
2.2 KiB
EmacsLisp
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; inspiration for conditional capture template : https://storax.github.io/blog/2016/05/02/org-capture-tricks/
|
|
|
|
; helper functions
|
|
(defvar my-capture-prmt-history nil
|
|
"History of prompt answers for org capture.")
|
|
(defun my/prmt (prompt variable)
|
|
"PROMPT for string, save it to VARIABLE and insert it."
|
|
(make-local-variable variable)
|
|
(set variable (read-string (concat prompt ": ") nil my-capture-prmt-history)))
|
|
(defun my/inc (what text &rest fmtvars)
|
|
"Ask user to include WHAT. If user agrees return TEXT."
|
|
(when (y-or-n-p (concat "Include " what "?"))
|
|
(apply 'format text fmtvars)))
|
|
(defun my/inc_date (what prefix)
|
|
"Ask user to include a date. If user agrees prompt for date."
|
|
(when (y-or-n-p (concat "Include " what "?"))
|
|
(concat prefix (org-time-stamp nil))))
|
|
|
|
; orgmode capture templates
|
|
(setq org-capture-templates '(
|
|
("d" "TODO (Main)" entry
|
|
(file "~/org/_todo.org")
|
|
(file "~/org/_org-capture-templates/template_todo.org")
|
|
:prepend t
|
|
:immediate-finish "f"
|
|
:jump-to-captured "t"
|
|
)
|
|
("s" "TODO (Slipbox)" entry
|
|
(file "~/org/_slipbox.org")
|
|
(file "~/org/_org-capture-templates/template_slipbox.org")
|
|
:prepend t
|
|
:immediate-finish "f"
|
|
:jump-to-captured "t"
|
|
)
|
|
("h" "Health")
|
|
("hc" "Couples Appointment noteworthy developments / [time] in review"
|
|
entry (file "~/org/_slipbox.org")
|
|
(file "~/org/_org-capture-templates/template_couples_apt_developments.org")
|
|
:immediate-finish "f"
|
|
:jump-to-captured "t"
|
|
:unnarrowed "t"
|
|
:prepend "t"
|
|
)
|
|
("hm" "Mike Appointment noteworthy developments / [time] in review"
|
|
entry (file "~/org/_slipbox.org")
|
|
(file "~/org/_org-capture-templates/template_apt_developments.org")
|
|
:immediate-finish "f"
|
|
:jump-to-captured "t"
|
|
:unnarrowed "t"
|
|
:prepend "t"
|
|
)
|
|
("m" "Music import (beets)" entry
|
|
(file "~/org/_slipbox.org")
|
|
(file "~/org/_org-capture-templates/template_beets.org")
|
|
:prepend t
|
|
:immediate-finish "f"
|
|
:jump-to-captured "t"
|
|
)
|
|
))
|