branch: elpa/hyperdrive
commit 287c1c2e19b2689d492d44849ae07c98139bdd9d
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Tidy: (hyperdrive-menu-hyperdrive) Use shorter names
---
hyperdrive-menu.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/hyperdrive-menu.el b/hyperdrive-menu.el
index 62edcaf370..fda9bd4ee2 100644
--- a/hyperdrive-menu.el
+++ b/hyperdrive-menu.el
@@ -202,7 +202,7 @@
(concat (propertize "Drive: " 'face 'transient-heading)
(hyperdrive--format-hyperdrive hyperdrive :formats
'(public-key seed domain))
(format " latest:%s" (hyperdrive-latest-version
hyperdrive)))))
- ("n" "set nickname" hyperdrive-menu-hyperdrive-set-nickname
+ ("n" "set nickname" hyperdrive-menu-set-nickname
:if (lambda ()
(hyperdrive-writablep (oref transient--prefix scope)))
:description (lambda ()
@@ -218,7 +218,7 @@
(interactive (list (hyperdrive-complete-hyperdrive :force-prompt
current-prefix-arg)))
(transient-setup 'hyperdrive-menu-hyperdrive nil nil :scope hyperdrive))
-(transient-define-suffix hyperdrive-menu-hyperdrive-set-nickname (nickname)
+(transient-define-suffix hyperdrive-menu-set-nickname (nickname)
;; TODO: Offer current nickname as default value; note that
;; transient--prefix and transient-current-prefix are both nil here.
(interactive (list (hyperdrive-read-name :prompt "New nickname")))
