emacs/protesilaos.denote
1
0
Fork 0
mirror of https://github.com/protesilaos/denote.git synced 2026-09-16 02:06:23 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Define macro to consolidate front matter retrieval functions

Browse source
This commit is contained in:
Protesilaos Stavrou 2024-05-18 20:55:22 +03:00
parent cc313b685f
commit a648205dc9
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
1 changed files with 21 additions and 29 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

50
denote.el
View file

@ -1739,36 +1739,28 @@ Subroutine of `denote--file-with-temp-buffer'."
(goto-char (point-min))
,@body)))
(defun denote-retrieve-front-matter-title-value (file file-type)
"Return title value from FILE front matter per FILE-TYPE."
(when file-type
(denote--file-with-temp-buffer file
(when (re-search-forward (denote--title-key-regexp file-type) nil t 1)
(funcall (denote--title-value-reverse-function file-type)
(buffer-substring-no-properties (point) (line-end-position)))))))
(defmacro denote--define-retrieve-front-matter (component scope)
"Define a function to retrieve front matter for COMPONENT given SCOPE.
The COMPONENT is one of the file name components that has a
corresponding front matter entry. SCOPE is a symbol of either `value'
or `line', referring to what to match and retrieve."
(declare (indent 1))
`(defun ,(intern (format "denote-retrieve-front-matter-%s-%s" component scope)) (file file-type)
(when file-type
(denote--file-with-temp-buffer file
(when (re-search-forward (,(intern (format "denote--%s-key-regexp" component)) file-type) nil t 1)
,(cond
((eq scope 'value)
`(funcall (,(intern (format "denote--%s-value-reverse-function" component)) file-type)
(buffer-substring-no-properties (point) (line-end-position))))
((eq scope 'line)
'(buffer-substring-no-properties (line-beginning-position) (line-end-position)))
(t (error "`%s' is not a known scope" scope))))))))
(defun denote-retrieve-front-matter-title-line (file file-type)
"Return title line from FILE front matter per FILE-TYPE."
(when file-type
(denote--file-with-temp-buffer file
(when (re-search-forward (denote--title-key-regexp file-type) nil t 1)
(buffer-substring-no-properties (line-beginning-position) (line-end-position))))))
(defun denote-retrieve-front-matter-keywords-value (file file-type)
"Return keywords value from FILE front matter per FILE-TYPE.
The return value is a list of strings."
(when file-type
(denote--file-with-temp-buffer file
(when (re-search-forward (denote--keywords-key-regexp file-type) nil t 1)
(funcall (denote--keywords-value-reverse-function file-type)
(buffer-substring-no-properties (point) (line-end-position)))))))
(defun denote-retrieve-front-matter-keywords-line (file file-type)
"Return keywords line from FILE front matter per FILE-TYPE."
(when file-type
(denote--file-with-temp-buffer file
(when (re-search-forward (denote--keywords-key-regexp file-type) nil t 1)
(buffer-substring-no-properties (line-beginning-position) (line-end-position))))))
(denote--define-retrieve-front-matter title value)
(denote--define-retrieve-front-matter title line)
(denote--define-retrieve-front-matter keywords value)
(denote--define-retrieve-front-matter keywords line)
(defalias 'denote-retrieve-title-value 'denote-retrieve-front-matter-title-value
"Alias for `denote-retrieve-front-matter-title-value'.")