From 7918f82876c3288a203ad7fb0db16225387ff882 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Mon, 19 Feb 2018 12:11:36 +0100 Subject: [PATCH] [Timeline] Minor comments --- site-lisp/timeline-tools.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/site-lisp/timeline-tools.el b/site-lisp/timeline-tools.el index d31c53c..ec1e42d 100644 --- a/site-lisp/timeline-tools.el +++ b/site-lisp/timeline-tools.el @@ -221,10 +221,13 @@ archives." (with-current-buffer (or (get-file-buffer file) (find-file-noselect file)) (timeline-tools-clocklines-in-range tstart tend)))))) + ;; collect clock-lines in timeline and convert them to proper entries (dolist (entry timeline-of-files) (dolist (clock-time (cdr entry)) (push (timeline-tools-make-entry (car clock-time) (cdr clock-time) (car entry)) turned-around-timeline))) + + ;; sort timeline (sort turned-around-timeline (lambda (entry-1 entry-2) (< (timeline-tools-entry-start-time entry-1)