[nongnu] elpa/hyperdrive f5013519c5 101/123: Change: Rearrange some commands

[ELPA Syncer]

branch: elpa/hyperdrive
commit f5013519c5fc319c5ceaf8bfbd2b4817790d7a23
Author: Adam Porter <a...@alphapapa.net>
Commit: Adam Porter <a...@alphapapa.net>

    Change: Rearrange some commands
---
 hyperdrive-menu.el | 23 +++++++++++------------
 1 file changed, 11 insertions(+), 12 deletions(-)

diff --git a/hyperdrive-menu.el b/hyperdrive-menu.el
index 19ed6f10da..be6c7bc364 100644
--- a/hyperdrive-menu.el
+++ b/hyperdrive-menu.el
@@ -68,6 +68,7 @@
                   (format "  latest:%s" (hyperdrive-latest-version 
hyperdrive)))
         "Hyperdrive"))
     ("h" "Hyperdrive menu" hyperdrive-menu-hyperdrive)
+    ("N" "New drive" hyperdrive-new)
     ;; TODO: Hook into transient-show-help?
     ("?" "Help" hyperdrive-info-manual)]
   [ :if (lambda () (oref transient--prefix scope))
@@ -198,14 +199,15 @@
 
 (transient-define-prefix hyperdrive-menu-hyperdrive (hyperdrive)
   "Show menu for editing HYPERDRIVE."
-  [ :class transient-row
-    :description
-    (lambda ()
-      (let ((hyperdrive (oref transient--prefix scope)))
-        (concat (propertize "Hyperdrive: " '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 ()
+     (let ((hyperdrive (oref transient--prefix scope)))
+       (concat (propertize "Hyperdrive: " 'face 'transient-heading)
+               (hyperdrive--format-hyperdrive hyperdrive :formats '(public-key 
seed domain))
+               (format "  latest-version:%s" (hyperdrive-latest-version 
hyperdrive)))))
+   [("d" "Describe" hyperdrive-describe-hyperdrive)
+    ("C-M-P" "Purge" hyperdrive-purge)]
+   [("p" "Petname" hyperdrive-menu-set-petname
      :description (lambda ()
                     (format "Petname: %s"
                             (pcase (hyperdrive-petname
@@ -226,10 +228,7 @@
                               ('nil (propertize "none"
                                                 'face 
'transient-inactive-value))
                               (it (propertize it
-                                              'face 'transient-value))))))
-    ("N" "New" hyperdrive-new)
-    ("d" "Describe" hyperdrive-describe-hyperdrive)
-    ("C-M-P" "Purge" hyperdrive-purge)]
+                                              'face 'transient-value))))))]]
   (interactive (list (hyperdrive-complete-hyperdrive :force-prompt 
current-prefix-arg)))
   (transient-setup 'hyperdrive-menu-hyperdrive nil nil :scope hyperdrive))