From 35c76e7098111ed0d84aef1bd09f7025ce728b87 Mon Sep 17 00:00:00 2001 From: Griffin Smith Date: Thu, 26 Mar 2020 15:03:25 -0400 Subject: Many updates, too many to count commit messages are for code, not config I guess --- clocked-in-elt.el | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 clocked-in-elt.el (limited to 'clocked-in-elt.el') diff --git a/clocked-in-elt.el b/clocked-in-elt.el new file mode 100644 index 000000000000..00fda047e4a9 --- /dev/null +++ b/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))))))) -- cgit 1.4.1