blob: dee4dee128d4bc91034e6bcc2ec245ee8dc4bf39 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
;;; keybindings.el --- My Evil preferences -*- lexical-binding: t -*-
;; Author: William Carroll <wpcarro@gmail.com>
;;; Commentary:
;; This module hosts my Evil preferences
;;
;; Wish List:
;; - drop support for `evil-leader' library in favor of `general.el'
;; - restore support for concise (n <kbd> <function>) instead of `general-mmap'
;; - restore support for `general-unbind'
;;; Code:
(use-package evil
:init
(setq evil-want-integration nil)
(general-evil-setup)
:config
(general-mmap
:keymaps 'override
"RET" #'evil-goto-line
"H" #'evil-first-non-blank
"L" #'evil-end-of-line
"-" #'dired-jump
"sl" #'wpc/evil-window-vsplit-right
"sh" #'evil-window-vsplit
"sk" #'evil-window-split
"sj" #'wpc/evil-window-split-down
"sj" #'wpc/evil-window-split-down)
(general-nmap
:keymaps 'override
"gd" #'xref-find-definitions)
(general-unbind 'motion "M-." "C-p")
(general-unbind 'normal "s" "M-.")
(general-unbind 'insert "C-d" "C-a" "C-e" "C-n" "C-p" "C-k")
(setq evil-symbol-word-search t)
(evil-mode 1))
;; evil keybindings
(use-package evil-collection
:after (evil)
:config
(evil-collection-init))
;; expose a leader key
(use-package evil-leader
:after (evil counsel)
:config
(global-evil-leader-mode)
(evil-leader/set-leader "<SPC>")
;; global
(evil-leader/set-key
"i" #'counsel-semantic-or-imenu
"j" #'jump-to-register
"h" #'help
"a" #'wpc/toggle-terminal
"p" #'flycheck-previous-error
"P" #'counsel-git-grep
"f" #'wpc/find-file
"n" #'flycheck-next-error
"N" #'smerge-next
"P" #'smerge-prev
"b" #'ivy-switch-buffer
"gs" #'magit-status
"es" #'wpc/create-snippet
"ev" #'wpc/edit-init-el
"B" #'magit-blame
"w" #'save-buffer
"x" #'evil-save-and-close
"W" #'save-all-buffers
"r" #'wpc/evil-replace-under-point
))
;; create comments easily
(use-package evil-commentary
:after (evil)
:config
(evil-commentary-mode))
;; evil surround
(use-package evil-surround
:after (evil)
:config
(global-evil-surround-mode 1))
;; Custom minor mode that ensures that my kbds are available no matter which major
;; 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."
(unless (eq (caar minor-mode-map-alist) 'wpc/kbds-minor-mode)
(let ((mykbds (assq '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))))
(defvar wpc/kbds
(let ((map (make-sparse-keymap)))
(bind-keys :map map
("M-q" . delete-window)
("C-x C-;" . comment-or-uncomment-region)
("C-x h" . help)
("<s-return>" . toggle-frame-fullscreen)
("<down-mouse-1>" . ffap-other-window)
("M-h" . wpc/tmux-emacs-windmove-left)
("M-l" . wpc/tmux-emacs-windmove-right)
("M-k" . wpc/tmux-emacs-windmove-up)
("M-j" . wpc/tmux-emacs-windmove-down)
("M--" . split-window-below)
("M-\\" . split-window-right)
("M-q" . delete-window))
map)
"William Carroll's keybindings that should have the highest precedence.")
(define-minor-mode wpc/kbds-minor-mode
"A minor mode so that my key settings override annoying major modes."
:init-value t
:lighter " wpc/kbds"
:keymap wpc/kbds)
;; allow jk to escape
(use-package key-chord
:after (evil)
:config
(key-chord-mode 1)
(key-chord-define evil-insert-state-map "jk" 'evil-normal-state))
(provide 'wpc-keybindings)
;;; wpc-keybindings.el ends here
|
