[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
1 changed files with 29 additions and 26 deletions

View File

@ -2351,19 +2351,22 @@ 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
(when phundrak/exwm-enabled
(setq exwm-input-global-keys
`(([?\s-r] . exwm-reset)
([?\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)))
(require 'exwm-config)
(exwm-config-default)
(exwm-enable))
(exwm-enable)))