diff options
author | Case Duckworth | 2021-10-13 17:58:04 -0500 |
---|---|---|
committer | Case Duckworth | 2021-10-13 17:58:04 -0500 |
commit | d9e602e4128a8aaae39ba81296f7042bc2545053 (patch) | |
tree | 944b3d2f1406be428854b121ce0bcd1802df4236 /lisp/chd.el | |
parent | yadda yadda yadda (diff) | |
download | emacs-d9e602e4128a8aaae39ba81296f7042bc2545053.tar.gz emacs-d9e602e4128a8aaae39ba81296f7042bc2545053.zip |
I told myself I'd have useful commit messages today
Apparently I lied.
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") |