Commit 57e4b77646b1

Vincent Demeester <vincent@sbr.pm>
2019-03-20 19:59:10
Migrate shrink/enlarge windows to an hydra
Signed-off-by: Vincent Demeester <vincent@sbr.pm>
1 parent 24f0dcb
lisp/setup-hydras.el
@@ -24,6 +24,14 @@
   ("0" (text-scale-set 0) :bind nil :exit t)
   ("1" (text-scale-set 0) nil :bind nil :exit t))
 
+;; Better shrink/enlarge windows
+(defhydra hydra-resize (global-map "<f2>")
+  "resize windows"
+  ("<up>" enlarge-window "enlarge")
+  ("<down>" shrink-window "shrink")
+  ("<left>" shrink-window-horizontally "shrink horizontaly")
+  ("<right>" enlarge-window-horizontally "enlarge horizontaly"))
+
 (defvar hide-mode-line-mode nil)
 (defvar whitespace-mode nil)
 (defhydra hydra-toggle (:color pink :hint nil)
lisp/setup-windows.el
@@ -8,13 +8,6 @@
 (use-package fullframe                 ; Generalized execution in a single frame
   :defer 2)
 
-;; Better shrink/enlarge windows
-(bind-keys*
- ("M-S-<up>"    . enlarge-window)
- ("M-S-<down>"  . shrink-window)
- ("M-S-<left>"  . shrink-window-horizontally)
- ("M-S-<right>" . enlarge-window-horizontally))
-
 ;;;###autoload
 (defun vde/window-split-toggle ()
   "Toggle between horizontal and vertical split with two windows."