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

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

[elpa] externals/listen 4c0c6cadba 08/12: Change: Bind "?" to listen men


From: ELPA Syncer
Subject: [elpa] externals/listen 4c0c6cadba 08/12: Change: Bind "?" to listen menu in library and queue
Date: Thu, 29 Feb 2024 12:58:32 -0500 (EST)

branch: externals/listen
commit 4c0c6cadbab10b7068272f68c437b90db3313fdc
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Change: Bind "?" to listen menu in library and queue
---
 README.org        | 1 +
 listen-library.el | 1 +
 listen-queue.el   | 1 +
 3 files changed, 3 insertions(+)

diff --git a/README.org b/README.org
index e1217f125d..d4d911140c 100644
--- a/README.org
+++ b/README.org
@@ -70,6 +70,7 @@ Use the command ~listen~ to show the Transient menu.  From 
there, it is--hopeful
 *Additions*
 + Command ~listen-queue-deduplicate~ removes duplicate tracks from a queue (by 
comparing artist, album, and title metadata case-insensitively).
 + Read track durations with ~ffprobe~ and show in library and queue views.
++ Bound key ~?~ to open the ~listen~ Transient menu in library and queue views.
 
 ** v0.3
 
diff --git a/listen-library.el b/listen-library.el
index 6984b5df65..8256cc8f5a 100644
--- a/listen-library.el
+++ b/listen-library.el
@@ -88,6 +88,7 @@
 
 (defvar-keymap listen-library-mode-map
   :parent magit-section-mode-map
+  "?" #'listen
   "!" #'listen-library-shell-command
   "a" #'listen-library-add-tracks
   "g" #'listen-library-revert
diff --git a/listen-queue.el b/listen-queue.el
index e4ef459fc3..b5577e4176 100644
--- a/listen-queue.el
+++ b/listen-queue.el
@@ -138,6 +138,7 @@
              :sort-by '((1 . ascend))
              ;; TODO: Add a transient to show these bindings when pressing "?".
              :actions (list "q" (lambda (_) (bury-buffer))
+                            "?" (lambda (_) (call-interactively #'listen))
                             "g" (lambda (_) (call-interactively 
#'listen-queue-revert))
                             "j" (lambda (_) (listen-queue-jump))
                             "n" (lambda (_) (forward-line 1))



reply via email to

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