sqrtminusone/org-journal-tags
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/org-journal-tags.git synced 2025-12-10 10:53:04 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

org-journal-tags: respect org-extend-today-until

Browse source
This commit is contained in:
Pavel Korytov 2024-01-01 03:04:15 +03:00
parent c9dba4817f
commit a68e40a847
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
org-journal-tags.el
View file

@ -2080,9 +2080,13 @@ No idea what I'm doing wrong, but this seems to help."
(defun org-journal-tags--on-this-day-get-dates ()
"Get the list of dates for the \"On this day\" section."
(cl-loop for (description . params) in org-journal-tags-on-this-day-breakpoints
collect (let ((time (org-journal-tags--decoded-time-add
(decode-time)
(apply #'make-decoded-time params))))
collect (let ((time (thread-first
(time-convert nil 'integer)
(- (* 60 60 org-extend-today-until))
(seconds-to-time)
(decode-time)
(org-journal-tags--decoded-time-add
(apply #'make-decoded-time params)))))
(setf (decoded-time-second time) 0
(decoded-time-minute time) 0
(decoded-time-hour time) 0)