[nongnu] elpa/hyperdrive 1f3eeca9dc 013/102: Change (-menu-hyperdrive) Add suffix for copying URL

[ELPA Syncer]

branch: elpa/hyperdrive
commit 1f3eeca9dcac18220a08036292d83e8319eb3ba1
Author: Joseph Turner <joseph@ushin.org>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    Change (-menu-hyperdrive) Add suffix for copying URL
---
 hyperdrive-menu.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/hyperdrive-menu.el b/hyperdrive-menu.el
index a85073a4a1..8741ebd5be 100644
--- a/hyperdrive-menu.el
+++ b/hyperdrive-menu.el
@@ -238,6 +238,7 @@
    ;; TODO(transient): Implement :inapt-if* for groups.
    :pad-keys t
    ("d" hyperdrive-menu-describe-hyperdrive)
+   ("w" hyperdrive-menu-hyperdrive-copy-url)
    (: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))))
@@ -397,6 +398,12 @@
   (interactive)
   (hyperdrive-describe-hyperdrive (hyperdrive-menu--entry)))
 
+(transient-define-suffix hyperdrive-menu-hyperdrive-copy-url ()
+  :description "Copy URL"
+  (interactive)
+  (hyperdrive-copy-url (hyperdrive-entry-create
+                        :hyperdrive (hyperdrive-menu--entry))))
+
 (transient-define-suffix hyperdrive-menu-set-petname (petname hyperdrive)
   :description (lambda ()
                  (format "Petname: %s"