|
146 | 146 | (evilem--collect f scope all-windows))
|
147 | 147 | func))))
|
148 | 148 |
|
149 |
| -(cl-defmacro evilem-make-motion (name func &key pre-hook post-hook bind scope |
| 149 | +(cl-defmacro evilem-make-motion (name funcs &key pre-hook post-hook bind scope |
150 | 150 | all-windows)
|
151 | 151 | "Automatically define an evil easymotion for `func', naming it `name'"
|
152 | 152 | `(evil-define-motion ,name (_count)
|
|
156 | 156 | ,(when pre-hook `(funcall ,(if (functionp pre-hook)
|
157 | 157 | pre-hook
|
158 | 158 | `(lambda () ,pre-hook))))
|
159 |
| - (evilem--jump (evilem--collect ,func ,scope ,all-windows)) |
| 159 | + (evilem--jump (evilem--collect ,funcs ,scope ,all-windows)) |
160 | 160 | ,(when post-hook `(funcall ,(if (functionp post-hook)
|
161 | 161 | post-hook
|
162 | 162 | `(lambda () ,post-hook))))))))
|
163 | 163 |
|
164 |
| -(cl-defmacro evilem-make-motion-plain (name func &key pre-hook post-hook bind scope |
| 164 | +(cl-defmacro evilem-make-motion-plain (name funcs &key pre-hook post-hook bind scope |
165 | 165 | all-windows)
|
166 | 166 | "Automatically define a plain easymotion for `func', naming it `name'"
|
167 | 167 | `(defun ,name ()
|
|
170 | 170 | ,(when pre-hook `(funcall ,(if (functionp pre-hook)
|
171 | 171 | pre-hook
|
172 | 172 | `(lambda () ,pre-hook))))
|
173 |
| - (evilem--jump (evilem--collect ,func ,scope ,all-windows)) |
| 173 | + (evilem--jump (evilem--collect ,funcs ,scope ,all-windows)) |
174 | 174 | ,(when post-hook `(funcall ,(if (functionp post-hook)
|
175 | 175 | post-hook
|
176 | 176 | `(lambda () ,post-hook)))))))
|
177 | 177 |
|
178 |
| -(cl-defmacro evilem-create (motion &key pre-hook post-hook bind scope |
| 178 | +(cl-defmacro evilem-create (motions &key pre-hook post-hook bind scope |
179 | 179 | all-windows)
|
180 | 180 | `(evilem-make-motion
|
181 |
| - ,(intern (evilem--make-name motion)) |
182 |
| - ,motion |
| 181 | + ,(intern (evilem--make-name motions)) |
| 182 | + ,motions |
183 | 183 | :pre-hook ,pre-hook
|
184 | 184 | :post-hook ,post-hook
|
185 | 185 | :bind ,bind
|
186 | 186 | :scope ,scope
|
187 | 187 | :all-windows ,all-windows))
|
188 | 188 |
|
189 |
| -(cl-defmacro evilem-create-plain (motion &key pre-hook post-hook bind scope |
| 189 | +(cl-defmacro evilem-create-plain (motions &key pre-hook post-hook bind scope |
190 | 190 | all-windows)
|
191 | 191 | `(evilem-make-motion-plain
|
192 |
| - ,(intern (evilem--make-name motion)) |
193 |
| - ,motion |
| 192 | + ,(intern (evilem--make-name motions)) |
| 193 | + ,motions |
194 | 194 | :pre-hook ,pre-hook
|
195 | 195 | :post-hook ,post-hook
|
196 | 196 | :bind ,bind
|
197 | 197 | :scope ,scope
|
198 | 198 | :all-windows ,all-windows))
|
199 | 199 |
|
200 |
| -(cl-defmacro evilem-define (key motion &key pre-hook post-hook bind scope |
| 200 | +(cl-defmacro evilem-define (key motions &key pre-hook post-hook bind scope |
201 | 201 | all-windows)
|
202 | 202 | "Automatically create and bind an evil motion"
|
203 | 203 | `(define-key ,(if all-windows
|
204 | 204 | 'evil-normal-state-map
|
205 | 205 | 'evil-motion-state-map)
|
206 | 206 | ,key
|
207 |
| - (evilem-create ,motion |
| 207 | + (evilem-create ,motions |
208 | 208 | :pre-hook ,pre-hook
|
209 | 209 | :post-hook ,post-hook
|
210 | 210 | :bind ,bind
|
|
0 commit comments