[elpa] externals/denote 0831694e32 2/3: Merge pull request #395 from j4kub5/patch-1

[ELPA Syncer]

branch: externals/denote
commit 0831694e3214aa25353bd3975d0c6416cfb4f8ff
Merge: 77acc10fe4 3eb82c0bd0
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #395 from j4kub5/patch-1
    
    denote-journal-extras--entry-today & custom filename component order
---
 denote-journal-extras.el | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/denote-journal-extras.el b/denote-journal-extras.el
index c017fab299..7223da0e88 100644
--- a/denote-journal-extras.el
+++ b/denote-journal-extras.el
@@ -164,10 +164,13 @@ is internally processed by `denote-parse-date'."
 (defun denote-journal-extras--entry-today (&optional date)
   "Return list of files matching a journal for today or optional DATE.
 DATE has the same format as that returned by `denote-parse-date'."
-  (denote-directory-files
-   (format "%sT[0-9]\\{6\\}.*_%s"
-           (format-time-string "%Y%m%d" date)
-           denote-journal-extras-keyword)))
+  (let* ((identifier (format "%sT[0-9]\\{6\\}" (format-time-string "%Y%m%d" 
date)))
+         (files (denote-directory-files identifier))
+         (keyword (concat "_" (regexp-quote denote-journal-extras-keyword))))
+    (seq-filter
+     (lambda (file)
+       (string-match-p keyword file))
+     files)))
 
 ;;;###autoload
 (defun denote-journal-extras-new-or-existing-entry (&optional date)