;;; init-exwm.el --- exwm config  -*- lexical-binding: t -*-

;;; Commentary:

;;; Code:

(when *is-linux*
  (use-package exwm
    :config
    (setq pop-up-windows nil)
    (setq exwm-workspace-number 1)
    (exwm-input-set-key (kbd "s-&")
                        (lambda (command)
                          (interactive (list (read-shell-command "$ ")))
                          (let ((display-buffer-alist
                                 '((".*" . (display-buffer-no-window . nil)))))
                            (async-shell-command command))))

    (defun my--exwm-switch-to-workspace (delta)
      (let ((target
             (mod (+ exwm-workspace-current-index delta)
                  (length exwm-workspace--list))))
        (exwm-workspace-switch target)))

    (defun my-exwm-next-workspace ()
      "Switch to next exwm workspace."
      (interactive)
      (my--exwm-switch-to-workspace 1)
      (if  (= 1 (length exwm-workspace--list))
          (message "No next workspace")))

    (defun my-exwm-previous-workspace ()
      "Switch to previous exwm workspace."
      (interactive)
      (my--exwm-switch-to-workspace -1)
      (if  (= 1 (length exwm-workspace--list))
          (message "No previous workspace")))

    (global-set-key (kbd "s-]") 'my-exwm-next-workspace)
    (global-set-key (kbd "s-[") 'my-exwm-previous-workspace)

    (add-to-list 'global-mode-string
                 '(:eval (propertize (format " WS:%d " exwm-workspace-current-index)
                                     'face 'mode-line-emphasis))
                 t)

    (setq exwm-input-prefix-keys
          '(?\C-x
            ?\C-u
            ?\C-c
            ?\C-h
            ?\M-x
            ?\M-o
            ?\M-[
                 ?\M-]
            ?\s-[
                 ?\s-]
	    ?\s- 
            XF86AudioLowerVolume
            XF86AudioRaiseVolume
            XF86AudioMute
            ))
    (define-key exwm-mode-map [?\C-q] 'exwm-input-send-next-key)

    (setq exwm-input-global-keys
          `(([?\s-r] . exwm-reset)
            ([?\s-b] . windmove-left)
            ([?\s-f] . windmove-right)
            ([?\s-p] . windmove-up)
            ([?\s-n] . windmove-down)
            ([?\s-S] . desktop-environment-screenshot)
            ([?\s-s] . desktop-environment-screenshot-part)
            ([?\s-w] . exwm-workspace-switch)
            ([?\s-o] . other-window)
	    ([?\s-m] . exwm-layout-toggle-mode-line)
            ([?\s-`] . (lambda () (interactive) (exwm-workspace-switch-create 0)))
            ,@(mapcar (lambda (i)
                        `(,(kbd(format "s-%d" i)) .
                          (lambda ()
                            (interactive)
                            (exwm-workspace-switch-create ,i))))
                      (number-sequence 0 9))))

    (setq exwm-input-simulation-keys
	  `((,(kbd "C-f") . [right])
	    (,(kbd "C-b") . [left])
	    (,(kbd "C-p") . [up])
	    (,(kbd "C-n") . [down])
	    (,(kbd "C-a") . [home])
	    (,(kbd "C-e") . [end])
	    (,(kbd "M-f") . [C-right])
	    (,(kbd "A-f") . [C-right])
	    (,(kbd "M-b") . [C-left])
	    (,(kbd "A-b") . [C-left])
	    (,(kbd "C-d") . [delete])
	    (,(kbd "C-k") . [S-end delete])
	    (,(kbd "M-<backspace>") . ,(kbd "C-<backspace>"))
	    (,(kbd "M-d")  . ,(kbd "C-<delete>"))
	    (,(kbd "M-w") . [?\C-c])
	    (,(kbd "C-y") . [?\C-v])
	    (,(kbd "C-w") . [?\C-x])
	    (,(kbd "C-/") . [?\C-z])
	    (,(kbd "C-?") . ,(kbd "C-S-z"))))

    (defun my/exwm-update-class ()
      (exwm-workspace-rename-buffer exwm-class-name))
    (add-hook 'exwm-update-class-hook #'my/exwm-update-class)

    (require 'exwm-xim)
    (exwm-xim-mode)
    (exwm-wm-mode))

  (use-package desktop-environment
    :after exwm
    :init
    (desktop-environment-mode)
    :config
    (advice-add 'desktop-environment-screenshot :after
                (lambda (&rest _) (message "Saved fullscreen screenshot.")))
    (advice-add 'desktop-environment-screenshot-part :after
                (lambda (&rest _) (message "Saved partial screenshot.")))
    :custom
    (desktop-environment-screenshot-command
     "import -window root ~/Pictures/screenshot-$(date +%Y%m%d-%H%M%S).png")
    (desktop-environment-screenshot-partial-command
     "import ~/Pictures/screenshot-$(date +%Y%m%d-%H%M%S).png"))

  (add-hook 'exwm-init-hook
            (lambda ()
	      (restart-fcitx5)
              (my-desktop-init)))
  
  (use-package xdg-launcher
    :demand t
    :after exwm
    :straight
    (xdg-launcher :type git
		  :host github
		  :repo "emacs-exwm/xdg-launcher")
    :bind
    (("s-SPC" . xdg-launcher-run-app))    
    :init
    (with-eval-after-load 'consult
      (unless (memq 'xdg-launcher-consult-source consult-buffer-sources)
	(setq consult-buffer-sources
	      (append consult-buffer-sources '(xdg-launcher-consult-source))))))

  (use-package debase
    :straight
    (debase :type git
	    :host codeberg
	    :repo "emacs-weirdware/debase"))

  (use-package discomfort
    :commands discomfort
    :straight
    (discomfort :type git
		:host codeberg
		:repo "emacs-weirdware/discomfort")))

(provide 'init-exwm)

;;; init-exwm.el ends here