From 262aeac003d990c05bbc68c014edc5320a46a45c Mon Sep 17 00:00:00 2001
From: bard <bard@ramiel.attlocal.net>
Date: Sun, 17 Mar 2024 21:16:18 -0400
Subject: fixed/added new keybinds

---
 bard-emacs-modules/bard-emacs-window.el | 19 +++++++++++++------
 1 file changed, 13 insertions(+), 6 deletions(-)

(limited to 'bard-emacs-modules')

diff --git a/bard-emacs-modules/bard-emacs-window.el b/bard-emacs-modules/bard-emacs-window.el
index 2cdd7f5..30a33ab 100644
--- a/bard-emacs-modules/bard-emacs-window.el
+++ b/bard-emacs-modules/bard-emacs-window.el
@@ -1,5 +1,6 @@
 (require 'bard-window)
 
+;; settings for prot-
 (setq window-combination-resize t)
 (setq even-window-sizes 'height-only)
 (setq window-sides-vertical nil)
@@ -9,6 +10,15 @@
 (setq window-min-height 3)
 (setq window-min-width 30)
 
+(define-key global-map (kbd "C-M-<up>") #'windmove-up)
+(define-key global-map (kbd "C-M-<right>") #'windmove-right)
+(define-key global-map (kbd "C-M-<down>") #'windmove-down)
+(define-key global-map (kbd "C-M-<left>") #'windmove-left)
+(define-key global-map (kbd "C-M-S-<up>") #'windmove-swap-states-up)
+(define-key global-map (kbd "C-M-S-<right>") #'windmove-swap-states-right)
+(define-key (kbd "C-M-S-<down>") #'windmove-swap-states-down)
+(define-key (kbd "C-M-S-<left>") #'windmove-swap-states-left)
+
 (use-package beframe
   :ensure t
   :config
@@ -33,7 +43,6 @@
 	 (window-height . fit-window-to-buffer))
 	("\\(\\*Capture\\*\\|CAPTURE-.*\\)"
 	 (display-buffer-reuse-mode-window display-buffer-below-selected))
-
 	;; error stuff
 	((or . ((derived-mode . flymake-diagnostics-buffer-mode)
                 (derived-mode . flymake-project-diagnostics-mode)
@@ -58,11 +67,9 @@
 	))
 
 (winner-mode 1)
-(define-key global-map (kbd "C-c <right>") #'nil)
-(define-key global-map (kbd "C-c <left>") #'nil)
 (define-key global-map (kbd "C-x <right>") #'winner-redo)
-(define-key global-map (kbd "C-x <right>") #'winner-undo)
+(define-key global-map (kbd "C-x <left>") #'winner-undo)
 (define-key global-map (kbd "C-x C-n") #'next-buffer)
 (define-key global-map (kbd "C-x C-p") #'previous-buffer)
-(define-key global-map (kbd "C-x <right>") #'next-buffer)
-(define-key global-map (kbd "C-x <left>") #'previous-buffer)
+(define-key global-map (kbd "C-x <up>") #'next-buffer)
+(define-key global-map (kbd "C-x <down>") #'previous-buffer)
-- 
cgit v1.2.3