emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/hyperdrive 8cde9dc75e 005/102: Change: (-menu{, -hyperdriv


From: ELPA Syncer
Subject: [nongnu] elpa/hyperdrive 8cde9dc75e 005/102: Change: (-menu{, -hyperdrive}) Refresh after every command
Date: Wed, 29 Nov 2023 04:00:45 -0500 (EST)

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

    Change: (-menu{,-hyperdrive}) Refresh after every command
    
    This new Transient feature completely refreshes the suffixes and
    keymaps after every command.
---
 hyperdrive-menu.el | 13 ++++---------
 hyperdrive.el      |  2 +-
 2 files changed, 5 insertions(+), 10 deletions(-)

diff --git a/hyperdrive-menu.el b/hyperdrive-menu.el
index 2c10709d47..0b190a866a 100644
--- a/hyperdrive-menu.el
+++ b/hyperdrive-menu.el
@@ -57,6 +57,7 @@
 (transient-define-prefix hyperdrive-menu (entry)
   "Show the hyperdrive transient menu."
   :info-manual "(hyperdrive)"
+  :refresh-suffixes t
   [["Hyperdrive"
     :description
     (lambda ()
@@ -141,17 +142,10 @@
      :transient t)
     ("j" "Jump" imenu)
     ;; TODO: Combine previous and next commands on the same line?
-    ;; TODO: See "predicate refreshing" 
<https://github.com/magit/transient/issues/157>.
-    ("p" "Previous" (lambda ()
-                      (interactive)
-                      (hyperdrive-ewoc-previous)
-                      (hyperdrive-menu (hyperdrive-menu--entry)))
+    ("p" "Previous" hyperdrive-ewoc-previous
      :if-mode hyperdrive-dir-mode
      :transient t)
-    ("n" "Next" (lambda ()
-                  (interactive)
-                  (hyperdrive-ewoc-next)
-                  (hyperdrive-menu (hyperdrive-menu--entry)))
+    ("n" "Next" hyperdrive-ewoc-next
      :if-mode hyperdrive-dir-mode
      :transient t)
     ("w" "Copy URL" hyperdrive-copy-url
@@ -228,6 +222,7 @@
 
 (transient-define-prefix hyperdrive-menu-hyperdrive (hyperdrive)
   "Show menu for HYPERDRIVE."
+  :refresh-suffixes t
   ["Hyperdrive"
    :pad-keys t
    ("d" "Describe" (lambda ()
diff --git a/hyperdrive.el b/hyperdrive.el
index 1c613df169..573e554c3c 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -7,7 +7,7 @@
 ;; Maintainer: Joseph Turner <~ushin/ushin@lists.sr.ht>
 ;; Created: 2022
 ;; Version: 0.3-pre
-;; Package-Requires: ((emacs "27.1") (map "3.0") (compat "29.1.4.0") (plz 
"0.7") (persist "0.5") (taxy-magit-section "0.12.1") (transient "0.4.3"))
+;; Package-Requires: ((emacs "27.1") (map "3.0") (compat "29.1.4.0") (plz 
"0.7") (persist "0.5") (taxy-magit-section "0.12.1") (transient "0.4.4"))
 ;; Homepage: https://git.sr.ht/~ushin/hyperdrive.el
 
 ;; This program is free software; you can redistribute it and/or



reply via email to

[Prev in Thread] Current Thread [Next in Thread]