about summary refs log tree commit diff
path: root/users/glittershark/emacs.d/clocked-in-elt.el
diff options
context:
space:
mode:
authorVincent Ambo <mail@tazj.in>2020-06-16T00·06+0100
committerVincent Ambo <mail@tazj.in>2020-06-16T00·06+0100
commit4fe4e3d9a297ff9c8aa77e1a196a96b65ecd99ae (patch)
tree54455b0cd36e58fd745ce0b6d38101b7a902ce4b /users/glittershark/emacs.d/clocked-in-elt.el
parent2edb963b97867b27f68efac8d05bf966077b0b01 (diff)
parent69ee53bffaf145eb86dd39a6cdc0ae4d9d3de45c (diff)
Add 'users/glittershark/emacs.d/' from commit '69ee53bffaf145eb86dd39a6cdc0ae4d9d3de45c' r/979
git-subtree-dir: users/glittershark/emacs.d
git-subtree-mainline: 2edb963b97867b27f68efac8d05bf966077b0b01
git-subtree-split: 69ee53bffaf145eb86dd39a6cdc0ae4d9d3de45c
Diffstat (limited to 'users/glittershark/emacs.d/clocked-in-elt.el')
-rw-r--r--users/glittershark/emacs.d/clocked-in-elt.el18
1 files changed, 18 insertions, 0 deletions
diff --git a/users/glittershark/emacs.d/clocked-in-elt.el b/users/glittershark/emacs.d/clocked-in-elt.el
new file mode 100644
index 000000000000..00fda047e4a9
--- /dev/null
+++ b/users/glittershark/emacs.d/clocked-in-elt.el
@@ -0,0 +1,18 @@
+;;; ~/.doom.d/clocked-in-elt.el -*- 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)))))))