[nongnu] elpa/org-journal 844c7084c3 1/2: don't break journaling if CREATED exists at file level #383

[ELPA Syncer]

branch: elpa/org-journal
commit 844c7084c3f272fb24eaec78a25f83f999ca9bd9
Author: Jason May <jmay@pobox.com>
Commit: Jason May <jmay@pobox.com>

    don't break journaling if CREATED exists at file level #383
    
    The existence of a CREATED entry in the file-level property drawer causes
    =org-journal-new-entry= to fail. Ignore all file-level properties when
    searching through the file for the correct timestamp to start a new entry.
---
 org-journal.el | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/org-journal.el b/org-journal.el
index cf33f2baf0..61ff72d243 100644
--- a/org-journal.el
+++ b/org-journal.el
@@ -1061,6 +1061,14 @@ This is the counterpart of 
`org-journal--file-name->calendar-date' for
           (string-to-number (match-string 3 date))    ;; Day
           (string-to-number (match-string 1 date))))) ;; Year
 
+(defun org-journal--skip-meta-data ()
+  "Advance point past any file-level properties drawer.
+
+Extracted from org-roam (org-roam-end-of-meta-data)."
+  (when (looking-at org-property-drawer-re)
+    (goto-char (match-end 0))
+    (forward-line)))
+
 (defun org-journal--file->calendar-dates (file)
   "Return journal dates from FILE."
   (org-journal--with-journal
@@ -1068,6 +1076,7 @@ This is the counterpart of 
`org-journal--file-name->calendar-date' for
     (let (dates)
       (save-excursion
         (goto-char (point-min))
+        (org-journal--skip-meta-data)
         (while (re-search-forward org-journal--created-re nil t)
           (when (= (save-excursion (org-back-to-heading) (org-outline-level)) 
1)
             (push (org-journal--entry-date->calendar-date) dates)))