branch: elpa/hyperdrive
commit fcb5512706eeeadbce64d9ed912aa559a4373d71
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
Change: (-mirror-read-prediate) Cosmetics
---
hyperdrive-mirror.el | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/hyperdrive-mirror.el b/hyperdrive-mirror.el
index 5ce73f5a31..6843ce9fba 100644
--- a/hyperdrive-mirror.el
+++ b/hyperdrive-mirror.el
@@ -193,7 +193,7 @@ predicate and set NO-CONFIRM to t."
(defun hyperdrive-mirror-read-predicate ()
"Read a function for filtering source files for mirroring."
- (let* ((collection
+ (let* ((readers
'(("Mirror all files" .
(lambda () #'always))
("`rx' form" .
@@ -204,9 +204,8 @@ predicate and set NO-CONFIRM to t."
(lambda () (read--expression "Lambda: " "(lambda (filename) )")))
("Named function" .
(lambda () (completing-read "Named function: " obarray
#'functionp t)))))
- (choice (completing-read "Predicate type: " collection))
- (result (funcall (alist-get choice collection nil nil #'equal))))
- result))
+ (reader (completing-read "Predicate type: " readers)))
+ (funcall (alist-get reader readers nil nil #'equal))))
(defun hyperdrive-mirror-do-upload ()
"Upload files in current \"*hyperdrive-mirror*\" buffer."
