From 6192d1b7e7a282d13a89f34e6a8f7d55c685580e Mon Sep 17 00:00:00 2001
From: Frieder Schlesier <frieder@fschl.de>
Date: Mon, 8 Apr 2024 10:31:48 +0200
Subject: [PATCH] init.org: add global keymap

Signed-off-by: Frieder Schlesier <frieder@fschl.de>
---
 init.el  |  8 ++++++++
 init.org | 12 ++++++++++++
 2 files changed, 20 insertions(+)

diff --git a/init.el b/init.el
index 62e0271..6df9152 100644
--- a/init.el
+++ b/init.el
@@ -32,6 +32,14 @@
 (unless crafted-startup-inhibit-splash
   (setq initial-buffer-choice #'crafted-startup-screen))
 
+(keymap-global-unset "M-#")
+
+(define-key global-map (kbd "s-b") 'switch-to-buffer)
+(define-key global-map (kbd "s-w") 'kill-current-buffer)
+(define-key global-map (kbd "s-W") 'kill-buffer-and-window)
+(define-key global-map (kbd "s-o") 'other-window)
+(define-key global-map (kbd "C-z") nil)
+
 (defvar fschl-org-file (expand-file-name "fschl-org.el" user-emacs-directory))
 (when (and fschl-org-file
            (file-exists-p fschl-org-file))
diff --git a/init.org b/init.org
index 6793a77..ec97cb6 100644
--- a/init.org
+++ b/init.org
@@ -46,6 +46,17 @@
     (setq initial-buffer-choice #'crafted-startup-screen))
 #+end_src
 
+** Custom key remap
+
+  #+begin_src emacs-lisp
+    (keymap-global-unset "M-#")
+
+    (define-key global-map (kbd "s-b") 'switch-to-buffer)
+    (define-key global-map (kbd "s-w") 'kill-current-buffer)
+    (define-key global-map (kbd "s-W") 'kill-buffer-and-window)
+    (define-key global-map (kbd "s-o") 'other-window)
+    (define-key global-map (kbd "C-z") nil)
+    #+end_src
 ** Load my custom files
 #+begin_src emacs-lisp
   (defvar fschl-org-file (expand-file-name "fschl-org.el" user-emacs-directory))
@@ -58,3 +69,4 @@
              (file-exists-p fschl-ide-file))
     (load fschl-ide-file nil :nomessage))
 #+end_src
+