(require 'exwm)
(require 'exwm-config)

(require 'exwm-systemtray)
(exwm-systemtray-enable)

(setq exwm-input-simulation-keys
      '(([?\C-b] . [left])
        ([?\C-f] . [right])
        ([?\C-p] . [up])
        ([?\C-n] . [down])
        ([?\C-a] . [home])
        ([?\C-e] . [end])
        ([?\M-v] . [prior])
        ([?\C-v] . [next])
        ([?\C-d] . [delete])
        ([?\C-k] . [S-end C-x])
        ([?\C-s] . [C-f])
        ([?\C-y] . [C-v])
        ([?\C-w] . [C-x])
        ([?\M-w] . [C-c])))
(put 'exwm-input-simulation-keys 'saved-value t)

(require 'exwm-edit)
(add-hook 'exwm-edit-compose-hook
          (lambda () (funcall 'markdown-mode)))

(call-process-shell-command "setxkbmap -option ctrl:nocaps")

(defun exwm-rename-buffer ()
  (interactive)
  (exwm-workspace-rename-buffer
   (concat exwm-class-name ":"
           (if (<= (length exwm-title) 50) exwm-title
             (concat (substring exwm-title 0 49) "...")))))
(add-hook 'exwm-update-class-hook 'exwm-rename-buffer)
(add-hook 'exwm-update-title-hook 'exwm-rename-buffer)

(exwm-config-example)