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