From f54e65b1ca5bc902f0305cb21b446a9916c0e3e3 Mon Sep 17 00:00:00 2001 From: SqrtMinusOne Date: Mon, 5 Feb 2024 03:36:51 +0300 Subject: [PATCH] Account for org-extend-today-until in org-journal-open-current-file --- org-journal.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/org-journal.el b/org-journal.el index bc9eb02..94feaa7 100644 --- a/org-journal.el +++ b/org-journal.el @@ -1266,7 +1266,8 @@ If NO-SELECT is non-nil, open it, but don't show it." (defun org-journal-open-current-journal-file () "Open the current journal file" (interactive) - (let ((org-journal-file (org-journal--get-entry-path))) + (let ((org-journal-file (org-journal--get-entry-path + (time-since (* 3600 org-extend-today-until))))) (if (file-exists-p org-journal-file) (progn (funcall org-journal-find-file org-journal-file)