;;; $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)))