From ac428fe37c63732f3de8be47185a295f0ffa83a9 Mon Sep 17 00:00:00 2001 From: tslil clingman <> Date: Wed, 1 Apr 2020 22:15:21 -0700 Subject: Moved volume control to (patche) tinymenu-based pulseaudio-control interface --- emacs/inits/00-exwm.el | 47 +---------------------------------------------- 1 file changed, 1 insertion(+), 46 deletions(-) (limited to 'emacs/inits/00-exwm.el') diff --git a/emacs/inits/00-exwm.el b/emacs/inits/00-exwm.el index c05c2dd..7ad3deb 100644 --- a/emacs/inits/00-exwm.el +++ b/emacs/inits/00-exwm.el @@ -1,18 +1,4 @@ -;; Time-stamp: <2020-03-24 10:11:51 (tslil@bison)> - -(defun adjust-volume (mixer adjust) - (let ((tail " | tail -n 1") - (sed (concat " | sed 's/.*\\[\\([0-9]*.\\)\\] " - "\\[.*dB\\] \\[\\(.*\\)\\]$/" - mixer - " \\1 \\2/'"))) - (shell-command - (concat - (cond ((string-equal "+" adjust) (concat "amixer set " mixer " 2%+")) - ((string-equal "-" adjust) (concat "amixer set " mixer " 2%-")) - (t (concat "amixer set " mixer " toggle"))) - tail - sed)))) +;; Time-stamp: <2020-04-01 22:13:15 (tslil@bison)> (defun banish-rat () (interactive) @@ -112,37 +98,6 @@ (interactive (list (read-shell-command "$ "))) (start-process-shell-command command nil command))) - ;; Volume - (exwm-input-set-key (kbd "") - (lambda () - (interactive) - (adjust-volume "Master" "+"))) - - (exwm-input-set-key (kbd "") - (lambda () - (interactive) - (adjust-volume "Master" "-"))) - - (exwm-input-set-key (kbd "") - (lambda () - (interactive) - (adjust-volume "Master" "toggle"))) - - (exwm-input-set-key (kbd "S-") - (lambda () - (interactive) - (adjust-volume "Headphone" "+"))) - - (exwm-input-set-key (kbd "S-") - (lambda () - (interactive) - (adjust-volume "Headphone" "-"))) - - (exwm-input-set-key (kbd "S-") - (lambda () - (interactive) - (adjust-volume "Headphone" "toggle"))) - ;; ------------------------------------------------------------------- ;; RandR -- cgit v1.2.3