Add helper FNs to return title and date values

This commit is contained in:
Protesilaos Stavrou 2022-06-16 08:50:55 +03:00
parent b25704e041
commit 2327b5beb6
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA

View file

@ -78,6 +78,14 @@ Optional GROUP is a regexp construct for
(or (denote-retrieve--search regexp group)
(user-error "Cannot retrieve %s in %s" regexp file)))))
(defun denote-retrieve--value-title (file &optional group)
"Return title from FILE, optionally matching regexp GROUP."
(denote-retrieve--value file denote-retrieve--title-front-matter-regexp group))
(defun denote-retrieve--value-date (file &optional group)
"Return date from FILE, optionally matching regexp GROUP."
(denote-retrieve--value file denote-retrieve--date-front-matter-regexp group))
(defun denote-retrieve--read-file-prompt ()
"Prompt for regular file in variable `denote-directory'."
(read-file-name "Select note: " (denote-directory) nil t nil #'file-regular-p))