branch: externals/denote
commit 7caf1a62dbcfa1735367afdb90e77aeda39b8e4e
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Use functions without wrappers for denote-rename-buffer--format
The 'denote-rename-buffer--get-keywords' is superseded by the
'denote-retrieve-keywords-value-as-string', which I introduced in commit
b17980a. Also check df2c7ee, which makes 'denote-keywords-combine' a
public function.
---
denote-rename-buffer.el | 27 +++++----------------------
1 file changed, 5 insertions(+), 22 deletions(-)
diff --git a/denote-rename-buffer.el b/denote-rename-buffer.el
index afe4f944a0..3a5a0d2d77 100644
--- a/denote-rename-buffer.el
+++ b/denote-rename-buffer.el
@@ -88,33 +88,16 @@ buffer will be used, if available."
:package-version '(denote . "2.1.0")
:group 'denote-rename-buffer)
-(defun denote-rename-buffer--get-title (file type)
- "Return Denote title of FILE, given TYPE."
- (denote-retrieve-title-value file type))
-
-(defun denote-rename-buffer--get-identifier (file)
- "Return Denote identifier of FILE."
- (denote-retrieve-filename-identifier file))
-
-(defun denote-rename-buffer--get-signature (file)
- "Return Denote signature of FILE."
- (denote-retrieve-filename-signature file))
-
-(defun denote-rename-buffer--get-keywords (file type)
- "Return Denote keywords of FILE, given TYPE."
- (denote--keywords-combine
- (denote-retrieve-keywords-value file type)))
-
(defun denote-rename-buffer--format (buffer)
"Parse the BUFFER through the `denote-rename-buffer-format'."
(when-let ((file (buffer-file-name buffer))
(type (denote-filetype-heuristics file)))
(format-spec denote-rename-buffer-format
- (list (cons ?t (denote-rename-buffer--get-title file type))
- (cons ?i (denote-rename-buffer--get-identifier file))
- (cons ?d (denote-rename-buffer--get-identifier file))
- (cons ?s (denote-rename-buffer--get-signature file))
- (cons ?k (denote-rename-buffer--get-keywords file type))
+ (list (cons ?t (denote-retrieve-title-value file type))
+ (cons ?i (denote-retrieve-filename-identifier file))
+ (cons ?d (denote-retrieve-filename-identifier file))
+ (cons ?s (denote-retrieve-filename-signature file))
+ (cons ?k (denote-retrieve-keywords-value-as-string file
type))
(cons ?% "%"))
'delete)))
