From c483527055aa91a230e965faf0f557c75a2626dd Mon Sep 17 00:00:00 2001
From: Thomas Schneider <qsx@chaotikum.eu>
Date: Mon, 26 Aug 2024 16:44:07 +0200
Subject: Emacs: Add transpose-frame

---
 dot.emacs.d/init.el | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'dot.emacs.d/init.el')

diff --git a/dot.emacs.d/init.el b/dot.emacs.d/init.el
index 772baf9..4cc99b1 100644
--- a/dot.emacs.d/init.el
+++ b/dot.emacs.d/init.el
@@ -131,6 +131,19 @@
 	 ("C-c m f" . #'magit-file-popup)
 	 ("C-c m d" . #'magit-diff-buffer-file)))
 
+(use-package transpose-frame
+  :init
+  (dolist (i '(("j" . transpose-frame)
+               ("i" . flip-frame)
+               ("o" . flop-frame)
+               ("r" . rotate-frame)
+               ("c" . rotate-frame-clockwise)
+               ("C" . rotate-frame-anticlockwise)))
+    (dolist (p '("s-j " "s-j s-"))
+      (bind-key
+       (concat p (car i))
+       (cdr i)))))
+
 (use-package ace-window
   :bind ("M-o" . ace-window)
   :config (setq aw-scope 'frame))
-- 
cgit v1.2.3