From 20e6b48dfb5e15f061b5e79c448b2ed9ea2ab087 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 4 Jan 2022 00:40:34 -0600
Subject: Bind transpose-frame commands

---
 init.el | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'init.el')

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'."
                           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))
-- 
cgit 1.4.1-21-gabe81