branch: externals/denote
commit 31fc567702cd41c4c47e264c68f01243f3687f5b
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Accept optional filetype in front matter formatter
---
denote.el | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/denote.el b/denote.el
index ca992a3136..a4e4ef9fbe 100644
--- a/denote.el
+++ b/denote.el
@@ -470,13 +470,17 @@ and do not use any empty line before it.
These help ensure consistency and might prove useful if we need
to operate on the front matter as a whole.")
+(defun denote--file-meta-header (title date keywords id &optional filetype)
"Front matter for new notes.
TITLE, DATE, KEYWORDS, FILENAME, ID are all strings which are
- provided by `denote'."
+ provided by `denote'.
+
+Optional FILETYPE is one of the values of `denote-file-type',
+else that variable is used."
(let ((kw-space (denote--file-meta-keywords keywords))
(kw-toml (denote--file-meta-keywords keywords 'toml)))
- (pcase denote-file-type
+ (pcase (or filetype denote-file-type)
('markdown-toml (format denote-toml-front-matter title date kw-toml id))
('markdown-yaml (format denote-yaml-front-matter title date kw-space id))
('text (format denote-text-front-matter title date kw-space id
denote-text-front-matter-delimiter))
