Small EXWM tweaks

* .emacs.d/lisp/bandali-exwm.el: bump `exwm-workspace-number' to 10,
check for Iceweasel in addition to IceCat.

diff --git a/.emacs.d/lisp/bandali-exwm.el b/.emacs.d/lisp/bandali-exwm.el
index ff89112..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)
 
 ;; 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)
        exwm-input-global-keys
        `(([?\s-R] . exwm-reset)
          ([?\s-\\] . exwm-workspace-switch)


@@ -203,7 +203,7 @@ around if needed."
           (lambda ()
             (when exwm-class-name
               (cond
           (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]))))
                 (exwm-input-set-local-simulation-keys
                  `(,@exwm-input-simulation-keys
                    ([?\C-\S-d] . [?\C-d]))))