blob: 49c9f631a3139f531f55eb8f760a03c364cc32da (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
|
;;; ui-navigation --- Managing Cursor Placement, Buffers, and Windows -*- lexical-binding: t; -*-
;; author Craig Jennings <c@cjennings.net>
;;; Commentary:
;; Window/Frame Navigation
;; This section handles situations where we're nagivating with more than one window
;; 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
;;; 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
:config
(windsize-default-keybindings))
;; M-shift = to balance multiple split windows
(global-set-key (kbd "M-+") 'balance-windows)
;; ------------------------------ Window Splitting -----------------------------
;; SPLIT VERTICALLY
(defun split-and-follow-right ()
"Open a new window horizontally to the right of the current window.
Open ibuffer in the other window for easy buffer selection."
(interactive)
(split-window-right)
(other-window 1)
(ibuffer))
(global-set-key (kbd "M-V") 'split-and-follow-right)
;; SPLIT HORIZONTALLY
(defun split-and-follow-below ()
"Open a new window vertically below the current window.
Open ibuffer in the other window for easy buffer selection."
(interactive)
(split-window-below)
(other-window 1)
(ibuffer))
(global-set-key (kbd "M-H") 'split-and-follow-below)
;; ------------------------- Split Window Reorientation ------------------------
(defun toggle-window-split ()
"Toggle the orientation fo the window split.
If the window is split horizontally, change the split to be vertical.
If it's vertical, change the split to be 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
(use-package buffer-move
;; :straight (buffer-move :type git :host github :repo "lukhas/buffer-move"
;; :fork (:host github :repo "cjennings/buffer-move"))
:bind
("M-S-<down>" . 'buf-move-down)
("M-S-<up>" . 'buf-move-up)
("M-S-<left>" . 'buf-move-left)
("M-S-<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")
(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)
(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-mode
:ensure nil ;; built-in
:defer .5
:bind ("<f5>" . winner-undo))
(provide 'ui-navigation)
;;; ui-navigation.el ends here
|
