;; Experimenting

(defvar-keymap windmove-repeat-map
  :repeat t
  "<left>" #'windmove-left
  "S-<left>" #'windmove-swap-states-left
  "<right>" #'windmove-right
  "S-<right>" #'windmove-swap-states-right
  "<up>" #'windmove-up
  "S-<up>" #'windmove-swap-states-up
  "<down>" #'windmove-down
  "S-<down>" #'windmove-swap-states-down)