awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-31 14:43:40 -05:00
Code Issues Packages Projects Releases Wiki Activity

Better org evil text-objects

Browse Source
This commit is contained in:
Henrik Lissner
2015-11-12 05:40:38 -05:00
parent 533a307043
commit 0c261f9821
2 changed files with 18 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
core/lib/defuns-evil.el
View File

@@ -93,5 +93,17 @@
(call-interactively 'evil-window-vsplit)
(evil-window-right 1))
;;;###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)))))
(provide 'defuns-evil)
;;; defuns-evil.el ends here