[nongnu] elpa/hyperdrive 19ebc643b6 045/123: Change: (hyperdrive-menu-hyperdrive) Add petname setter

[ELPA Syncer]

branch: elpa/hyperdrive
commit 19ebc643b68e56e9529112d4eaa594c6b3161bed
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>

    Change: (hyperdrive-menu-hyperdrive) Add petname setter
---
 hyperdrive-menu.el | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/hyperdrive-menu.el b/hyperdrive-menu.el
index fda9bd4ee2..d58d73caf6 100644
--- a/hyperdrive-menu.el
+++ b/hyperdrive-menu.el
@@ -202,6 +202,15 @@
         (concat (propertize "Drive: " 'face 'transient-heading)
                 (hyperdrive--format-hyperdrive hyperdrive :formats 
'(public-key seed domain))
                 (format "  latest:%s" (hyperdrive-latest-version 
hyperdrive)))))
+    ("p" "Petname" hyperdrive-menu-set-petname
+     :description (lambda ()
+                    (format "Petname: %s"
+                            (pcase (hyperdrive-petname
+                                    (oref transient--prefix scope))
+                              (`nil (propertize "none"
+                                                'face 
'transient-inactive-value))
+                              (it (propertize it
+                                              'face 'transient-value))))))
     ("n" "set nickname" hyperdrive-menu-set-nickname
      :if (lambda ()
            (hyperdrive-writablep (oref transient--prefix scope)))
@@ -218,6 +227,14 @@
   (interactive (list (hyperdrive-complete-hyperdrive :force-prompt 
current-prefix-arg)))
   (transient-setup 'hyperdrive-menu-hyperdrive nil nil :scope hyperdrive))
 
+(transient-define-suffix hyperdrive-menu-set-petname (petname)
+  ;; TODO: Offer current petname as default value; note that
+  ;; transient--prefix and transient-current-prefix are both nil here.
+  (interactive (list (hyperdrive-read-name :prompt "New petname")))
+  (let ((hyperdrive (oref transient-current-prefix scope)))
+    (hyperdrive-set-petname petname hyperdrive)
+    (hyperdrive-menu-hyperdrive hyperdrive)))
+
 (transient-define-suffix hyperdrive-menu-set-nickname (nickname)
   ;; TODO: Offer current nickname as default value; note that
   ;; transient--prefix and transient-current-prefix are both nil here.