From 06cf685a88df067bd5812f06f1a60da9ed63e21a Mon Sep 17 00:00:00 2001 From: Vincent Ambo Date: Sat, 18 Nov 2017 23:19:15 +0100 Subject: [PATCH] feat(nixos): Configure pulseaudio volume keys --- init/nixos.el | 19 +++++++++++++++++-- 1 file changed, 17 insertions(+), 2 deletions(-) diff --git a/init/nixos.el b/init/nixos.el index edeeca49d..1c874dacd 100644 --- a/init/nixos.el +++ b/init/nixos.el @@ -10,13 +10,23 @@ (s-contains? "NixOS" (if (f-file? os-f) (f-read os-f))))) +(defun pulseaudio-ctl (cmd) + (shell-command (concat "pulseaudio-ctl " cmd)) + (message "Volume command: %s" cmd)) + +(defun volume-mute () (interactive) (pulseaudio-ctl "mute")) +(defun volume-up () (interactive) (pulseaudio-ctl "up")) +(defun volume-down () (interactive) (pulseaudio-ctl "down")) + (defun brightness-up () (interactive) - (shell-command "exec light -A 10")) + (shell-command "exec light -A 10") + (message "Brightness increased")) (defun brightness-down () (interactive) - (shell-command "exec light -U 10")) + (shell-command "exec light -U 10") + (message "Brightness decreased")) (defun lock-screen () (interactive) @@ -54,6 +64,11 @@ ;; Toggle between line-mode / char-mode (exwm-input-set-key (kbd "C-c C-t C-t") #'exwm-input-toggle-keyboard) + ;; Volume keys + (exwm-input-set-key (kbd "") #'volume-mute) + (exwm-input-set-key (kbd "") #'volume-up) + (exwm-input-set-key (kbd "") #'volume-down) + ;; Brightness keys (exwm-input-set-key (kbd "") #'brightness-down) (exwm-input-set-key (kbd "") #'brightness-up)