+(global-set-key
+ (kbd "C-M-o")
+; (kbd "M-p")
+ (defhydra hydra-window ()
+ "window"
+ ("h" windmove-left)
+ ("j" windmove-down)
+ ("l" windmove-right)
+ ("k" windmove-up)
+ ("v" (lambda ()
+ (interactive)
+ (split-window-right)
+ (windmove-right))
+ "vert")
+ ("x" (lambda ()
+ (interactive)
+ (split-window-below)
+ (windmove-down))
+ "horz")
+ ("o" delete-other-windows "one" :color blue)
+ ("a" ace-window "ace")
+ ("s" ace-swap-window "swap")
+ ("d" ace-delete-window "del")
+ ("i" ace-maximize-window "ace-one" :color blue)
+ ("b" ido-switch-buffer "buf")
+ ("u" (progn (winner-undo) (setq this-command 'winner-undo)) "undo")
+ ("i" winner-undo "undo2")
+ ("q" nil "cancel")))
+
+;; define C-space start mark
+