branch: externals/denote-review
commit 427e9cf65989c045c26e5fbef1c7c386d22cd2bc
Author: Matto Fransen <[email protected]>
Commit: Matto Fransen <[email protected]>
ask confirmation to execute bulk-operation
---
denote-review.el | 15 ++++++++++-----
1 file changed, 10 insertions(+), 5 deletions(-)
diff --git a/denote-review.el b/denote-review.el
index 830f92ba14..ac3b22da35 100644
--- a/denote-review.el
+++ b/denote-review.el
@@ -5,7 +5,7 @@
;; Author: Matto Fransen <[email protected]>
;; Maintainer: Matto Fransen <[email protected]>
;; Url: https://codeberg.org/mattof/denote-review
-;; Version: 1.0.1
+;; Version: 1.0.2
;; Keywords: files
;; Package-Requires: ((emacs "28.1") (denote "4.1.3"))
@@ -144,7 +144,6 @@ Both regexp's set to match format based on variable
`denote-file-type'"
"Convert identifier in FILENAME into a date."
(denote-id-to-date (substring filename 0 15)))
-;;;###autoload
(defun denote-review-bulk-set-date (filename current-date-p)
"Opens FILENAME and insert a reviewdate.
When CURRENT-DATE-P is not null, use current date."
@@ -163,6 +162,7 @@ When CURRENT-DATE-P is not null, use current date."
insert-regexp))
(write-region nil nil filename))))
+;;;###autoload
(defun denote-review-set-date-dired-marked-files ()
"Insert a reviewdate in the marked files.
Set a reviewdate according the identifier in the filename,
@@ -171,9 +171,14 @@ Does not overwrite existing reviewdates."
(interactive)
(unless (derived-mode-p 'dired-mode)
(error (format "Command can only be used in a Dired buffer.")))
- (dolist (file (dired-get-marked-files))
- (when (denote-file-is-writable-and-supported-p file)
- (denote-review-bulk-set-date file current-prefix-arg))))
+ (let ((count (length (dired-get-marked-files))))
+ (when (yes-or-no-p
+ (if (= count 1)
+ (format "Change 1 file? %s" (car (dired-get-marked-files)))
+ (format "Change %d files? " (length (dired-get-marked-files)))))
+ (dolist (file (dired-get-marked-files))
+ (when (denote-file-is-writable-and-supported-p file)
+ (denote-review-bulk-set-date file current-prefix-arg))))))
;; Collect keywords and prompt for a keyword to filter by.
