diff --git a/spacemacs/funcs.el b/spacemacs/funcs.el index 8af355b93..c723da653 100644 --- a/spacemacs/funcs.el +++ b/spacemacs/funcs.el @@ -736,51 +736,6 @@ otherwise it is scaled down." ;;; end scale font micro-state -;;; begin resize window micro-state - -(defun spacemacs//resize-window-micro-state-doc () - (echo (format - "[%sx%s] Resize window: (H/L) shrink/enlarge horizontally, (J/K) shrink/enlarge vertically" - (window-total-width) (window-total-height)))) - -(defun spacemacs/resize-window-overlay-map () - "Set a temporary overlay map to easily resize a window." - (interactive) - (set-temporary-overlay-map - (let ((map (make-sparse-keymap))) - (define-key map (kbd "H") 'spacemacs/shrink-window-horizontally) - (define-key map (kbd "J") 'spacemacs/shrink-window) - (define-key map (kbd "K") 'spacemacs/enlarge-window) - (define-key map (kbd "L") 'spacemacs/enlarge-window-horizontally) - map) t) - (spacemacs//resize-window-micro-state-doc)) - -(defun spacemacs/shrink-window-horizontally (delta) - "Wrap `spacemacs/shrink-window-horizontally'." - (interactive "p") - (shrink-window delta t) - (spacemacs/resize-window-overlay-map)) - -(defun spacemacs/shrink-window (delta) - "Wrap `spacemacs/shrink-window'." - (interactive "p") - (shrink-window delta) - (spacemacs/resize-window-overlay-map)) - -(defun spacemacs/enlarge-window (delta) - "Wrap `spacemacs/enlarge-window'." - (interactive "p") - (enlarge-window delta) - (spacemacs/resize-window-overlay-map)) - -(defun spacemacs/enlarge-window-horizontally (delta) - "Wrap `spacemacs/enlarge-window-horizontally'." - (interactive "p") - (enlarge-window delta t) - (spacemacs/resize-window-overlay-map)) - -;;; end resize window micro-state - (defmacro spacemacs|diminish (mode unicode &optional ascii) "Diminish MODE name in mode line to UNICODE or ASCII depending on the value `dotspacemacs-mode-line-unicode-symbols'. @@ -850,8 +805,31 @@ If ASCII si not provided then UNICODE is used instead." (start-process "" nil "xdg-open" file-path))) ))) -(defun spacemacs//window-manipulation-documentation () - "Window navigation micro-state +;; Window Manipulation Micro State + +(defun spacemacs/shrink-window-horizontally (delta) + "Wrap `spacemacs/shrink-window-horizontally'." + (interactive "p") + (shrink-window delta t)) + +(defun spacemacs/shrink-window (delta) + "Wrap `spacemacs/shrink-window'." + (interactive "p") + (shrink-window delta)) + +(defun spacemacs/enlarge-window (delta) + "Wrap `spacemacs/enlarge-window'." + (interactive "p") + (enlarge-window delta)) + +(defun spacemacs/enlarge-window-horizontally (delta) + "Wrap `spacemacs/enlarge-window-horizontally'." + (interactive "p") + (enlarge-window delta t)) + +(spacemacs|define-micro-state window-manipulation + :documentation + "Window Manipulation micro-state h,j,k,l to go to left|bottom|top|right H,J,K,L to move windows to to far/very left|bottom|top|right R to Rotate windows @@ -859,10 +837,9 @@ If ASCII si not provided then UNICODE is used instead." -,/ to split windows bellow|right and focus u,U restore previous|next window configuration o/w other frame|window -Press any other key to exit.") - -(spacemacs|define-micro-state window-manipulation - :documentation (spacemacs//window-manipulation-documentation) + [,] to shrink/enlarge horizontaly + {,} to shrink/enlarge verticaly +Press any other key to exit." :bindings ("h" evil-window-left) ("j" evil-window-down) @@ -877,15 +854,18 @@ Press any other key to exit.") ("C" delete-other-windows) ("-" split-window-below-and-focus) ("/" split-window-right-and-focus) - ("s" split-window-below-and-focus) - ("v" split-window-right-and-focus) + ("s" split-window-below) + ("v" split-window-right) + ("S" split-window-below-and-focus) + ("V" split-window-right-and-focus) ("u" winner-undo) ("U" winner-redo) ("o" other-frame) ("w" other-window) - ;; ("[" spacemacs/shrink-window-horizontally) - ;; ("]" spacemacs/enlarge-window-horizontally) - ;; ("{" spacemacs/shrink-window) - ;; ("}" spacemacs/enlarge-window) - ("?" spacemacs/window-manipulation-micro-state) + ("[" spacemacs/shrink-window-horizontally) + ("]" spacemacs/enlarge-window-horizontally) + ("{" spacemacs/shrink-window) + ("}" spacemacs/enlarge-window) ) + +;; end of Window Manipulation Micro State diff --git a/spacemacs/keybindings.el b/spacemacs/keybindings.el index 1259c3c82..abce3ef44 100644 --- a/spacemacs/keybindings.el +++ b/spacemacs/keybindings.el @@ -243,7 +243,6 @@ "wM" 'toggle-maximize-centered-buffer "wm" 'toggle-maximize-buffer "wo" 'other-frame - "wr" 'spacemacs/resize-window-overlay-map "wR" 'rotate-windows ;; "wv" 'evenly-split-window-below) "ws" 'split-window-below