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

Do not include archives in timeline-tools by default

Browse Source 
They are usually not needed, and can be included explicitly when
necessary.
This commit is contained in:
Daniel Borchmann 2024-06-11 18:17:08 +02:00
parent 2144c7e110
commit 051b578ba0
No known key found for this signature in database
GPG Key ID: 784AA8DF0CCDF625
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -294,11 +294,10 @@ returned by `timeline-tools-clocklines-in-range’, which see.
Entries in the resulting list are sorted by START, ascending. Entries in the resulting list are sorted by START, ascending.
TSTART and TEND must be valid time specifiers for TSTART and TEND must be valid time specifiers for
`timeline-tools-clocklines-in-range’. If not given, `timeline-tools-clocklines-in-range’. If not given,
FILES-OR-BUFFERS defaults to `org-agenda-files’ including all FILES-OR-BUFFERS defaults to `org-agenda-files’ without archives."
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-or-buffers (org-agenda-files t t)) (->> (or files-or-buffers (org-agenda-files t nil))
(cl-mapcan #'(lambda (file-or-buffer) (cl-mapcan #'(lambda (file-or-buffer)
(let ((buffer (cond (let ((buffer (cond
((bufferp file-or-buffer) ((bufferp file-or-buffer)
@ -407,7 +406,7 @@ Filtering is done by applying all functions from
(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’ including When not given, FILES defaults to `org-agenda-files’ without
archives. The timeline is transformed as given by the current archives. The timeline is transformed as given by the current
value of `timeline-tools-filter-functions’. When called value of `timeline-tools-filter-functions’. When called
interactively, START and END are queried with `org-read-date’." interactively, START and END are queried with `org-read-date’."
@ -431,7 +430,7 @@ interactively, START and END are queried with `org-read-date’."
DATE should be a string of the form %Y-%m-%d. When called 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’.
When not given, FILES defaults to `org-agenda-files’ including When not given, FILES defaults to `org-agenda-files’ without
archives." archives."
(interactive (list (org-read-date nil nil))) (interactive (list (org-read-date nil nil)))
(let ((timeline-tools-time-format "%H:%M") (let ((timeline-tools-time-format "%H:%M")