commands to display volume levels

1 files changed, 17 insertions, 4 deletions

diff --git a/init.org b/init.org
index 3950221..0862136 100644
--- a/init.org
+++ b/init.org
@@ -3890,8 +3890,17 @@
 * Multimedia
 *** mixer
     #+begin_src emacs-lisp
+      (defun jao-mixer-get-level (dev)
+        (let* ((s (shell-command-to-string (format "amixer sget %s" dev)))
+               (s (car (last (split-string s "\n" t)))))
+          (when (string-match ".*Front .*\\[\\([0-9]+\\)%\\] .*" s)
+            (let ((level (match-string 1 s)))
+              (message "%s level: %s%%" dev level)
+              (string-to-number level)))))
+
       (defun jao-mixer-set (dev v)
-        (start-process "amixer" nil "amixer" "sset" dev v))
+        (start-process "amixer" nil "amixer" "sset" dev v)
+        (jao-mixer-get-level dev))
 
       (defun jao-mixer-master-toogle ()
         (interactive)
@@ -3912,6 +3921,7 @@
       (defun jao-mixer-capture-down ()
         (interactive)
         (jao-mixer-set "Capture" "10%-"))
+
     #+end_src
 *** emms
 ***** configuration
@@ -4225,12 +4235,15 @@
           ("L" jao-player-show-lyrics "show lyrics")
           ("w" jao-player-echo "now playing (text)")
           ("s" jao-player-search "search"))
-         "Volume"
+         "Master volume"
          (("M" jao-mixer-master-toogle "master toggle")
           ("d" jao-mixer-master-down "master down")
           ("u" jao-mixer-master-up "master up")
-          ("D" jao-mixer-capture-down "capture down")
-          ("U" jao-mixer-capture-up "capture up"))
+          ("v" (jao-mixer-get-level "Master") "show"))
+         "Capture volume"
+         (("D" jao-mixer-capture-down "capture down")
+          ("U" jao-mixer-capture-up "capture up")
+          ("V" (jao-mixer-get-level "Capture") "show"))
          "Utilities"
          (("C" jao-emms-update-cache "refresh cache")
           ("c" jao-player-connect "reconnect to mpd")