mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Rename Elisp function for ensuring KBDs

Browse source 
Prefer wpc/ namespace for functions that I define. Consider defining all
functions in one location, similar to ZSH's functions.zsh
This commit is contained in:
William Carroll 2019-03-20 15:03:03 +00:00
parent e14b271d39
commit 29e19725ac
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
configs/shared/emacs/.emacs.d/wpc/packages/wpc-keybindings.el
View file

@ -92,17 +92,17 @@
:config :config
(global-evil-surround-mode 1)) (global-evil-surround-mode 1))
;; Custom minor mode that ensures that my kbds are available no matter which major (defun wpc/ensure-kbds (_ignore)
;; or minor modes are active.
(add-hook 'after-load-functions #'ensure-william-carroll-kbds)
(defun ensure-william-carroll-kbds (_ignore)
"Try to ensure that my keybindings retain priority over other minor modes." "Try to ensure that my keybindings retain priority over other minor modes."
(unless (eq (caar minor-mode-map-alist) 'wpc/kbds-minor-mode) (unless (eq (caar minor-mode-map-alist) 'wpc/kbds-minor-mode)
(let ((mykbds (assq 'wpc/kbds-minor-mode minor-mode-map-alist))) (let ((mykbds (assq 'wpc/kbds-minor-mode minor-mode-map-alist)))
(assq-delete-all 'wpc/kbds-minor-mode minor-mode-map-alist) (assq-delete-all 'wpc/kbds-minor-mode minor-mode-map-alist)
(add-to-list 'minor-mode-map-alist mykbds)))) (add-to-list 'minor-mode-map-alist mykbds))))
;; Custom minor mode that ensures that my kbds are available no matter which
;; major or minor modes are active.
(add-hook 'after-load-functions #'wpc/ensure-kbds)
(defvar wpc/kbds (defvar wpc/kbds
(let ((map (make-sparse-keymap))) (let ((map (make-sparse-keymap)))
(bind-keys :map map (bind-keys :map map