Merge pull request from SqrtMinusOne

Account for org-extend-today-until in org-journal-open-current-file
bastibe · Feb 18, 2024 · e754cfe · e754cfe
2 parents b154887 + 129dede
commit e754cfe
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/org-journal.el b/org-journal.el
@@ -1266,7 +1266,9 @@ 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-subtract (current-time)
+                                          (* 3600 org-extend-today-until)))))
     (if (file-exists-p org-journal-file)
         (progn
           (funcall org-journal-find-file org-journal-file)