[nongnu] elpa/hyperdrive d0c30a9742 008/102: Change: (-menu-hyperdrive) Define remaining suffixes separately

[ELPA Syncer]

branch: elpa/hyperdrive
commit d0c30a9742e80044aa8465246cf58c5ef35c19b2
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    Change: (-menu-hyperdrive) Define remaining suffixes separately
---
 hyperdrive-menu.el | 36 ++++++++++++++++++++----------------
 1 file changed, 20 insertions(+), 16 deletions(-)

diff --git a/hyperdrive-menu.el b/hyperdrive-menu.el
index 7b022251dd..2c2163f5b0 100644
--- a/hyperdrive-menu.el
+++ b/hyperdrive-menu.el
@@ -225,9 +225,7 @@
   :refresh-suffixes t
   ["Hyperdrive"
    :pad-keys t
-   ("d" "Describe" (lambda ()
-                     (interactive)
-                     (hyperdrive-describe-hyperdrive 
(hyperdrive-menu--entry))))
+   ("d" hyperdrive-menu-describe-hyperdrive)
    (:info (lambda () (concat "Public key: " (hyperdrive--format-host 
(hyperdrive-menu--entry) :format 'public-key))))
    (:info (lambda () (concat "Seed: " (hyperdrive--format-host 
(hyperdrive-menu--entry) :format 'seed)))
     :if (lambda () (hyperdrive-seed (hyperdrive-menu--entry))))
@@ -238,19 +236,8 @@
     :if (lambda () (hyperdrive-domains (hyperdrive-menu--entry))))
    (:info (lambda () (format "Latest version: %s" (hyperdrive-latest-version 
(hyperdrive-menu--entry)))))]
   [["Open"
-    ("f" "Find file"
-     (lambda ()
-       (interactive)
-       (hyperdrive-open
-         (hyperdrive-read-entry
-          :hyperdrive (hyperdrive-menu--entry)
-          :read-version current-prefix-arg))))
-    ("v" "View file" (lambda ()
-                       (interactive)
-                       (hyperdrive-view-file
-                        (hyperdrive-read-entry
-                         :hyperdrive (hyperdrive-menu--entry)
-                         :read-version current-prefix-arg))))]
+    ("f" "Find file" hyperdrive-menu-open-file)
+    ("v" "View file" hyperdrive-menu-view-file)]
    ["Upload"
     ("u f" "File" hyperdrive-menu-upload-file
      :inapt-if-not (lambda ()
@@ -265,6 +252,18 @@
   (interactive (list (hyperdrive-complete-hyperdrive :force-prompt 
current-prefix-arg)))
   (transient-setup 'hyperdrive-menu-hyperdrive nil nil :scope hyperdrive))
 
+(transient-define-suffix hyperdrive-menu-open-file ()
+  (interactive)
+  (hyperdrive-open (hyperdrive-read-entry
+                    :hyperdrive (hyperdrive-menu--entry)
+                    :read-version current-prefix-arg)))
+
+(transient-define-suffix hyperdrive-menu-view-file ()
+  (interactive)
+  (hyperdrive-view-file (hyperdrive-read-entry
+                         :hyperdrive (hyperdrive-menu--entry)
+                         :read-version current-prefix-arg)))
+
 (transient-define-suffix hyperdrive-menu-upload-file (filename entry)
   (interactive
    (let* ((filename (read-file-name "Upload file: "))
@@ -287,6 +286,11 @@
   (hyperdrive-upload-files files hyperdrive
                            :target-directory target-directory))
 
+(transient-define-suffix hyperdrive-menu-describe-hyperdrive ()
+  :description "Describe"
+  (interactive)
+  (hyperdrive-describe-hyperdrive (hyperdrive-menu--entry)))
+
 (transient-define-suffix hyperdrive-menu-set-petname (petname hyperdrive)
   :description (lambda ()
                  (format "Petname: %s"