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

[Timeline] Beautify test on including the current clockline

This commit is contained in:
Daniel - 2018-01-24 21:05:11 +01:00
parent d011ce0422
commit eebf3f0e35
Signed by: dbo
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -163,15 +163,15 @@ given bounds."
;; add currently running clock if wanted
(when (and org-clock-report-include-clocking-task
(eq (org-clocking-buffer) (current-buffer))
(eq (marker-position org-clock-hd-marker) (point))
;; fixme: make this test look nicer
(or (<= tstart (float-time org-clock-start-time) tend)
(<= tstart (float-time) tend)
(<= (float-time org-clock-start-time)
(eq (marker-position org-clock-hd-marker) (point)))
(let ((current-clock-start (float-time org-clock-start-time))
(current-clock-end (float-time)))
(when (or (<= tstart current-clock-start tend)
(<= tstart current-clock-end tend)
(<= current-clock-start
tstart tend
(float-time))))
(push (cons (float-time org-clock-start-time) (float-time))
times))
current-clock-end))
(push (cons current-clock-start current-clock-end) times))))
;; store away clocklines of current headline
(when (not (null times))
(push (cons (point-marker) times) task-clock-times)