branch: elpa/hyperdrive
commit 91b4a1db06b5f0ea96e91dbd299af6d2f4e3e05f
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Change: (-menu-set-{petname,nickname}) Access scope in interactive
---
hyperdrive-menu.el | 19 ++++++++++---------
1 file changed, 10 insertions(+), 9 deletions(-)
diff --git a/hyperdrive-menu.el b/hyperdrive-menu.el
index 79963b8400..b81c50fcb4 100644
--- a/hyperdrive-menu.el
+++ b/hyperdrive-menu.el
@@ -287,22 +287,23 @@
(interactive (list (hyperdrive-complete-hyperdrive :force-prompt
current-prefix-arg)))
(transient-setup 'hyperdrive-menu-hyperdrive nil nil :scope hyperdrive))
-(transient-define-suffix hyperdrive-menu-set-petname (petname)
+(transient-define-suffix hyperdrive-menu-set-petname (petname hyperdrive)
(interactive
(list (hyperdrive-read-name
:prompt "New petname"
- :initial-input (hyperdrive-petname (oref transient-current-prefix
scope)))))
- (let ((hyperdrive (oref transient-current-prefix scope)))
- (hyperdrive-set-petname petname hyperdrive)))
+ :initial-input (hyperdrive-petname (oref transient-current-prefix
scope)))
+ (oref transient-current-prefix scope)))
+ (hyperdrive-set-petname petname hyperdrive))
-(transient-define-suffix hyperdrive-menu-set-nickname (nickname)
+(transient-define-suffix hyperdrive-menu-set-nickname (nickname hyperdrive)
(interactive
(list (hyperdrive-read-name
:prompt "New nickname"
- :initial-input (alist-get 'name (hyperdrive-metadata (oref
transient-current-prefix scope))))))
- (hyperdrive-set-nickname nickname (oref transient-current-prefix scope)
- :then (lambda (hyperdrive)
- (hyperdrive-menu-hyperdrive hyperdrive))))
+ :initial-input (alist-get 'name (hyperdrive-metadata (oref
transient-current-prefix scope))))
+ (oref transient-current-prefix scope)))
+ (hyperdrive-set-nickname nickname hyperdrive
+ :then (lambda (drive)
+ (hyperdrive-menu-hyperdrive drive))))
;;;; Footer
