about summary refs log tree commit diff stats
path: root/lisp/chd.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/chd.el')
-rw-r--r--lisp/chd.el8
1 files changed, 8 insertions, 0 deletions
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 @@
48 ;; TODO: implement actual logic. 48 ;; TODO: implement actual logic.
49 (message "%s" date)) 49 (message "%s" date))
50 50
51(defun chd/insert-client ()
52 "Insert the current client at point."
53 (interactive)
54 (if-let ((client (org-entry-get nil "CLIENT" :inherit)))
55 (insert client)
56 (beep)
57 (user-error "No client found in current subtree")))
58
51;;; NOTES 59;;; NOTES
52;; org-protocol: https://orgmode.org/worg/org-contrib/org-protocol.html 60;; org-protocol: https://orgmode.org/worg/org-contrib/org-protocol.html
53;; the bit i wanna pull from TaskIQ: 'document.getElementById("preview") 61;; the bit i wanna pull from TaskIQ: 'document.getElementById("preview")