init.org: add global keymap

Signed-off-by: Frieder Schlesier <frieder@fschl.de>
This commit is contained in:
Frieder Schlesier 2024-04-08 10:31:48 +02:00
parent 438a8b5af3
commit 6192d1b7e7
2 changed files with 20 additions and 0 deletions

View File

@ -32,6 +32,14 @@
(unless crafted-startup-inhibit-splash (unless crafted-startup-inhibit-splash
(setq initial-buffer-choice #'crafted-startup-screen)) (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)) (defvar fschl-org-file (expand-file-name "fschl-org.el" user-emacs-directory))
(when (and fschl-org-file (when (and fschl-org-file
(file-exists-p fschl-org-file)) (file-exists-p fschl-org-file))

View File

@ -46,6 +46,17 @@
(setq initial-buffer-choice #'crafted-startup-screen)) (setq initial-buffer-choice #'crafted-startup-screen))
#+end_src #+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 ** Load my custom files
#+begin_src emacs-lisp #+begin_src emacs-lisp
(defvar fschl-org-file (expand-file-name "fschl-org.el" user-emacs-directory)) (defvar fschl-org-file (expand-file-name "fschl-org.el" user-emacs-directory))
@ -58,3 +69,4 @@
(file-exists-p fschl-ide-file)) (file-exists-p fschl-ide-file))
(load fschl-ide-file nil :nomessage)) (load fschl-ide-file nil :nomessage))
#+end_src #+end_src