git.fiddlerwoaroof.com
Browse code

feat(emacs): order changes, undo-fu and evil-collection

Edward Langley authored on 09/06/2021 20:46:23
Showing 2 changed files
... ...
@@ -366,6 +366,7 @@
366 366
 
367 367
 (use-package deft
368 368
   :ensure t
369
+  :after evil
369 370
   :config
370 371
   (evil-define-key 'normal 'global (kbd "<leader>v") 'deft))
371 372
 
... ...
@@ -13,8 +13,16 @@
13 13
   (delete-window
14 14
    (get-mru-window nil nil t)))
15 15
 
16
+(use-package undo-fu
17
+  :ensure t)
18
+
16 19
 (use-package evil
17 20
   :ensure t
21
+  :after undo-fu
22
+  :init
23
+  (setq evil-want-integration t) ;; This is optional since it's already set to t by default.
24
+  (setq evil-want-keybinding nil)
25
+  (setq evil-undo-system 'undo-fu)
18 26
   :config
19 27
 
20 28
   (evil-define-key 'motion 'global  (kbd "TAB") nil)
... ...
@@ -36,7 +44,8 @@
36 44
     (evil-define-key 'normal 'global (kbd "<leader>f") 'helm-projectile)
37 45
     (evil-define-key 'normal 'global (kbd "<leader>;") 'helm-semantic-or-imenu)
38 46
     (evil-define-key 'normal 'global (kbd "<leader>j") 'helm-buffers-list)
39
-    (evil-define-key 'normal 'global (kbd "<leader>u") 'undo-tree-visualize))
47
+    (comment
48
+     (evil-define-key 'normal 'global (kbd "<leader>u") 'undo-tree-visualize)))
40 49
 
41 50
   (progn ;; completion
42 51
     (evil-define-key 'normal company-mode-map (kbd "TAB") 'company-indent-or-complete-common)
... ...
@@ -97,35 +106,35 @@
97 106
     (define-key global-map (kbd "C-, ]") 'sp-wrap-square)
98 107
 
99 108
     (evil-define-key 'normal 'global (kbd ",w\"") 'wrap-with-doublequote)
100
-    (define-key cider-mode-map (kbd "C-, w \"") 'sp-wrap-doublequote))
109
+    (comment (define-key cider-mode-map (kbd "C-, w \"") 'sp-wrap-doublequote)))
101 110
 
102 111
   (progn ;; splicing
103 112
     (evil-define-key 'normal 'global (kbd ",S") 'sp-splice-sexp)
104
-    (define-key cider-mode-map (kbd "C-, S") 'sp-splice-sexp)
105
-    (define-key cider-mode-map (kbd "C-, C-S") 'sp-splice-sexp)
113
+    (comment (define-key cider-mode-map (kbd "C-, S") 'sp-splice-sexp)
114
+             (define-key cider-mode-map (kbd "C-, C-S") 'sp-splice-sexp))
106 115
     (evil-define-key 'normal 'global (kbd ",A") 'sp-splice-sexp-killing-backward)
107
-    (define-key cider-mode-map (kbd "C-, A") 'sp-splice-sexp-killing-backward)
108
-    (define-key cider-mode-map (kbd "C-, C-A") 'sp-splice-sexp-killing-backward)
116
+    (comment (define-key cider-mode-map (kbd "C-, A") 'sp-splice-sexp-killing-backward)
117
+             (define-key cider-mode-map (kbd "C-, C-A") 'sp-splice-sexp-killing-backward))
109 118
     (evil-define-key 'normal 'global (kbd ",D") 'sp-splice-sexp-killing-forward)
110
-    (define-key cider-mode-map (kbd "C-, D") 'sp-splice-sexp-killing-forward)
111
-    (define-key cider-mode-map (kbd "C-, C-D") 'sp-splice-sexp-killing-forward)
119
+    (comment (define-key cider-mode-map (kbd "C-, D") 'sp-splice-sexp-killing-forward)
120
+             (define-key cider-mode-map (kbd "C-, C-D") 'sp-splice-sexp-killing-forward))
112 121
     (evil-define-key 'normal 'global (kbd ",F") 'sp-splice-sexp-killing-around)
113
-    (define-key cider-mode-map (kbd "C-, F") 'sp-splice-sexp-killing-around)
114
-    (define-key cider-mode-map (kbd "C-, C-F") 'sp-splice-sexp-killing-around))
122
+    (comment (define-key cider-mode-map (kbd "C-, F") 'sp-splice-sexp-killing-around)
123
+             (define-key cider-mode-map (kbd "C-, C-F") 'sp-splice-sexp-killing-around)))
115 124
 
116 125
   (progn ;; barf/slurp
117 126
     (evil-define-key 'normal 'global (kbd ",,") 'sp-backward-barf-sexp)
118
-    (define-key cider-mode-map (kbd "C-, ,") 'sp-backward-barf-sexp)
119
-    (define-key cider-mode-map (kbd "C-, C-,") 'sp-backward-barf-sexp)
127
+    (comment (define-key cider-mode-map (kbd "C-, ,") 'sp-backward-barf-sexp)
128
+             (define-key cider-mode-map (kbd "C-, C-,") 'sp-backward-barf-sexp))
120 129
     (evil-define-key 'normal 'global (kbd ",.") 'sp-forward-barf-sexp)
121
-    (define-key cider-mode-map (kbd "C-, .") 'sp-forward-barf-sexp)
122
-    (define-key cider-mode-map (kbd "C-, C-.") 'sp-forward-barf-sexp)
130
+    (comment (define-key cider-mode-map (kbd "C-, .") 'sp-forward-barf-sexp)
131
+             (define-key cider-mode-map (kbd "C-, C-.") 'sp-forward-barf-sexp))
123 132
     (evil-define-key 'normal 'global (kbd ",<") 'sp-backward-slurp-sexp)
124
-    (define-key cider-mode-map (kbd "C-, <") 'sp-backward-slurp-sexp)
125
-    (define-key cider-mode-map (kbd "C-, C-<") 'sp-backward-slurp-sexp)
133
+    (comment (define-key cider-mode-map (kbd "C-, <") 'sp-backward-slurp-sexp)
134
+             (define-key cider-mode-map (kbd "C-, C-<") 'sp-backward-slurp-sexp))
126 135
     (evil-define-key 'normal 'global (kbd ",>") 'sp-forward-slurp-sexp)
127
-    (define-key cider-mode-map (kbd "C-, >") 'sp-forward-slurp-sexp)
128
-    (define-key cider-mode-map (kbd "C-, C->") 'sp-forward-slurp-sexp))
136
+    (comment (define-key cider-mode-map (kbd "C-, >") 'sp-forward-slurp-sexp)
137
+             (define-key cider-mode-map (kbd "C-, C->") 'sp-forward-slurp-sexp)))
129 138
 
130 139
   (progn ;; misc
131 140
     (evil-define-key 'normal 'global (kbd ",~") 'sp-convolute-sexp)
... ...
@@ -142,6 +151,14 @@
142 151
     (evil-define-key 'normal 'global (kbd "<leader>nr") 'narrow-to-region)
143 152
     (evil-define-key 'normal 'global (kbd "<leader>nw") 'widen)))
144 153
 
154
+(use-package evil-collection
155
+  :ensure t
156
+  :after evil
157
+  :config
158
+  (evil-collection-require 'xref)
159
+  (with-eval-after-load 'xref
160
+    (evil-collection-xref-setup)))
161
+
145 162
 (comment
146 163
  (use-package centaur-tabs
147 164
    :ensure t