chore(users): grfn -> aspen
Change-Id: I6c6847fac56f0a9a1a2209792e00a3aec5e672b9 Reviewed-on: https://cl.tvl.fyi/c/depot/+/10809 Autosubmit: aspen <root@gws.fyi> Reviewed-by: sterni <sternenseemann@systemli.org> Tested-by: BuildkiteCI Reviewed-by: lukegb <lukegb@tvl.fyi>
This commit is contained in:
parent
0ba476a426
commit
82ecd61f5c
478 changed files with 75 additions and 77 deletions
17
users/aspen/emacs.d/clocked-in-elt.el
Normal file
17
users/aspen/emacs.d/clocked-in-elt.el
Normal file
|
|
@ -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)))))))
|
||||
Loading…
Add table
Add a link
Reference in a new issue