From b7295426c95bf968288bb6ead2db416a71ec4d3e Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sun, 9 Jan 2022 20:52:07 -0600
Subject: Weekend, babee

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

(limited to 'lisp/+org-capture.el')

diff --git a/lisp/+org-capture.el b/lisp/+org-capture.el
index ba036bd..6c59b98 100644
--- a/lisp/+org-capture.el
+++ b/lisp/+org-capture.el
@@ -85,5 +85,21 @@ properly process the variable."
     ;; Sort after, maybe
     (when sort-after (+org-capture-sort list))))
 
+(defun +org-template--ensure-path (keys &optional list)
+  "Ensure path of keys exists in `org-capture-templates'."
+  (unless list (setq list 'org-capture-templates))
+  (when (> (length key) 1)
+    ;; Check for existence of groups.
+    (let ((expected (cl-loop for i from 1 to (1- (length key))
+                             collect (substring key 0 i) into keys
+                             finally return keys)))
+      (cl-loop for ek in expected
+               if (not (+org-capture--get ek (symbol-value list))) do
+               (setf (+org-capture--get ek (symbol-value list))
+                     (list (format "(Group %s)" ek)))))))
+
+(defun +org-define-capture-template (keys title &rest args)
+  )
+
 (provide '+org-capture)
 ;;; +org-capture.el ends here
-- 
cgit 1.4.1-21-gabe81