blob: 0a9864e6b1256ef6b3d59ade7e5874b27369389b (
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
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
|
;;; 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:
(defvar recentf-list)
(defvar recentf-mode)
(declare-function recentf-mode "recentf")
(declare-function consult-buffer "consult")
;; ------------------------------ Window Placement -----------------------------
(use-package windmove
:config
(windmove-default-keybindings)) ; move cursor around with shift+arrows
;; ------------------------------ Window Resizing ------------------------------
(use-package windsize
: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
(keymap-global-set "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))
(keymap-global-set "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))
(keymap-global-set "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))))))
(keymap-global-set "M-T" #'toggle-window-split)
;; SWAP WINDOW POSITIONS
(keymap-global-set "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))))))
(keymap-global-set "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
:bind ("M-U" . winner-undo)
:config
(winner-mode 1))
(provide 'ui-navigation)
;;; ui-navigation.el ends here
|
