Small EXWM tweaks

[~bandali/configs] / .emacs.d / lisp / bandali-exwm.el

diff --git a/.emacs.d/lisp/bandali-exwm.el b/.emacs.d/lisp/bandali-exwm.el
index 4395d61..f94757d 100644 (file)
--- a/.emacs.d/lisp/bandali-exwm.el
+++ b/.emacs.d/lisp/bandali-exwm.el
@@ -61,7 +61,7 @@ around if needed."
 ;; shorten 'C-c C-q' to 'C-q'
 (define-key exwm-mode-map [?\C-q] #'exwm-input-send-next-key)
 
-(csetq exwm-workspace-number 4
+(csetq exwm-workspace-number 10
        exwm-input-global-keys
        `(([?\s-R] . exwm-reset)
          ([?\s-\\] . exwm-workspace-switch)
@@ -125,20 +125,29 @@ around if needed."
                        (interactive)
                        (start-process-shell-command
                         "rofi-light" nil "rofi-light")))
-         ([XF86AudioMute] .
+         ([XF86AudioMute] .             ; borken on my X200 :-(
           (lambda ()
             (interactive)
-            (start-process "" nil "amixer" "set" "'Master',0" "toggle")))
+            (start-process "" nil "pamixer" "--toggle-mute")))
+         ([XF86Launch1] .
+          (lambda ()
+            (interactive)
+            (start-process "" nil "pamixer" "--toggle-mute")))
+         ([\s-XF86Launch1] .            ; toggle mic mute
+          (lambda ()
+            (interactive)
+            (start-process
+             "" nil "pamixer" "--default-source" "--toggle-mute")))
          ([XF86AudioLowerVolume] .
           (lambda ()
             (interactive)
             (start-process
-             "" nil "amixer" "set" "'Master',0" "5%-")))
+             "" nil "pamixer" "--allow-boost" "--decrease" "5")))
          ([XF86AudioRaiseVolume] .
           (lambda ()
             (interactive)
             (start-process
-             "" nil "amixer" "set" "'Master',0" "5%+")))
+             "" nil "pamixer" "--allow-boost" "--increase" "5")))
          ([XF86AudioPlay] .
           (lambda ()
             (interactive)
@@ -194,7 +203,7 @@ around if needed."
           (lambda ()
             (when exwm-class-name
               (cond
-               ((string= exwm-class-name "IceCat")
+               ((member exwm-class-name '("IceCat" "Iceweasel"))
                 (exwm-input-set-local-simulation-keys
                  `(,@exwm-input-simulation-keys
                    ([?\C-\S-d] . [?\C-d]))))