diff options
Diffstat (limited to 'users/aspen/emacs.d/clocked-in-elt.el')
| -rw-r--r-- | users/aspen/emacs.d/clocked-in-elt.el | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/users/aspen/emacs.d/clocked-in-elt.el b/users/aspen/emacs.d/clocked-in-elt.el new file mode 100644 index 000000000000..be4161441dce --- /dev/null +++ b/users/aspen/emacs.d/clocked-in-elt.el @@ -0,0 +1,17 @@ +;;; -*- lexical-binding: t; -*- +(load (expand-file-name "init" (or (getenv "EMACSDIR") + (expand-file-name + "../.emacs.d" + (file-name-directory (file-truename load-file-name)))))) + +(require 'org-clock) +(require 'org-element) + +(let ((item (or org-clock-marker + (car org-clock-history)))) + (when item + (with-current-buffer (marker-buffer item) + (goto-char (marker-position item)) + (let ((element (org-element-at-point))) + (when (eq 'headline (car element)) + (message "%s" (plist-get (cadr element) :raw-value))))))) |