[nongnu] elpa/hyperdrive 780bd3d8e0 004/102: Fix/Change: (-menu-hyperdrive) Use new display-only child syntax

[ELPA Syncer]

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

    Fix/Change: (-menu-hyperdrive) Use new display-only child syntax
    
    The previous approach caused an error when
    `transient-detect-key-conflicts' is non-nil, as
    it should be while working on transient commands.
---
 hyperdrive-menu.el | 23 ++++++-----------------
 1 file changed, 6 insertions(+), 17 deletions(-)

diff --git a/hyperdrive-menu.el b/hyperdrive-menu.el
index fb55fca282..2c10709d47 100644
--- a/hyperdrive-menu.el
+++ b/hyperdrive-menu.el
@@ -233,15 +233,9 @@
    ("d" "Describe" (lambda ()
                      (interactive)
                      (hyperdrive-describe-hyperdrive 
(hyperdrive-menu--entry))))
-   ;; FIXME: Is there a better way to intersperse lines of description and 
commands?
-   ("" "Public key" ignore
-    :description (lambda ()
-                   (concat "Public key: " (hyperdrive--format-host 
(hyperdrive-menu--entry) :format 'public-key))))
-   ("" "Seed" ignore
-    :description (lambda ()
-                   (concat "Seed: " (hyperdrive--format-host 
(hyperdrive-menu--entry) :format 'seed)))
-    :if (lambda ()
-          (hyperdrive-seed (hyperdrive-menu--entry))))
+   (: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 ()
@@ -264,14 +258,9 @@
                                (propertize nickname
                                            'face 'hyperdrive-nickname)
                              ""))))
-   ("" "Domain" ignore
-    :description (lambda ()
-                   (concat "Domain: " (hyperdrive--format-host 
(hyperdrive-menu--entry) :format 'domain)))
-    :if (lambda ()
-          (hyperdrive-domains (hyperdrive-menu--entry))))
-   ("" "Latest version" ignore
-    :description (lambda ()
-                   (format "Latest version: %s" (hyperdrive-latest-version 
(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)))))]
   [["Open"
     ("f" "Find file"
      (lambda ()