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

[Timeline] First draft version for adding inverted clock lines

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

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

@ -516,6 +516,8 @@ Interactively query for the exact value of \"short\"."
;;; Manipulating Clocklines ;;; Manipulating Clocklines
;; XXX: All this needs some autoloadable frontend
(defun timeline-tools-add-clockline-to-marker (target-marker start end) (defun timeline-tools-add-clockline-to-marker (target-marker start end)
"Add clock line to task under TARGET-MARKER from START to END. "Add clock line to task under TARGET-MARKER from START to END.
@ -588,7 +590,35 @@ of TARGET-ID accordingly."
(timeline-tools-add-clockline-to-marker target-marker (timeline-tools-add-clockline-to-marker target-marker
(car clock-line) (cdr clock-line))))) (car clock-line) (cdr clock-line)))))
;; XXX: This needs some autoloadable frontend (defun timeline-tools-copy-inverted-clocklines (source-id target-id)
"Copy clock lines from SOURCE-ID to TARGET-ID.
Both SOURCE-ID and TARGET-ID must designate known `org-mode’
tasks by their ID. Considers all clock lines attached to
SOURCE-ID or to one of its subtree, and generates clock lines
starting at an end time of one clock line and ending at the start
time of the consecutive clock line. These inverted clock lines
are then copied to TARGET-ID and clock lines in the file of
TARGET-ID are adapted accordingly."
(let ((source-marker (org-id-find source-id :get-marker))
(target-marker (org-id-find target-id :get-marker)))
(cl-assert (markerp source-marker)
"Source task %s not found" source-id)
(cl-assert (markerp target-marker)
"Target task %s not found" target-id)
(let (inverted-timeline)
(dolist (clock-line (timeline-tools-clocklines-of-task source-marker))
(push (cdr clock-line) inverted-timeline)
(push (car clock-line) inverted-timeline))
(setq inverted-timeline (-partition 2 (rest (reverse inverted-timeline))))
;; This is inefficient, but see comment in
;; `timeline-tools-copy-clocklines’ for rationale.
(dolist (clock-line inverted-timeline)
(timeline-tools-add-clockline-to-marker target-marker
(cadr clock-line) (car clock-line))))))
(provide 'timeline-tools) (provide 'timeline-tools)
;;; timeline-tools.el ends here ;;; timeline-tools.el ends here