From d9e602e4128a8aaae39ba81296f7042bc2545053 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 13 Oct 2021 17:58:04 -0500
Subject: I told myself I'd have useful commit messages today

Apparently I lied.
---
 lisp/chd.el | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'lisp/chd.el')

diff --git a/lisp/chd.el b/lisp/chd.el
index b301c8d..e1d96cb 100644
--- a/lisp/chd.el
+++ b/lisp/chd.el
@@ -48,6 +48,14 @@
   ;; TODO: implement actual logic.
   (message "%s" date))
 
+(defun chd/insert-client ()
+  "Insert the current client at point."
+  (interactive)
+  (if-let ((client (org-entry-get nil "CLIENT" :inherit)))
+      (insert client)
+    (beep)
+    (user-error "No client found in current subtree")))
+
 ;;; NOTES
 ;; org-protocol: https://orgmode.org/worg/org-contrib/org-protocol.html
 ;; the bit i wanna pull from TaskIQ: 'document.getElementById("preview")
-- 
cgit 1.4.1-21-gabe81