[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/denote ffbe225e7a 1/2: Fix denote-rename-file-using-fro
From: |
ELPA Syncer |
Subject: |
[elpa] externals/denote ffbe225e7a 1/2: Fix denote-rename-file-using-front-matter failing when no keywords |
Date: |
Thu, 23 Mar 2023 00:57:48 -0400 (EDT) |
branch: externals/denote
commit ffbe225e7a532947f293780d6710e537cbfa58da
Author: Eduardo Grajeda <tatofoo@gmail.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>
Fix denote-rename-file-using-front-matter failing when no keywords
Keywords are optional, and the filename is computed properly when
they are nil.
---
denote.el | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/denote.el b/denote.el
index ca997c5a4f..796257c96a 100644
--- a/denote.el
+++ b/denote.el
@@ -2320,15 +2320,17 @@ proceed with the renaming."
(user-error "The file is not writable or does not have a supported file
extension"))
(if-let* ((file-type (denote-filetype-heuristics file))
(title (denote-retrieve-title-value file file-type))
- (keywords (denote-retrieve-keywords-value file file-type))
(extension (file-name-extension file t))
(id (denote-retrieve-or-create-file-identifier file))
(dir (file-name-directory file))
(new-name (denote-format-file-name
- dir id keywords (denote-sluggify title) extension
- ;; The `denote-retrieve-filename-signature' is
+ ;; The `denote-retrieve-keywords-value' and
+ ;; `denote-retrieve-filename-signature' are
;; not inside the `if-let*' because we do not
- ;; want to throw an exception if it is nil.
+ ;; want to throw an exception if any is nil.
+ dir id
+ (or (denote-retrieve-keywords-value file file-type) nil)
+ (denote-sluggify title) extension
(or (denote-retrieve-filename-signature file) nil))))
(when (or auto-confirm
(denote-rename-file-prompt file new-name))