summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2022-01-04 00:40:34 -0600
committerCase Duckworth2022-01-04 00:40:34 -0600
commit20e6b48dfb5e15f061b5e79c448b2ed9ea2ab087 (patch)
tree71140a8ef9f49f0f7c63f078422087ab86064683
parentAdd more crux stuff (diff)
downloademacs-20e6b48dfb5e15f061b5e79c448b2ed9ea2ab087.tar.gz
emacs-20e6b48dfb5e15f061b5e79c448b2ed9ea2ab087.zip
Bind transpose-frame commands
-rw-r--r--init.el13
1 files changed, 12 insertions, 1 deletions
diff --git a/init.el b/init.el index 7a98669..9a61502 100644 --- a/init.el +++ b/init.el
@@ -1193,7 +1193,18 @@ See also `crux-reopen-as-root-mode'."
1193 0)))) 1193 0))))
1194 (funcall topsy-fn)))))) 1194 (funcall topsy-fn))))))
1195 1195
1196(setup (:straight transpose-frame)) 1196(setup (:straight transpose-frame)
1197 (defvar +transpose-frame-map
1198 (let ((map (make-sparse-keymap)))
1199 (dolist (bind '(("t" . transpose-frame)
1200 ("v" . flip-frame)
1201 ("h" . flop-frame)
1202 ("r" . rotate-frame-clockwise)
1203 ("R" . rotate-frame-anticlockwise)))
1204 (define-key map (car bind) (cdr bind)))
1205 map)
1206 "Map for transposing frames.")
1207 (define-key +key-mode-map (kbd "C-x 5 t") +transpose-frame-map))
1197 1208
1198(setup (:straight trashed) 1209(setup (:straight trashed)
1199 (:option trashed-action-confirmer #'y-or-n-p)) 1210 (:option trashed-action-confirmer #'y-or-n-p))