From bfeb21c85edc4dde8488375eae3f8bd23e7ed5e1 Mon Sep 17 00:00:00 2001 From: jao Date: Tue, 9 Mar 2021 23:59:14 +0000 Subject: commands to display volume levels --- init.org | 21 +++++++++++++++++---- 1 file 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") -- cgit v1.2.3