branch: elpa/hyperdrive commit fc64e4a37c298ded76cfc3e2e23dcf778455838e Author: Joseph Turner <jos...@ushin.org> Commit: Joseph Turner <jos...@ushin.org>
Change: (h/menu-bar-menu) Add "Mark as safe" binding
---
hyperdrive.el | 11 +++++++++++
1 file changed, 11 insertions(+)
diff --git a/hyperdrive.el b/hyperdrive.el
index 72a7de1fd8..86ff842ce1 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -945,6 +945,17 @@ The return value of this function is the retrieval buffer."
(pcase (alist-get 'name (h/metadata drive))
(`nil "none")
(it it))))
+ (vector "Mark as Safe"
+ `(lambda ()
+ (interactive)
+ (let
((h/current-entry ,entry))
+
(call-interactively #'h/mark-as-safe)))
+ :help "Mark
hyperdrive as safe or not"
+ :label
+ (format-message
"Mark as Safe: `%s'"
+
(if (alist-get 'safep (h/etc drive))
+
"safe"
+
"not safe")))
"---"
(vector "Purge"
`(lambda ()
