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") |