From 2aa3cd00773de19f1477e0a11cc1a5c407d36e4c Mon Sep 17 00:00:00 2001
From: bard <bard@ramiel.attlocal.net>
Date: Wed, 8 May 2024 06:23:47 -0400
Subject: global keybindings strict

---
 bard-emacs-modules/bard-emacs-window.el | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 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 a986477..d6d8850 100644
--- a/bard-emacs-modules/bard-emacs-window.el
+++ b/bard-emacs-modules/bard-emacs-window.el
@@ -11,14 +11,16 @@
 (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 global-map (kbd "C-M-S-<down>") #'windmove-swap-states-down)
-(define-key global-map (kbd "C-M-S-<left>") #'windmove-swap-states-left)
+(use-package emacs
+  :bind*
+  (("C-M-<up>" . windmove-up)
+   ("C-M-<right>" . windmove-right)
+   ("C-M-<down>" . windmove-down)
+   ("C-M-<left>" . windmove-left)
+   ("C-M-S-<up>" . windmove-swap-states-up)
+   ("C-M-S-<right>" . windmove-swap-states-right)
+   ("C-M-S-<down>" . windmove-swap-states-down)
+   ("C-M-S-<left>" . windmove-swap-states-left)))
 
 (use-package beframe
   :ensure t
-- 
cgit v1.2.3