1 files changed, 16 insertions, 0 deletions

@@ -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