[Emacs] Remove EXWM

This commit is contained in:
Lucien Cartier-Tilet 2021-10-12 11:30:24 +02:00
parent 5136217664
commit c12164d9bb
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA
1 changed files with 0 additions and 56 deletions

View File

@ -2673,62 +2673,6 @@ Ill also create a fuction for connecting to this new Tramp protocol:
(magit-status "/yadm::"))
#+end_src
** EXWM
:PROPERTIES:
:CUSTOM_ID: Packages-Configuration-EXWM6vx4fl6184j0
:END:
#+begin_src emacs-lisp
(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)
: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)
,@(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)))
(use-package desktop-environment
:if phundrak/exwm-enabled
:after exwm
:straight (:build t))
#+end_src
#+RESULTS:
** Making my life easier
:PROPERTIES:
:CUSTOM_ID: Packages-Configuration-Making-my-life-easier2kz4fl6184j0