diff options
| author | Case Duckworth | 2022-01-04 00:40:34 -0600 |
|---|---|---|
| committer | Case Duckworth | 2022-01-04 00:40:34 -0600 |
| commit | 20e6b48dfb5e15f061b5e79c448b2ed9ea2ab087 (patch) | |
| tree | 71140a8ef9f49f0f7c63f078422087ab86064683 | |
| parent | Add more crux stuff (diff) | |
| download | emacs-20e6b48dfb5e15f061b5e79c448b2ed9ea2ab087.tar.gz emacs-20e6b48dfb5e15f061b5e79c448b2ed9ea2ab087.zip | |
Bind transpose-frame commands
| -rw-r--r-- | init.el | 13 |
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)) |