[Emacs] EXWM loads only with argument --with-exwm passed to Emacs

This commit is contained in:
Lucien Cartier-Tilet 2021-06-16 14:30:38 +02:00
parent bf615d4e81
commit 93ba4d692a
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA

View File

@ -2351,43 +2351,46 @@ Ill also create a fuction for connecting to this new Tramp protocol:
:CUSTOM_ID: Packages-Configuration-EXWM6vx4fl6184j0
:END:
#+begin_src emacs-lisp
(defvar phundrak/exwm-enabled (and (seq-contains command-line-args "--use-exwm")))
(defvar phundrak/exwm-enabled (and (seq-contains command-line-args "--with-exwm")))
(use-package xelb
:if phundrak/exwm-enabled
:straight (:build t))
(use-package exwm
:straight (:build t)
:after (xelb)
:if phundrak/exwm-enabled
:after xelb
:init
(setq mouse-autoselect-window nil
focus-follows-mouse t
exwm-workspace-warp-cursor t)
:config
(setq exwm-input-global-keys
`(([?\s-r] . exwm-reset)
([?\s-w] . exwm-workspace-switch)
,@(mapcar (lambda (i)
`(,(kbd (format "s-%s" (car i))) .
(lambda ()
(interactive)
(exwm-workspace-switch-create ,(cdr i)))))
'(("\"" . 1)
("«" . 2)
("»" . 3)
("(" . 4)
(")" . 5)
("@" . 6)
("+" . 7)
("-" . 8)
("/" . 9)
("*" . 0)))))
(add-hook 'exwm-update-class-hook
(lambda ()
(exwm-workspace-rename-buffer exwm-class-name)))
(require 'exwm-config)
(exwm-config-default)
(exwm-enable))
(when phundrak/exwm-enabled
(setq exwm-input-global-keys
`(([?\s-r] . exwm-reset)
([?\s-w] . exwm-workspace-switch)
,@(mapcar (lambda (i)
`(,(kbd (format "s-%s" (car i))) .
(lambda ()
(interactive)
(exwm-workspace-switch-create ,(cdr i)))))
'(("\"" . 1)
("«" . 2)
("»" . 3)
("(" . 4)
(")" . 5)
("@" . 6)
("+" . 7)
("-" . 8)
("/" . 9)
("*" . 0)))))
(add-hook 'exwm-update-class-hook
(lambda ()
(exwm-workspace-rename-buffer exwm-class-name)))
(require 'exwm-config)
(exwm-config-default)
(exwm-enable)))