|
179 | 179 | 'evil-define-command
|
180 | 180 | 'evil-define-motion)
|
181 | 181 | ,name (&optional _count)
|
182 |
| - (evil-without-repeat |
183 |
| - (setq evil-this-type 'inclusive) |
184 |
| - (cl-letf* ,bind |
185 |
| - ,(when pre-hook `(funcall ,(if (functionp pre-hook) |
186 |
| - pre-hook |
187 |
| - `(lambda () ,pre-hook)))) |
188 |
| - (evilem--jump (evilem--collect ,funcs |
189 |
| - ,scope |
190 |
| - ,all-windows |
191 |
| - ,initial-point |
192 |
| - ,collect-postprocess)) |
193 |
| - ,(when post-hook `(funcall ,(if (functionp post-hook) |
194 |
| - post-hook |
195 |
| - `(lambda () ,post-hook)))))))) |
| 182 | + (avy-with ,name |
| 183 | + (evil-without-repeat |
| 184 | + (setq evil-this-type 'inclusive) |
| 185 | + (cl-letf* ,bind |
| 186 | + ,(when pre-hook `(funcall ,(if (functionp pre-hook) |
| 187 | + pre-hook |
| 188 | + `(lambda () ,pre-hook)))) |
| 189 | + (evilem--jump (evilem--collect ,funcs |
| 190 | + ,scope |
| 191 | + ,all-windows |
| 192 | + ,initial-point |
| 193 | + ,collect-postprocess)) |
| 194 | + ,(when post-hook `(funcall ,(if (functionp post-hook) |
| 195 | + post-hook |
| 196 | + `(lambda () ,post-hook))))))))) |
196 | 197 |
|
197 | 198 | (cl-defmacro evilem-make-motion-plain (name
|
198 | 199 | funcs
|
|
207 | 208 | "Automatically define a plain easymotion for `func', naming it `name'"
|
208 | 209 | `(defun ,name ()
|
209 | 210 | (interactive)
|
210 |
| - (cl-letf* ,bind |
211 |
| - ,(when pre-hook `(funcall ,(if (functionp pre-hook) |
212 |
| - pre-hook |
213 |
| - `(lambda () ,pre-hook)))) |
214 |
| - (evilem--jump (evilem--collect ,funcs |
215 |
| - ,scope |
216 |
| - ,all-windows |
217 |
| - ,initial-point |
218 |
| - ,collect-postprocess)) |
219 |
| - ,(when post-hook `(funcall ,(if (functionp post-hook) |
220 |
| - post-hook |
221 |
| - `(lambda () ,post-hook))))))) |
| 211 | + (avy-with ,name |
| 212 | + (cl-letf* ,bind |
| 213 | + ,(when pre-hook `(funcall ,(if (functionp pre-hook) |
| 214 | + pre-hook |
| 215 | + `(lambda () ,pre-hook)))) |
| 216 | + (evilem--jump (evilem--collect ,funcs |
| 217 | + ,scope |
| 218 | + ,all-windows |
| 219 | + ,initial-point |
| 220 | + ,collect-postprocess)) |
| 221 | + ,(when post-hook `(funcall ,(if (functionp post-hook) |
| 222 | + post-hook |
| 223 | + `(lambda () ,post-hook)))))))) |
222 | 224 |
|
223 | 225 | (cl-defmacro evilem-create (motions
|
224 | 226 | &key
|
|
0 commit comments