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

[Timeline] Minor comments

Browse Source
This commit is contained in:
Daniel Borchmann 2018-02-19 12:11:36 +01:00
parent 9edfeb2cbc
commit 7918f82876
Signed by: exot
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -221,10 +221,13 @@ archives."
(with-current-buffer (or (get-file-buffer file) (with-current-buffer (or (get-file-buffer file)
(find-file-noselect file)) (find-file-noselect file))
(timeline-tools-clocklines-in-range tstart tend)))))) (timeline-tools-clocklines-in-range tstart tend))))))
;; collect clock-lines in timeline and convert them to proper entries
(dolist (entry timeline-of-files) (dolist (entry timeline-of-files)
(dolist (clock-time (cdr entry)) (dolist (clock-time (cdr entry))
(push (timeline-tools-make-entry (car clock-time) (cdr clock-time) (car entry)) (push (timeline-tools-make-entry (car clock-time) (cdr clock-time) (car entry))
turned-around-timeline))) turned-around-timeline)))
;; sort timeline
(sort turned-around-timeline (sort turned-around-timeline
(lambda (entry-1 entry-2) (lambda (entry-1 entry-2)
(< (timeline-tools-entry-start-time entry-1) (< (timeline-tools-entry-start-time entry-1)