diff --git a/oni-core.el b/oni-core.el index cdc1a61..38f16c1 100644 --- a/oni-core.el +++ b/oni-core.el @@ -4,7 +4,7 @@ ;; Author: Tom Willemse ;; Keywords: local -;; Version: 2023.0416.003045 +;; Version: 2023.0509.234254 ;; Package-Requires: (oni-data-dir oni-embrace oni-hydra expand-region multiple-cursors gcmh diminish ws-butler which-key insert-char-preview mixed-pitch ace-window vertico marginalia orderless consult embark docstr mini-frame) ;; This program is free software; you can redistribute it and/or modify @@ -415,6 +415,23 @@ _s_: String list" (global-set-key [remap switch-to-buffer] 'consult-buffer) (global-set-key [remap yank-pop] 'consult-yank-pop) +(global-set-key (kbd "M-0") #'delete-window) +(global-set-key (kbd "C-x 0") (lambda () (interactive) (error "Use M-0 instead"))) +(global-set-key (kbd "M-1") #'delete-other-windows) +(global-set-key (kbd "C-x 1") (lambda () (interactive) (error "Use M-1 instead"))) +(global-set-key (kbd "M-2") #'split-window-below) +(global-set-key (kbd "C-x 2") (lambda () (interactive) (error "Use M-2 instead"))) +(global-set-key (kbd "M-3") #'split-window-right) +(global-set-key (kbd "C-x 3") (lambda () (interactive) (error "Use M-3 instead"))) +(global-set-key (kbd "M-4") #'ctl-x-4-prefix) +(global-set-key (kbd "C-x 4") (lambda () (interactive) (error "Use M-4 instead"))) +(global-set-key (kbd "M-5") #'ctl-x-5-prefix) +(global-set-key (kbd "C-x 5") (lambda () (interactive) (error "Use M-5 instead"))) +(global-set-key (kbd "M-6") #'2C-command) +(global-set-key (kbd "C-x 6") (lambda () (interactive) (error "Use M-6 instead"))) +(global-set-key (kbd "M-8") (keymap-lookup global-map "C-x 8")) +(global-set-key (kbd "C-x 8") (lambda () (interactive) (error "Use M-8 instead"))) + (defun oni-core-related-files () "Return a list of files related to the current buffer." (let* ((jumpers related-files-jumpers)