diff options
Diffstat (limited to 'lisp/chd.el')
-rw-r--r-- | lisp/chd.el | 8 |
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") |