acdw/emacs
acdw
/
emacs
1
2
Fork 0
Code Issues 4 Pull Requests Releases Activity

Bind transpose-frame commands

This commit is contained in:
Case Duckworth 2022-01-04 00:40:34 -06:00
parent 800aff8342
commit 20e6b48dfb
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
init.el
View File

@ -1193,7 +1193,18 @@ See also `crux-reopen-as-root-mode'."
0))))
(funcall topsy-fn))))))
(setup (:straight transpose-frame))
(setup (:straight transpose-frame)
(defvar +transpose-frame-map
(let ((map (make-sparse-keymap)))
(dolist (bind '(("t" . transpose-frame)
("v" . flip-frame)
("h" . flop-frame)
("r" . rotate-frame-clockwise)
("R" . rotate-frame-anticlockwise)))
(define-key map (car bind) (cdr bind)))
map)
"Map for transposing frames.")
(define-key +key-mode-map (kbd "C-x 5 t") +transpose-frame-map))
(setup (:straight trashed)
(:option trashed-action-confirmer #'y-or-n-p))