exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Replace some bind-key calls with use-package :bind declarations

Browse Source 
Also remove some obsolete declarations along the way.
This commit is contained in:
Daniel Borchmann 2025-03-09 20:22:22 +01:00
parent 09a8706bb1
commit a9b54d27a9
No known key found for this signature in database
GPG Key ID: 784AA8DF0CCDF625
1 changed files with 16 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
init.el
View File

@ -462,7 +462,6 @@
(add-to-list 'electric-pair-text-pairs '(?„ . ?“)))) (add-to-list 'electric-pair-text-pairs '(?„ . ?“))))
(use-package flyspell (use-package flyspell
:commands (flyspell-mode turn-on-flyspell)
:config (progn :config (progn
(unbind-key "C-M-i" flyspell-mode-map) (unbind-key "C-M-i" flyspell-mode-map)
(unbind-key "C-c $" flyspell-mode-map))) (unbind-key "C-c $" flyspell-mode-map)))
@ -2172,9 +2171,11 @@ Note that this workaround is incomplete, as explained in this comment."
(use-package helm (use-package helm
:ensure t :ensure t
:diminish helm-mode :diminish helm-mode
:autoload (helm-execute-persistent-action :bind (:map helm-map
helm-select-action ("<tab>" . helm-execute-persistent-action)
helm-make-source) ("C-i" . helm-execute-persistent-action)
("C-z" . helm-select-action))
:autoload (helm-make-source)
:commands (helm-show-kill-ring) :commands (helm-show-kill-ring)
:defines (helm-source-bookmarks) ; via helm-bookmarks.el :defines (helm-source-bookmarks) ; via helm-bookmarks.el
:init (setq helm-command-prefix-key "C-c h" ; see `db/run-init' for explicit binding :init (setq helm-command-prefix-key "C-c h" ; see `db/run-init' for explicit binding
@ -2210,11 +2211,7 @@ Note that this workaround is incomplete, as explained in this comment."
(bind-key "P" #'helm-pages helm-command-map)) (bind-key "P" #'helm-pages helm-command-map))
(warn (concat (warn (concat
"Cannot load `helm-global-bindings', please check your helm installation for completeness. " "Cannot load `helm-global-bindings', please check your helm installation for completeness. "
"(Have you installed it from melpa?)"))) "(Have you installed it from melpa?)")))))
(bind-key "<tab>" #'helm-execute-persistent-action helm-map)
(bind-key "C-i" #'helm-execute-persistent-action helm-map)
(bind-key "C-z" #'helm-select-action helm-map)))
(use-package ivy (use-package ivy
:diminish ivy-mode :diminish ivy-mode
@ -2558,9 +2555,6 @@ eventuelly be set to nil, however)."
(if (string= event "finished\n") (if (string= event "finished\n")
(kill-buffer ,buff))))))) (kill-buffer ,buff)))))))
;; Does not work; C-c is shadowed by some minor modes like semantic and winner
(bind-key "C-c" #'term-send-raw term-raw-map)
;; Unbind some keys to allow the global keymap to handle them ;; Unbind some keys to allow the global keymap to handle them
(unbind-key "M-:" term-raw-map) (unbind-key "M-:" term-raw-map)
(unbind-key "C-h" term-raw-map) (unbind-key "C-h" term-raw-map)
@ -2604,7 +2598,6 @@ eventuelly be set to nil, however)."
pcomplete/git)) pcomplete/git))
(use-package eshell (use-package eshell
:commands (eshell)
:init (progn :init (progn
(setq eshell-cmpl-cycle-completions nil (setq eshell-cmpl-cycle-completions nil
eshell-scroll-to-bottom-on-input t eshell-scroll-to-bottom-on-input t
@ -2623,6 +2616,13 @@ eventuelly be set to nil, however)."
(when (version< emacs-version "30") (when (version< emacs-version "30")
(setq eshell-prompt-regexp "└─[$#] "))) (setq eshell-prompt-regexp "└─[$#] ")))
:bind (:map eshell-mode-map
("M-P" . eshell-previous-prompt)
("M-N" . eshell-next-prompt)
:map eshell-hist-mode-map
("M-r" . eshell-insert-history))
:config (progn :config (progn
(eval-when-compile (eval-when-compile
@ -2643,14 +2643,9 @@ eventuelly be set to nil, however)."
(add-hook 'eshell-mode-hook (add-hook 'eshell-mode-hook
'with-editor-export-editor) 'with-editor-export-editor)
(if (version< emacs-version "30") (when (version< emacs-version "30")
(progn (autoload 'eshell-bol "esh-mode.el")
(autoload 'eshell-bol "esh-mode.el") (bind-key "C-a" #'eshell-bol eshell-mode-map))
(bind-key "C-a" #'eshell-bol eshell-mode-map))
(bind-key "C-a" #'beginning-of-line eshell-mode-map))
(bind-key "M-r" #'eshell-insert-history eshell-hist-mode-map)
(bind-key "M-P" #'eshell-previous-prompt eshell-mode-map)
(bind-key "M-N" #'eshell-next-prompt eshell-mode-map)
;; Ignoring case when completing file names seems to have a ;; Ignoring case when completing file names seems to have a
;; bug: when a ~ is encountered, it is implicitly expaned by ;; bug: when a ~ is encountered, it is implicitly expaned by