;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; 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/orgzly/_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/orgzly/_slipbox.org")
        (file "~/org/_org-capture-templates/template_slipbox.org")
        :prepend t
        :immediate-finish "f"
        :jump-to-captured "t"
    )
    ("h" "Health")
    ("hc" "Couples")
    ("hcd" "Appointment noteworthy developments / [time] in review"
        entry (file "~/org/orgzly/_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")
    ("hmd" "Appointment noteworthy developments / [time] in review"
        entry (file "~/org/orgzly/_slipbox.org")
        (file "~/org/_org-capture-templates/template_therapy_apt_developments.org.org")
        :immediate-finish "f"
        :jump-to-captured "t"
        :unnarrowed "t"
        :prepend "t"
    )
    ("m" "Music import (beets)" entry
        (file "~/org/orgzly/_slipbox.org")
        (file "~/org/_org-capture-templates/template_beets.org")
        :prepend t
        :immediate-finish "f"
        :jump-to-captured "t"
    )
))