Adding transposing frame capability

* init.el ("transpose-frame"): Use the package.

2 files changed, 7 insertions, 0 deletions

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)