From a68e40a8473ff18bef58a171245a9cdef6eee622 Mon Sep 17 00:00:00 2001 From: SqrtMinusOne Date: Mon, 1 Jan 2024 03:04:15 +0300 Subject: [PATCH] org-journal-tags: respect org-extend-today-until --- org-journal-tags.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/org-journal-tags.el b/org-journal-tags.el index 1e2f1c3..ec508ae 100644 --- a/org-journal-tags.el +++ b/org-journal-tags.el @@ -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)