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

[Timeline] Include archives

Browse Source
This commit is contained in:
Daniel Borchmann 2018-01-27 12:11:59 +01:00
parent 54a2edb223
commit 6fd381f020
Signed by: exot
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -187,10 +187,11 @@ Each element in this list is of the form
where START, END, MARKER are as returned by where START, END, MARKER are as returned by
`timeline-tools-clocklines-in-range’, which see. Entries in the `timeline-tools-clocklines-in-range’, which see. Entries in the
resulting list are sorted by START, ascending." resulting list are sorted by START, ascending. If not given,
FILES defaults to `org-agenda-files’ including all archives."
(let (timeline-of-files turned-around-timeline) (let (timeline-of-files turned-around-timeline)
(setq timeline-of-files (setq timeline-of-files
(->> (or files org-agenda-files) (->> (or files (org-agenda-files t t))
(cl-remove-if-not #'file-exists-p) (cl-remove-if-not #'file-exists-p)
(cl-mapcan #'(lambda (file) (cl-mapcan #'(lambda (file)
(with-current-buffer (or (get-file-buffer file) (with-current-buffer (or (get-file-buffer file)
@ -254,10 +255,10 @@ Resulting gaps are distributed evenly among adjacent slots."
(defun timeline-tools-format-timeline (tstart tend &optional files) (defun timeline-tools-format-timeline (tstart tend &optional files)
"Display timeline of tasks between TSTART and TEND from FILES. "Display timeline of tasks between TSTART and TEND from FILES.
When not given, FILES defaults to `org-agenda-files’. Short When not given, FILES defaults to `org-agenda-files’ including
slots are removed, and afterwards slots are clusted by category. archives. Short slots are removed, and afterwards slots are
When called interactively, START and END are queried with clusted by category. When called interactively, START and END
`org-read-date’." are queried with `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 (timeline-tools-timeline tstart tend files))) (let* ((timeline (timeline-tools-timeline tstart tend files)))
@ -302,7 +303,7 @@ DATE should be a string of the form %Y-%m-%d. When called
interactively, this date will be queried with `org-read-date’. interactively, this date will be queried with `org-read-date’.
The timeline will be formatted for DATE starting at 00:00 and The timeline will be formatted for DATE starting at 00:00 and
ending at 23:61. When not given, FILES defaults to ending at 23:61. When not given, FILES defaults to
`org-agenda-files’." `org-agenda-files’ including archives."
(interactive (list (org-read-date nil nil))) (interactive (list (org-read-date nil nil)))
(timeline-tools-format-timeline (concat date " 00:00") (timeline-tools-format-timeline (concat date " 00:00")
(concat date " 23:61") (concat date " 23:61")