[elpa] externals/listen 2eb2ac9db4 027/103: Volume stuff

[ELPA Syncer]

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

    Volume stuff
---
 listen.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/listen.el b/listen.el
index 1bed8f5a09..fd2e792801 100755
--- a/listen.el
+++ b/listen.el
@@ -87,6 +87,7 @@ Interactively, uses the default player."
 (defun listen-volume (player volume)
   "Set PLAYER's volume to VOLUME %.
 Interactively, uses the default player."
+  ;; TODO: Relative volume (at least for VLC).
   (interactive
    (let* ((player (listen--player))
           (volume (floor (listen--volume player))))
@@ -225,7 +226,8 @@ TIME is an HH:MM:SS string."
     ("SPC" "Pause" listen-pause)
     ("p" "Play" listen-play)
     ;; ("ESC" "Stop" listen-stop)
-    ("n" "Next" listen-next)]]
+    ("n" "Next" listen-next)
+    ("v" "Volume" listen-volume)]]
   [[]]
   ["Queue mode"
    :description