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

[Org] Move functional style for reporting function 

Doesn’t mean it’s more comprehensible now, though …
This commit is contained in:
Daniel - 2017-12-02 21:11:41 +01:00
parent e95ca2da9a
commit 1192dc2cb8
Signed by: dbo
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
site-lisp/db-org.el
View File

@ -1037,21 +1037,21 @@ TEND. Each element in this list is of the form
where START, END, MARKER are as return from
`db/org-clocking-time-in-range’, which see. Entries in the
resulting list are sorted by START, ascending."
(or files (setq files org-agenda-files))
(let ((task-clock-times (cl-loop for file in files
when (file-exists-p file)
append (with-current-buffer (or (get-file-buffer file)
(find-file-noselect file))
(db/org-clocking-time-in-range tstart tend))))
timeline)
(dolist (headline task-clock-times)
(dolist (clock-time (cdr headline))
(push (list (car clock-time) (cdr clock-time) (car headline))
timeline)))
(setq timeline
(->> (or files org-agenda-files)
(cl-remove-if-not #'file-exists-p)
(cl-mapcan #'(lambda (file)
(with-current-buffer (or (get-file-buffer file)
(find-file-noselect file))
(db/org-clocking-time-in-range tstart tend))))
(cl-mapcan #'(lambda (task)
(mapcar #'(lambda (clock-time)
(list (car clock-time)
(cdr clock-time)
(car task)))
(cdr task))))
((lambda (timeline) ; narf
(cl-sort timeline (lambda (entry-1 entry-2)
(< (car entry-1) (car entry-2)))))
timeline))
(< (car entry-1) (car entry-2))))))))
(defun db/org-format-timeline (tstart tend &optional files)
"Display timeline of tasks in FILES between TSTART and TEND.