branch: externals/denote
commit a5120e0e939266df4de7d8fc0fbbef2c19435a68
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Enable optional EXTENSION in file name creation
---
denote.el | 12 ++++++++----
1 file changed, 8 insertions(+), 4 deletions(-)
diff --git a/denote.el b/denote.el
index ab2ad8add8..f4451ffd5a 100644
--- a/denote.el
+++ b/denote.el
@@ -272,14 +272,18 @@ output is sorted with `string-lessp'."
;;;; New note
-(defun denote--format-file (path id keywords slug)
+(defun denote--format-file (path id keywords slug &optional extension)
"Format file name.
PATH, ID, KEYWORDS, SLUG are expected to be supplied by `denote'
-or equivalent: they will all be converted into a single string."
+or equivalent: they will all be converted into a single string.
+
+Optional EXTENSION is the file type extension. Use .org if none
+is specified."
(let ((kws (if denote-infer-keywords
(denote--keywords-combine keywords)
- keywords)))
- (format "%s%s--%s--%s.org" path id kws slug)))
+ keywords))
+ (ext (or extension ".org")))
+ (format "%s%s--%s--%s%s" path id kws slug ext)))
(defun denote--file-meta-header (title date keywords filename id)
"Front matter for new notes.
