emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/denote d6da5ba074 2/2: Make denote-rename-buffer--forma


From: ELPA Syncer
Subject: [elpa] externals/denote d6da5ba074 2/2: Make denote-rename-buffer--format work with files that have no front matter
Date: Thu, 29 Feb 2024 01:00:07 -0500 (EST)

branch: externals/denote
commit d6da5ba074e53aa9b99929164dec740a23ec15c6
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Make denote-rename-buffer--format work with files that have no front matter
    
    Thanks to Alan Schmitt for reporting the relevant issue with PDFs and
    for commenting on the code I suggested. This was done in issue 261:
    <https://github.com/protesilaos/denote/issues/261>.
---
 denote-rename-buffer.el | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/denote-rename-buffer.el b/denote-rename-buffer.el
index 4230b35250..5d2d1ec0fc 100644
--- a/denote-rename-buffer.el
+++ b/denote-rename-buffer.el
@@ -93,11 +93,17 @@ buffer will be used, if available."
              (type (denote-filetype-heuristics file)))
     (string-trim
      (format-spec denote-rename-buffer-format
-                  (list (cons ?t (or (denote-retrieve-front-matter-title-value 
file type) ""))
+                  (list (cons ?t (cond
+                                  ((denote-retrieve-front-matter-title-value 
file type))
+                                  ((denote-retrieve-filename-title file))
+                                  (t  "")))
                         (cons ?i (or (denote-retrieve-filename-identifier 
file) ""))
                         (cons ?d (or (denote-retrieve-filename-identifier 
file) ""))
                         (cons ?s (or (denote-retrieve-filename-signature file) 
""))
-                        (cons ?k (or 
(denote-retrieve-front-matter-keywords-value-as-string file type) ""))
+                        (cons ?k (cond
+                                  
((denote-retrieve-front-matter-keywords-value-as-string file type))
+                                  ((denote-retrieve-filename-keywords file))
+                                  (t  "")))
                         (cons ?% "%"))
                   'delete))))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]