From 313847f97e171acd2a80327488ea48b76e7a49da Mon Sep 17 00:00:00 2001
From: Grégoire Duchêne <gduchene@awhk.org>
Date: Sat, 2 Mar 2024 10:27:15 +0000
Subject: emacs: Add bindings to be compatible with Magnet

---
 dotfiles-darwin/emacs/init.el | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/dotfiles-darwin/emacs/init.el b/dotfiles-darwin/emacs/init.el
index a34ffe4..c400d54 100644
--- a/dotfiles-darwin/emacs/init.el
+++ b/dotfiles-darwin/emacs/init.el
@@ -20,3 +20,8 @@
 ;; “Window” Management
 
 (keymap-global-set "C-c l" #'my/resize-frame)
+
+(dolist (k '(("C-s-<left>" . "C-c l i") ("C-s-<right>" . "C-c l o")))
+  (if (keymap-global-lookup (car k))
+      (message "`%s' is already bound, skipping." (car k))
+    (keymap-global-set (car k) (cdr k))))
-- 
cgit v1.2.3-70-g09d2