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

Include day of week in daily timeline tool report

Browse Source 
This way, it's easier to see at glance what day the current report is
for.
This commit is contained in:
Daniel Borchmann 2024-10-25 18:55:38 +02:00
parent 986ae68730
commit cffe713fa9
No known key found for this signature in database
GPG Key ID: 784AA8DF0CCDF625
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -59,7 +59,7 @@ Filter are applied in the order they are given in this list."
:group 'timeline-tools :group 'timeline-tools
:type 'integer) :type 'integer)
(defcustom timeline-tools-headline-time-format "%Y-%m-%d %H:%M" (defcustom timeline-tools-headline-time-format "%Y-%m-%d %a %H:%M"
"Format of time used in the headline of a timeline." "Format of time used in the headline of a timeline."
:group 'timeline-tools :group 'timeline-tools
:type 'string) :type 'string)
@ -433,8 +433,7 @@ interactively, this date will be queried with `org-read-date’.
When not given, FILES defaults to `org-agenda-files’ without 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"))
(timeline-tools-headline-time-format "%Y-%m-%d"))
(timeline-tools-format-timeline (concat date " 00:00") (timeline-tools-format-timeline (concat date " 00:00")
(org-read-date nil nil "++1d" nil (org-read-date nil nil "++1d" nil
(org-time-string-to-time date)) (org-time-string-to-time date))
@ -458,9 +457,8 @@ current values of the relevant buffer local variables."
timeline-tools--current-files) timeline-tools--current-files)
(timeline-tools--get-timeline-from-buffer))))) (timeline-tools--get-timeline-from-buffer)))))
;; Update categories in all affected buffers to retrieve up-to-date ;; Update categories in all affected buffers to retrieve up-to-date information; find all
;; information; find all relevant buffers by checking the markers of all ;; relevant buffers by checking the markers of all entries.
;; entries.
(dolist (buffer (->> timeline (dolist (buffer (->> timeline
(mapcar #'timeline-tools-entry-marker) (mapcar #'timeline-tools-entry-marker)
(mapcar #'marker-buffer) (mapcar #'marker-buffer)
@ -469,7 +467,7 @@ current values of the relevant buffer local variables."
(org-refresh-category-properties))) (org-refresh-category-properties)))
(erase-buffer) (erase-buffer)
(insert (format "* Timeline from [%s] to [%s]\n\n" (insert (format "Timeline from [%s] to [%s]\n\n"
(format-time-string timeline-tools-headline-time-format (format-time-string timeline-tools-headline-time-format
timeline-tools--current-time-start) timeline-tools--current-time-start)
(format-time-string timeline-tools-headline-time-format (format-time-string timeline-tools-headline-time-format