[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,19 +2351,22 @@ Ill also create a fuction for connecting to this new Tramp protocol:
:CUSTOM_ID: Packages-Configuration-EXWM6vx4fl6184j0 :CUSTOM_ID: Packages-Configuration-EXWM6vx4fl6184j0
:END: :END:
#+begin_src emacs-lisp #+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 (use-package xelb
:if phundrak/exwm-enabled
:straight (:build t)) :straight (:build t))
(use-package exwm (use-package exwm
:straight (:build t) :straight (:build t)
:after (xelb) :if phundrak/exwm-enabled
:after xelb
:init :init
(setq mouse-autoselect-window nil (setq mouse-autoselect-window nil
focus-follows-mouse t focus-follows-mouse t
exwm-workspace-warp-cursor t) exwm-workspace-warp-cursor t)
:config :config
(when phundrak/exwm-enabled
(setq exwm-input-global-keys (setq exwm-input-global-keys
`(([?\s-r] . exwm-reset) `(([?\s-r] . exwm-reset)
([?\s-w] . exwm-workspace-switch) ([?\s-w] . exwm-workspace-switch)
@ -2387,7 +2390,7 @@ Ill also create a fuction for connecting to this new Tramp protocol:
(exwm-workspace-rename-buffer exwm-class-name))) (exwm-workspace-rename-buffer exwm-class-name)))
(require 'exwm-config) (require 'exwm-config)
(exwm-config-default) (exwm-config-default)
(exwm-enable)) (exwm-enable)))