branch: elpa/hyperdrive
commit 65d6204dd0b945db943b96da5c2aa81bd03aa735
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Change: (h/menu-mark-as-safe) Prompt to mark as safe/unsafe/unknown
This change also offers a chance to read about this decision.
---
hyperdrive-menu.el | 13 ++++---------
1 file changed, 4 insertions(+), 9 deletions(-)
diff --git a/hyperdrive-menu.el b/hyperdrive-menu.el
index 818cfd5b27..63d4ac5c64 100644
--- a/hyperdrive-menu.el
+++ b/hyperdrive-menu.el
@@ -468,16 +468,11 @@
(h/menu--scope)))
(h/set-nickname nickname hyperdrive))
-(transient-define-suffix h/menu-mark-as-safe (hyperdrive safep)
+(transient-define-suffix h/menu-mark-as-safe ()
:description
- (lambda ()
- (format "Safe: %s"
- (if (alist-get 'safep (h/etc (h/menu--scope)))
- (propertize "Yes" 'face 'success)
- (propertize "No" 'face 'error))))
- (interactive
- (list (h/menu--scope) (not (alist-get 'safep (h/etc (h/menu--scope))))))
- (h/mark-as-safe hyperdrive safep))
+ (lambda () (format "Safe: %s" (h/safe-string (h/menu--scope))))
+ (interactive)
+ (call-interactively #'h/mark-as-safe))
;;;; Menu Utilities
