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

[Timeline] Barf if no clocklines can be found in given range

Browse Source
This commit is contained in:
Daniel Borchmann 2018-01-24 20:55:10 +01:00
parent d6e79dcf2d
commit d011ce0422
Signed by: exot
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -260,10 +260,14 @@ When called interactively, START and END are queried with
`org-read-date’." `org-read-date’."
(interactive (list (org-read-date nil nil nil "Start time: ") (interactive (list (org-read-date nil nil nil "Start time: ")
(org-read-date nil nil nil "End time: "))) (org-read-date nil nil nil "End time: ")))
(let ((timeline (-reduce-from (lambda (tl f) (let* ((timeline (timeline-tools-timeline tstart tend files)))
(funcall f tl)) (when (null timeline)
(timeline-tools-timeline tstart tend files) (user-error "No clocklines found in given range"))
timeline-tools-filter-functions))) (setq timeline
(-reduce-from (lambda (tl f)
(funcall f tl))
timeline
timeline-tools-filter-functions))
(let ((target-buffer (get-buffer-create " *Org Timeline*"))) (let ((target-buffer (get-buffer-create " *Org Timeline*")))
(with-current-buffer target-buffer (with-current-buffer target-buffer
(erase-buffer) (erase-buffer)