diff options
Diffstat (limited to 'emacs/inits/00-exwm.el')
| -rw-r--r-- | emacs/inits/00-exwm.el | 47 |
1 files changed, 1 insertions, 46 deletions
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 "<XF86AudioRaiseVolume>") - (lambda () - (interactive) - (adjust-volume "Master" "+"))) - - (exwm-input-set-key (kbd "<XF86AudioLowerVolume>") - (lambda () - (interactive) - (adjust-volume "Master" "-"))) - - (exwm-input-set-key (kbd "<XF86Launch1>") - (lambda () - (interactive) - (adjust-volume "Master" "toggle"))) - - (exwm-input-set-key (kbd "S-<XF86AudioRaiseVolume>") - (lambda () - (interactive) - (adjust-volume "Headphone" "+"))) - - (exwm-input-set-key (kbd "S-<XF86AudioLowerVolume>") - (lambda () - (interactive) - (adjust-volume "Headphone" "-"))) - - (exwm-input-set-key (kbd "S-<XF86Launch1>") - (lambda () - (interactive) - (adjust-volume "Headphone" "toggle"))) - ;; ------------------------------------------------------------------- ;; RandR |