[nongnu] elpa/hyperdrive 98761ce57f 007/102: Change: (-menu-hyperdrive) Move definitions of suffix descriptions

[ELPA Syncer]

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

    Change: (-menu-hyperdrive) Move definitions of suffix descriptions
    
    Move them to the definitions of the suffix commands themselves,
    making it easier to arrange the suffixes in the prefix definition.
---
 hyperdrive-menu.el | 40 ++++++++++++++++++----------------------
 1 file changed, 18 insertions(+), 22 deletions(-)

diff --git a/hyperdrive-menu.el b/hyperdrive-menu.el
index bcf21735c9..7b022251dd 100644
--- a/hyperdrive-menu.el
+++ b/hyperdrive-menu.el
@@ -231,28 +231,9 @@
    (: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))))
-   ("p" "Petname" hyperdrive-menu-set-petname
-    :transient t
-    :description (lambda ()
-                   (format "Petname: %s"
-                           (if-let ((petname (hyperdrive-petname
-                                              (hyperdrive-menu--entry))))
-                               (propertize petname
-                                           'face 'hyperdrive-petname)
-                             ""))))
-   ("n" "set nickname" hyperdrive-menu-set-nickname
-    :transient t
-    :inapt-if-not (lambda ()
-                    (hyperdrive-writablep (hyperdrive-menu--entry)))
-    :description (lambda ()
-                   (format "Nickname: %s"
-                           ;; TODO: Hyperdrive-metadata accessor (and maybe gv 
setter).
-                           (if-let ((nickname (alist-get 'name
-                                                         (hyperdrive-metadata
-                                                          
(hyperdrive-menu--entry)))))
-                               (propertize nickname
-                                           'face 'hyperdrive-nickname)
-                             ""))))
+   ("p" hyperdrive-menu-set-petname  :transient t)
+   ("n" hyperdrive-menu-set-nickname :transient t
+    :inapt-if-not (lambda () (hyperdrive-writablep (hyperdrive-menu--entry))))
    (:info (lambda () (concat "Domain: " (hyperdrive--format-host 
(hyperdrive-menu--entry) :format 'domain)))
     :if (lambda () (hyperdrive-domains (hyperdrive-menu--entry))))
    (:info (lambda () (format "Latest version: %s" (hyperdrive-latest-version 
(hyperdrive-menu--entry)))))]
@@ -307,6 +288,12 @@
                            :target-directory target-directory))
 
 (transient-define-suffix hyperdrive-menu-set-petname (petname hyperdrive)
+  :description (lambda ()
+                 (format "Petname: %s"
+                         (if-let ((petname (hyperdrive-petname
+                                            (hyperdrive-menu--entry))))
+                             (propertize petname 'face 'hyperdrive-petname)
+                           "")))
   (interactive
    (list (hyperdrive-read-name
           :prompt "New petname"
@@ -315,6 +302,15 @@
   (hyperdrive-set-petname petname hyperdrive))
 
 (transient-define-suffix hyperdrive-menu-set-nickname (nickname hyperdrive)
+  :description
+  (lambda ()
+    (format "Nickname: %s"
+            ;; TODO: Hyperdrive-metadata accessor (and maybe gv setter).
+            (if-let ((nickname (alist-get 'name
+                                          (hyperdrive-metadata
+                                           (hyperdrive-menu--entry)))))
+                (propertize nickname 'face 'hyperdrive-nickname)
+              "")))
   (interactive
    (list (hyperdrive-read-name
           :prompt "New nickname"