From 4108bfb79643248821fb1d62cae9a4ac7146f1bc Mon Sep 17 00:00:00 2001
From: JSDurand <mmemmew@gmail.com>
Date: Sun, 24 Jan 2021 01:07:03 +0800
Subject: Adding transposing frame capability

* init.el ("transpose-frame"): Use the package.
---
 init.el     | 6 ++++++
 tab-conf.el | 1 +
 2 files changed, 7 insertions(+)

diff --git a/init.el b/init.el
index f970516..1d238d2 100644
--- a/init.el
+++ b/init.el
@@ -199,6 +199,12 @@ If FUNCTION-NAME is already a valid function, this won't do anything."
 
 (load-config "search-conf.el")
 
+;;; Transpose frame
+
+(use-package "transpose-frame" 'transpose-frame
+  (define-key global-map (vector ?\C-\s-r) #'rotate-frame-clockwise)
+  (define-key global-map (vector ?\C-\s-t) #'transpose-frame))
+
 ;;; server
 
 ;; (cond
diff --git a/tab-conf.el b/tab-conf.el
index 5f9cf83..99f423d 100644
--- a/tab-conf.el
+++ b/tab-conf.el
@@ -7,6 +7,7 @@
 (define-key tab-prefix-map (vector 'tab) 'tab-switcher)
 
 (define-key global-map (vector ?\s-t) #'durand-switch-tab-dwim)
+(define-key global-map (vector ?\s-T) #'tab-switcher)
 
 ;;;###autoload
 (defun durand-switch-tab-dwim (&optional arg)
-- 
cgit v1.2.3-18-g5258