blob: 00fda047e4a9b6f82e58c74ca132b69165f7b513 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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)))))))
|
