exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[Timeline] Extend ‘timeline-tools-clocklines-of-task’ to accept point or mark

Browse Source
This commit is contained in:
Daniel Borchmann 2018-11-21 17:19:32 +01:00
parent 70c3fc3aee
commit d2a91b8320
Signed by: exot
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
site-lisp/timeline-tools.el
View File

@ -167,20 +167,18 @@ TIME-1 and TIME-2 must be given in a format understandable by
time-2))
(org-clock-update-time-maybe)))
(defun timeline-tools-clocklines-of-task (marker)
"Return list of all clock lines of task under MARKER.
(defun timeline-tools-clocklines-of-task (pom)
"Return list of all clock lines of task under POM.
Each clock line is represented as a cons cell (START . END),
where both START and END are the starting and ending times of the
corresponding clock lines, encoded as a float denoting the
seconds since the epoch. Includes clock lines of all subtrees as
well. The order of the entries in the resulting list will be
reversed of what it is in the subtree of MARKER."
(when (not (markerp marker))
(user-error "Marker not valid"))
reversed of what it is in the subtree of POM."
(let ((clock-lines nil))
(save-mark-and-excursion
(org-with-point-at marker
(org-with-point-at pom
(org-narrow-to-subtree)
(timeline-tools-map-clocklines
(lambda (start end)