From 5c641904e77d817a0fc793dee6949ce1f0fbae84 Mon Sep 17 00:00:00 2001 From: Christopher James Hayward Date: Thu, 4 Feb 2021 12:50:12 -0500 Subject: [PATCH] Use custom instead of setq --- modules/desktop.el | 34 ++++++++++++++++------------------ 1 file changed, 16 insertions(+), 18 deletions(-) diff --git a/modules/desktop.el b/modules/desktop.el index 55107ce..7c44891 100644 --- a/modules/desktop.el +++ b/modules/desktop.el @@ -21,23 +21,21 @@ (dotfiles/run-in-background "autorandr --change --force")) (use-package exwm - :config - (require 'exwm-randr) - (exwm-randr-enable) - (add-hook 'exwm-init-hook #'dotfiles/init-hook) - (add-hook 'exwm-randr-screen-change-hook #'dotfiles/update-display) - (dotfiles/update-display) - (setq exwm-input-prefix-keys - '(?\M-x - ?\C-g - ?\C-\ ) - exwm-input-global-keys - `(([?\s-r] . exwm-reset) - ([?\s-&] . dotfiles/run) - ,@(mapcar (lambda (i) - `(,(kbd (format "s-%d" i)) . - (lambda () + :custom (exwm-input-prefix-keys + '(?\M-x + ?\C-g + ?\C-\ )) + (exwm-input-global-keys + `(([?\s-r] . exwm-reset) + ,@(mapcar (lambda (i) + `(,(kbd (format "s-%d" i)) . + (lambda () (interactive) (exwm-workspace-switch-create ,i)))) - (number-sequence 1 9)))) - (exwm-enable)) + (number-sequence 1 9)))) + :config (require 'exwm-randr) + (exwm-randr-enable) + (add-hook 'exwm-init-hook #'dotfiles/init-hook) + (add-hook 'exwm-randr-screen-change-hook #'dotfiles/update-display) + (dotfiles/update-display) + (exwm-enable))