about summary refs log blame commit diff
path: root/users/grfn/emacs.d/clocked-in-elt.el
blob: be4161441dce2d68ed0dbc1a113868282c058e33 (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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)))))))