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

[Org] Fix typo in variable names

This commit is contained in:
Daniel - 2017-12-03 10:16:13 +01:00
parent 4273dfeb41
commit 62a2154d28
Signed by: dbo
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1042,14 +1042,14 @@ 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."
(let (timeline-of-files turned-around-timeline)
(setq timeline
(setq timeline-of-files
(->> (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))))))
(dolist (entry timeline)
(dolist (entry timeline-of-files)
(dolist (clock-time (cdr entry))
(push (list (car clock-time) (cdr clock-time) (car entry))
turned-around-timeline)))