Window Management

Window moving

(defhydra hydra-window (:color red)
  "
 Split: _v_ert _x_:horz
Delete: _o_nly  _da_ce  _dw_indow  _db_uffer  _df_rame
  Move: _s_wap
Frames: _f_rame new  _df_ delete
  Misc: _m_ark _a_ce  _u_ndo  _r_edo"
  ("h" windmove-left nil)
  ("j" windmove-down nil)
  ("k" windmove-up nil)
  ("l" windmove-right nil)
  ("H" hydra-move-splitter-left nil)
  ("J" hydra-move-splitter-down nil)
  ("K" hydra-move-splitter-up nil)
  ("L" hydra-move-splitter-right nil)
  ("|" (lambda ()
         (interactive)
         (split-window-right)
         (windmove-right)) nil)
  ("_" (lambda ()
         (interactive)
         (split-window-below)
         (windmove-down)) nil)
  ("v" split-window-right nil)
  ("x" split-window-below nil)
  ;("t" transpose-frame "'")
  ("u" winner-undo nil)
  ("r" winner-redo nil) ;;Fixme, not working?
  ("o" delete-other-windows nil :exit t)
  ("a" ace-window nil :exit t)
  ("f" new-frame nil :exit t)
  ("s" ace-swap-window nil)
  ("da" ace-delete-window nil)
  ("dw" delete-window nil)
  ("db" kill-this-buffer nil)
  ("df" delete-frame nil :exit t)
  ("q" nil nil)
  ;("i" ace-maximize-window "ace-one" :color blue)
  ;("b" ido-switch-buffer "buf")
  ("m" headlong-bookmark-jump nil))