diff options
| -rw-r--r-- | doom/.config/doom/+exwm.el | 60 |
1 files changed, 60 insertions, 0 deletions
diff --git a/doom/.config/doom/+exwm.el b/doom/.config/doom/+exwm.el new file mode 100644 index 0000000..beab45e --- /dev/null +++ b/doom/.config/doom/+exwm.el @@ -0,0 +1,60 @@ +;;; $DOOMDIR/+exwm.el -*- lexical-binding: t; -*- +(when (getenv "USE_EXWM") + (use-package! exwm + :config + (require 'exwm-randr) + (exwm-randr-enable) + + (setq exwm-manage-configurations + '(((string= exwm-class-name "confirmreset") floating t) + ((string= exwm-class-name "makebranch") floating t) + ((string= exwm-class-name "maketag") floating t) + ((string= exwm-class-name "ssh-askpass") floating t) + ((string= exwm-class-name "Blueman-manager") floating t) + ((string= exwm-class-name "Pavucontrol") floating t) + ((string= exwm-title "branchdialog") floating t) + ((string= exwm-title "pinentry") floating t))) + + (setq exwm-input-prefix-keys '(?\s-x)) + + (setq exwm-input-global-keys + `((,(kbd "s-<return>") . (lambda () (interactive) (start-process-shell-command "term" nil "alacritty"))) + (,(kbd "s-p") . (lambda () (interactive) (start-process-shell-command "dmenu" nil "j4-dmenu-desktop"))) + (,(kbd "s-c") . (lambda () (interactive) (start-process-shell-command "emacs" nil "emacs"))) + (,(kbd "s-t") . (lambda () (interactive) (start-process-shell-command "thunderbird" nil "thunderbird"))) + (,(kbd "s-w") . (lambda () (interactive) (start-process-shell-command "vivaldi" nil "vivaldi"))) + (,(kbd "s-e") . (lambda () (interactive) (start-process-shell-command "thunar" nil "thunar"))) + (,(kbd "s-s") . (lambda () (interactive) (start-process-shell-command "vesktop" nil "vesktop"))) + (,(kbd "s-x") . (lambda () (interactive) (start-process-shell-command "lock" nil "loginctl lock-session"))) + (,(kbd "s-m") . (lambda () (interactive) (start-process-shell-command "ncmpcpp" nil "alacritty -e ncmpcpp"))) + (,(kbd "<print>") . (lambda () (interactive) (start-process-shell-command "screenshot" nil "screenshot"))) + (,(kbd "S-<print>") . (lambda () (interactive) (start-process-shell-command "screenrecord" nil "screenrecord"))) + (,(kbd "s-S-s") . (lambda () (interactive) (start-process-shell-command "screenshot-select" nil "screenshot select"))) + (,(kbd "s-S-r") . (lambda () (interactive) (start-process-shell-command "screenrecord-select" nil "screenrecord select"))) + (,(kbd "s-q") . kill-buffer) + (,(kbd "s-f") . exwm-layout-toggle-fullscreen) + (,(kbd "s-.") . exwm-workspace-switch-create) + (,(kbd "<XF86AudioRaiseVolume>") . (lambda () (interactive) (start-process-shell-command "vol-up" nil "wpctl set-volume @DEFAULT_AUDIO_SINK@ 5%+"))) + (,(kbd "<XF86AudioLowerVolume>") . (lambda () (interactive) (start-process-shell-command "vol-down" nil "wpctl set-volume @DEFAULT_AUDIO_SINK@ 5%-"))) + (,(kbd "<XF86AudioMute>") . (lambda () (interactive) (start-process-shell-command "vol-mute" nil "wpctl set-mute @DEFAULT_AUDIO_SINK@ toggle"))) + (,(kbd "<XF86AudioPlay>") . (lambda () (interactive) (start-process-shell-command "play" nil "playerctl play-pause"))) + (,(kbd "<XF86AudioNext>") . (lambda () (interactive) (start-process-shell-command "next" nil "playerctl next"))) + (,(kbd "<XF86AudioPrev>") . (lambda () (interactive) (start-process-shell-command "prev" nil "playerctl previous"))) + (,(kbd "<XF86AudioStop>") . (lambda () (interactive) (start-process-shell-command "stop" nil "playerctl stop"))) + (,(kbd "<XF86MonBrightnessUp>") . (lambda () (interactive) (start-process-shell-command "bright-up" nil "brightnessctl set +5%"))) + (,(kbd "<XF86MonBrightnessDown>") . (lambda () (interactive) (start-process-shell-command "bright-down" nil "brightnessctl set 5%-"))))) + + (use-package! edwina + :config + (edwina-mode 1) + (setq exwm-input-global-keys + (append exwm-input-global-keys + `((,(kbd "s-j") . edwina-select-next-window) + (,(kbd "s-k") . edwina-select-previous-window) + (,(kbd "s-h") . edwina-dec-mfact) + (,(kbd "s-l") . edwina-inc-mfact) + (,(kbd "s-S-h") . edwina-dec-nmaster) + (,(kbd "s-S-l") . edwina-inc-nmaster) + (,(kbd "s-<tab>") . edwina-cycle-layout))))) + + (exwm-enable))) |