[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/denote c9a01a3718 3/3: Merge pull request #53 from jean
From: |
ELPA Syncer |
Subject: |
[elpa] externals/denote c9a01a3718 3/3: Merge pull request #53 from jeanphilippegg/renaming-commands |
Date: |
Sun, 17 Jul 2022 12:57:27 -0400 (EDT) |
branch: externals/denote
commit c9a01a37181ecd83413f8a3cd326a3c5f3b55071
Merge: befa6d9954 5ca1882ce8
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: GitHub <noreply@github.com>
Merge pull request #53 from jeanphilippegg/renaming-commands
Renaming commands, minor adjustments
---
denote-dired.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/denote-dired.el b/denote-dired.el
index 02e0f6351e..70c849c09d 100644
--- a/denote-dired.el
+++ b/denote-dired.el
@@ -319,7 +319,8 @@ appropriate."
The TITLE, KEYWORDS and ID are passed from the renaming
command and are used to construct a new front matter block if
appropriate."
- (when-let* ((filetype (denote-dired--filetype-heuristics file))
+ (when-let* ((denote--only-note-p file)
+ (filetype (denote-dired--filetype-heuristics file))
(date (denote--date (date-to-time id)))
(new-front-matter (denote--file-meta-header title date keywords
id filetype)))
(with-current-buffer (find-file-noselect file)
@@ -471,7 +472,7 @@ file-naming scheme."
(user-error "No marked files; aborting")))
;;;###autoload
-(defun denote-dired-rename-marked-files-and-add-front-matter ()
+(defun denote-dired-rename-marked-files-and-add-front-matters ()
"DEV NOTE 2022-07-17: proof of concept---help flesh it out.
Like `denote-dired-rename-marked-files' but also adds front
@@ -499,8 +500,7 @@ doc string)."
dir id keywords (denote--sluggify title)
extension)))
(rename-file file new-name)
(denote-dired--rename-buffer file new-name)
- (when (denote--only-note-p file)
- (denote-dired--add-front-matter new-name title keywords id))))
+ (denote-dired--add-front-matter new-name title keywords id)))
(revert-buffer))
(user-error "No marked files; aborting")))