(use-package ace-window

:bind (:map modi-mode-map

("C-x o" . ace-window))

:config

(progn

(setq aw-keys '(?a ?s ?d ?f ?g ?h ?j ?k ?l))

(defface modi/aw-mode-line-face

'((((background dark)) (:foreground "gray50"))

(t (:foreground "black")))

"Face used for displaying the ace window key in the mode-line.")

;; Patch `aw-update' to use the background sensitive face

(defun aw-update ()

"Update ace-window-path window parameter for all windows."

(avy-traverse

(avy-tree (aw-window-list) aw-keys)

(lambda (path leaf)

(set-window-parameter

leaf 'ace-window-path

(propertize

(apply #'string (reverse path))

'face 'modi/aw-mode-line-face)))))

(ace-window-display-mode 1)))

(provide 'setup-ace-window)