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

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

[nongnu] elpa/hyperdrive 5ef8e22cfd 019/102: Change: (hyperdrive-menu-hy


From: ELPA Syncer
Subject: [nongnu] elpa/hyperdrive 5ef8e22cfd 019/102: Change: (hyperdrive-menu-hyperdrive) Simplify wording
Date: Wed, 29 Nov 2023 04:00:47 -0500 (EST)

branch: elpa/hyperdrive
commit 5ef8e22cfd0acdc98a4df4ad369b1a09176d5db2
Author: Joseph Turner <joseph@ushin.org>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    Change: (hyperdrive-menu-hyperdrive) Simplify wording
---
 hyperdrive-menu.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/hyperdrive-menu.el b/hyperdrive-menu.el
index 0b8fb9baa5..95d0551b0a 100644
--- a/hyperdrive-menu.el
+++ b/hyperdrive-menu.el
@@ -259,10 +259,10 @@
     :if (lambda () (hyperdrive-writablep (hyperdrive-menu--entry)))
     ("m M" "Mirror using adhoc settings" hyperdrive-mirror)
     ("m m" "Mirror using below settings" hyperdrive-mirror-configured)
-    ("m s" "Source"       hyperdrive-mirror-set-source)
-    ("m t" "Target"       hyperdrive-mirror-set-target)
-    ("m p" "Filter"       hyperdrive-mirror-set-filter)
-    ("m c" "Confirmation" hyperdrive-mirror-set-confirm)]]
+    ("m s" "Source"  hyperdrive-mirror-set-source)
+    ("m t" "Target"  hyperdrive-mirror-set-target)
+    ("m p" "Filter"  hyperdrive-mirror-set-filter)
+    ("m c" "Confirm" hyperdrive-mirror-set-confirm)]]
   (interactive (list (hyperdrive-complete-hyperdrive :force-prompt 
current-prefix-arg)))
   (transient-setup 'hyperdrive-menu-hyperdrive nil nil :scope hyperdrive))
 
@@ -332,8 +332,8 @@
   :format-value (lambda (obj)
                   ;; TODO dedicated faces
                   (if (oref obj value)
-                      (propertize "required" 'face 'hyperdrive-file-name)
-                    (propertize "not required" 'face 'font-lock-warning-face)))
+                      (propertize "yes" 'face 'hyperdrive-file-name)
+                    (propertize "no (dangerous)" 'face 
'font-lock-warning-face)))
   :reader (lambda (_prompt _default _history)
             (not hyperdrive-mirror-confirm)))
 



reply via email to

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