[Emacs] EXWM loads only with argument --with-exwm
passed to Emacs
This commit is contained in:
parent
bf615d4e81
commit
93ba4d692a
@ -2351,43 +2351,46 @@ I’ll 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)))
|
||||
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user