From 5bb0040b8acb17c49ba2e1010fc60263a372e345 Mon Sep 17 00:00:00 2001
From: Case Duckworth <acdw@acdw.net>
Date: Mon, 31 Jan 2022 13:55:00 -0600
Subject: [PATCH] Add `+org-define-capture-template'

---
 lisp/+org-capture.el | 61 +++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 60 insertions(+), 1 deletion(-)

diff --git a/lisp/+org-capture.el b/lisp/+org-capture.el
index 6c59b98..7ed4e00 100644
--- a/lisp/+org-capture.el
+++ b/lisp/+org-capture.el
@@ -98,8 +98,67 @@ properly process the variable."
                (setf (+org-capture--get ek (symbol-value list))
                      (list (format "(Group %s)" ek)))))))
 
-(defun +org-define-capture-template (keys title &rest args)
+(defcustom +org-capture-default-type 'entry
+  "Default template for `org-capture-templates'."
+  :type '(choice (const :tag "Entry" entry)
+                 (const :tag "Item" item)
+                 (const :tag "Check Item" checkitem)
+                 (const :tag "Table Line" table-line)
+                 (const :tag "Plain Text" plain)))
+
+(defcustom +org-capture-default-target ""
+  "Default target for `org-capture-templates'."
+  ;; TODO: type
   )
 
+(defcustom +org-capture-default-template nil
+  "Default template for `org-capture-templates'."
+  ;; TODO: type
+  )
+
+(defun +org-define-capture-templates-group (keys description)
+  "Add a group title to `org-capture-templates'."
+  (setf (+org-capture--get keys org-capture-templates)
+        (list description)))
+
+;; [[https://github.com/cadadr/configuration/blob/39813a771286e542af3aa333172858532c3bb257/emacs.d/gk/gk-org.el#L1573][from cadadr]]
+(defun +org-define-capture-template (keys description &rest args)
+  "Define a capture template and necessary antecedents.
+ARGS is a plist, which in addition to the additional options
+`org-capture-templates' accepts, takes the following and places
+them accordingly: :type, :target, and :template.  Each of these
+corresponds to the same field in `org-capture-templates's
+docstring, which see.  Likewise with KEYS and DESCRIPTION, which
+are passed separately to the function.
+
+This function will also create all the necessary intermediate
+capture keys needed for `org-capture'; that is, if KEYS is
+\"wcp\", entries for \"w\" and \"wc\" will both be ensured in
+`org-capture-templates'."
+  (declare (indent 2))
+  ;; Check for existence of parent groups
+  (when (> (length keys) 1)
+    (let ((expected (cl-loop for i from 1 to (1- (length keys))
+                             collect (substring 0 i) into keys
+                             finally return keys)))
+      (cl-loop
+       for ek in expected
+       if (not (+org-capture--get ek org-capture-templates))
+       do (+org-define-capture-templates-group ek (format "(Group %s)" ek)))))
+  (if (null args)
+      ;; Add the title
+      (+org-define-capture-templates-group keys description)
+    ;; Add the capture template.
+    (setf (+org-capture--get keys org-capture-templates)
+          (append (list (or (plist-get args :type)
+                            +org-capture-default-type)
+                        (or ( plist-get args :target)
+                            +org-capture-default-target)
+                        (or (plist-get args :template)
+                            +org-capture-default-template))
+                  (cl-loop for (key val) on args by #'cddr
+                           unless (member key '(:type :target :template))
+                           append (list key val))))))
+
 (provide '+org-capture)
 ;;; +org-capture.el ends here