[elpa] externals/listen 44ce41c24c 4/4: Change: (listen-menu) Minor improvements

[ELPA Syncer]

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

    Change: (listen-menu) Minor improvements
---
 README.org |  1 +
 listen.el  | 16 +++++++++++++---
 2 files changed, 14 insertions(+), 3 deletions(-)

diff --git a/README.org b/README.org
index 041c7d0df3..18d94201c7 100644
--- a/README.org
+++ b/README.org
@@ -86,6 +86,7 @@ Use the command ~listen~ to show the Transient menu.  From 
there, it is--hopeful
 + Optimize updating of individual tracks in queue buffer.
 + Improve handling of maximum volume with VLC (allowing boosting over 100%).
 + Library buffer name defaults to given path.
++ Minor improvements to Transient menu. 
 
 *Fixes*
 + When reverting a queue's tracks from disk, re-detect the currently playing 
track by filename.
diff --git a/listen.el b/listen.el
index a5e7c72050..8b1786260e 100755
--- a/listen.el
+++ b/listen.el
@@ -344,15 +344,24 @@ TIME is a string like \"SS\", \"MM:SS\", or \"HH:MM:SS\"."
          (concat "Listening: " (listen-mode-lighter))
        "Not listening"))
    ;; Getting this layout to work required a lot of trial-and-error.
-   [("Q" "Quit" listen-quit)]
-   [("m" "Metadata" listen-view-track)]]
+   [("Q" "Quit" listen-quit
+     :inapt-if-not (lambda ()
+                     listen-player))]
+   [("m" "Metadata" listen-view-track
+     :inapt-if-not (lambda ()
+                     (and listen-player
+                          (listen--playing-p listen-player))))]]
   [["Player"
+    :if (lambda ()
+          listen-player)
     ("SPC" "Pause" listen-pause)
     ("p" "Play" listen-play)
     ;; ("ESC" "Stop" listen-stop)
     ("n" "Next" listen-next)
     ("s" "Seek" listen-seek)]
    ["Volume"
+    :if (lambda ()
+          listen-player)
     :description
     (lambda ()
       (if listen-player
@@ -402,7 +411,8 @@ TIME is a string like \"SS\", \"MM:SS\", or \"HH:MM:SS\"."
                            (interactive)
                            (listen-queue (map-elt (listen-player-etc 
(listen-current-player)) :queue)))
      :if (lambda ()
-           (map-elt (listen-player-etc (listen-current-player)) :queue)))
+           (if-let ((player listen-player))
+               (map-elt (listen-player-etc player) :queue))))
     ("qo" "View other" listen-queue)
     ("qp" "Play other" listen-queue-play
      :transient t)