changing repositories

1 files changed, 154 insertions, 0 deletions

diff --git a/modules/ui-navigation.el b/modules/ui-navigation.el
new file mode 100644
index 00000000..3dd0eeeb
--- /dev/null
+++ b/modules/ui-navigation.el
@@ -0,0 +1,154 @@
+;;; ui-navigation --- Managing Cursor Placement, Buffers, and Windows -*- lexical-binding: t; coding: utf-8; -*-
+;; author Craig Jennings <c@cjennings.net>
+
+;;; Commentary:
+
+;; Window Navigation
+
+;; This section handles situations where we're navigating or arranging windows
+
+;; Shift + arrow keys           =  move the cursors around the windows/buffers
+;; Control + Shift + arrow keys = resize the windows
+;; Meta + Shift + arrow keys    =  move the windows around
+
+;; M-H - split windows, creating a new window horizontally to the right
+;; M-V - split windows, creating a new window vertically to the bottom
+;; M-T - toggle the orientation of the split between horizontal and vertical
+;; M-S - swap window positions
+;; M-C - kill the current window
+;; M-O - kill the other window
+;; M-Z - undo kill buffer
+;; M-U - winner undo (revert to the previous layout)
+
+;; Adjusting Window Sizes
+;; Note: C-s is pressing Control + Super keys
+;; C-s-<left>  move window left
+;; C-s-<right> move window right
+;; C-s-<up>    move window up
+;; C-s-<down>  move window down
+
+;;; Code:
+
+;; ------------------------------ Window Placement -----------------------------
+
+(use-package windmove
+  :defer .5
+  :config
+  (windmove-default-keybindings))  ; move cursor around with shift+arrows
+
+;; ------------------------------ Window Resizing ------------------------------
+
+(use-package windsize
+  :defer .5
+  :bind
+  ("C-s-<left>"  . windsize-left)
+  ("C-s-<right>" . windsize-right)
+  ("C-s-<up>"    . windsize-up)
+  ("C-s-<down>"  . windsize-down))
+
+;; M-shift = to balance multiple split windows
+(global-set-key (kbd "M-+") 'balance-windows)
+
+;; ------------------------------ Window Splitting -----------------------------
+
+(defun cj/split-and-follow-right ()
+  "Split window horizontally and select a buffer to display."
+  (interactive)
+  (split-window-right)
+  (other-window 1)
+  (consult-buffer))
+(global-set-key (kbd "M-V") 'cj/split-and-follow-right)
+
+(defun cj/split-and-follow-below ()
+  "Split window vertically and select a buffer to display."
+  (interactive)
+  (split-window-below)
+  (other-window 1)
+  (consult-buffer))
+(global-set-key (kbd "M-H") 'cj/split-and-follow-below)
+
+;; ------------------------- Split Window Reorientation ------------------------
+
+(defun toggle-window-split ()
+  "Toggle the orientation of the current window split.
+
+If the window is split horizontally, change the split to vertical.
+If it's vertical, change the split to horizontal.
+This function won't work with more than one split window."
+  (interactive)
+  (if (= (count-windows) 2)
+	  (let* ((this-win-buffer (window-buffer))
+			 (next-win-buffer (window-buffer (next-window)))
+			 (this-win-edges (window-edges (selected-window)))
+			 (next-win-edges (window-edges (next-window)))
+			 (this-win-2nd (not (and (<= (car this-win-edges)
+										 (car next-win-edges))
+									 (<= (cadr this-win-edges)
+										 (cadr next-win-edges)))))
+			 (splitter
+			  (if (= (car this-win-edges)
+					 (car (window-edges (next-window))))
+				  'split-window-horizontally
+				'split-window-vertically)))
+		(delete-other-windows)
+		(let ((first-win (selected-window)))
+		  (funcall splitter)
+		  (if this-win-2nd (other-window 1))
+		  (set-window-buffer (selected-window) this-win-buffer)
+		  (set-window-buffer (next-window) next-win-buffer)
+		  (select-window first-win)
+		  (if this-win-2nd (other-window 1))))))
+(global-set-key (kbd "M-T") 'toggle-window-split)
+
+;; SWAP WINDOW POSITIONS
+(global-set-key (kbd "M-S") 'window-swap-states)
+
+;; ---------------------------- Buffer Manipulation ----------------------------
+
+;; MOVE BUFFER
+;; allows changing buffer positions in a layout.
+(use-package buffer-move
+  :bind
+  ("C-M-<down>"  . buf-move-down)
+  ("C-M-<up>"    . buf-move-up)
+  ("C-M-<left>"  . buf-move-left)
+  ("C-M-<right>" . buf-move-right))
+
+
+;; UNDO KILL BUFFER
+(defun cj/undo-kill-buffer (arg)
+  "Re-open the last buffer killed.  With ARG, re-open the nth buffer."
+  (interactive "p")
+  (require 'recentf)
+  (unless recentf-mode
+	(recentf-mode 1))
+  (let ((recently-killed-list (copy-sequence recentf-list))
+		(buffer-files-list
+		 (delq nil (mapcar (lambda (buf)
+							 (when (buffer-file-name buf)
+							   (expand-file-name (buffer-file-name buf))))
+						   (buffer-list)))))
+	(mapc
+	 (lambda (buf-file)
+	   (setq recently-killed-list
+			 (delq buf-file recently-killed-list)))
+	 buffer-files-list)
+	(when recently-killed-list
+	  (find-file
+	   (if arg (nth arg recently-killed-list)
+		 (car recently-killed-list))))))
+(global-set-key (kbd "M-Z") 'cj/undo-kill-buffer)
+
+;; ---------------------------- Undo Layout Changes ----------------------------
+;; allows you to restore your window setup with C-c left-arrow
+;; or redo a window change with C-c right-arrow if you change your mind
+
+(use-package winner
+  :ensure nil ;; built-in
+  :defer .5
+  :bind ("M-U" . winner-undo)
+  :config
+  (winner-mode 1))
+
+(provide 'ui-navigation)
+;;; ui-navigation.el ends here