29 lines
1.1 KiB
EmacsLisp
29 lines
1.1 KiB
EmacsLisp
|
;;; macros-evil.el
|
||
|
|
|
||
|
|
;;;###autoload
|
||
|
|
(defmacro define-text-object! (key start-regex end-regex)
|
||
|
|
(let ((inner-name (make-symbol "narf--inner-name"))
|
||
|
|
(outer-name (make-symbol "narf--outer-name")))
|
||
|
|
`(progn
|
||
|
|
(evil-define-text-object ,inner-name (count &optional beg end type)
|
||
|
|
(evil-select-paren ,start-regex ,end-regex beg end type count nil))
|
||
|
|
(evil-define-text-object ,outer-name (count &optional beg end type)
|
||
|
|
(evil-select-paren ,start-regex ,end-regex beg end type count t))
|
||
|
|
(define-key evil-inner-text-objects-map ,key (quote ,inner-name))
|
||
|
|
(define-key evil-outer-text-objects-map ,key (quote ,outer-name)))))
|
||
|
|
|
||
|
|
;;;###autoload
|
||
|
|
(defmacro define-temp-ex-cmd! (cmd-on cmd-off &rest commands)
|
||
|
|
"Creates on-off defuns for a set of ex commands, named CMD-ON and CMD-OFF."
|
||
|
|
(declare (indent 2))
|
||
|
|
`(progn
|
||
|
|
(defun ,cmd-on (&rest _)
|
||
|
|
(mapc (lambda (cmd) (evil-ex-define-cmd (car cmd) (cdr cmd)))
|
||
|
|
',commands))
|
||
|
|
(defun ,cmd-off (&rest _)
|
||
|
|
(mapc (lambda (cmd) (narf/evil-ex-undefine-cmd (car cmd)))
|
||
|
|
',commands))))
|
||
|
|
|
||
|
|
(provide 'macros-evil)
|
||
|
|
;;; macros-evil.el ends here
|