1 files changed, 21 insertions, 8 deletions

@@ -3,6 +3,19 @@
 (require 'acdw-org)
 (require 'org)
 
+(defvar chd/dir (acdw/sync-dir "Click Here Digital/")
+  "Where Click Here stuff is stored.")
+
+(defun chd/dir (file &optional make-directory)
+  "Expand FILE relative to variable `chd/dir'.
+If MAKE-DIRECTORY is non-nil, ensure the file's
+containing directory exists."
+  (let ((file-name (expand-file-name (convert-standard-filename file)
+                                     chd/dir)))
+    (when make-directory
+      (make-directory (file-name-directory file-name) :parents))
+    file-name))
+
 (defun chd/narrow-to-task (&optional point)
   "Narrow the buffer to the task POINT is in."
   (interactive "d")
@@ -40,14 +53,6 @@
     (org-back-to-heading)
     (org-open-at-point)))
 
-(defun chd/click-bits (date)
-  "Create a new Click Bits org file, or edit the one for DATE."
-  (interactive (list (progn
-                       (require 'org)
-                       (org-read-date))))
-  ;; TODO: implement actual logic.
-  (message "%s" date))
-
 (defun chd/insert-client ()
   "Insert the current client at point."
   (interactive)
@@ -56,6 +61,14 @@
     (beep)
     (user-error "No client found in current subtree")))
 
+;;; Click Bits!
+(require 'acdw-autoinsert)
+(require 'acdw)
+(require 'private (acdw/sync-dir "private"))
+(acdw/define-auto-insert '(:replace t)
+  (cons (chd/dir "Click Bits" t) "Click Bits!")
+  chd/click-bits-skeleton)
+
 ;;; NOTES
 ;; org-protocol: https://orgmode.org/worg/org-contrib/org-protocol.html
 ;; the bit i wanna pull from TaskIQ: 'document.getElementById("preview")