mirror of
https://github.com/doomemacs/doomemacs
synced 2025-08-01 12:17:25 -05:00
0a715cc3f2
With the former macros' future in the air (and likely to be targeted in future, potentially breaking changes), I'll deal with this now than have it bite me later. Ref: https://lists.gnu.org/archive/html/emacs-devel/2024-10/msg00637.html
69 lines
2.6 KiB
EmacsLisp
69 lines
2.6 KiB
EmacsLisp
;;; editor/evil/autoload/textobjects.el -*- lexical-binding: t; -*-
|
||
|
||
;;;###autoload (autoload '+evil:whole-buffer-txtobj "editor/evil/autoload/textobjects" nil nil)
|
||
(evil-define-text-object +evil:whole-buffer-txtobj (count &optional _beg _end type)
|
||
"Text object to select the whole buffer."
|
||
(evil-range (point-min) (point-max) type))
|
||
|
||
;;;###autoload (autoload '+evil:defun-txtobj "editor/evil/autoload/textobjects" nil nil)
|
||
(evil-define-text-object +evil:defun-txtobj (count &optional _beg _end type)
|
||
"Text object to select the top-level Lisp form or function definition at
|
||
point."
|
||
(cl-destructuring-bind (beg . end)
|
||
(bounds-of-thing-at-point 'defun)
|
||
(evil-range beg end type)))
|
||
|
||
;;;###autoload (autoload '+evil:inner-url-txtobj "editor/evil/autoload/textobjects" nil nil)
|
||
(evil-define-text-object +evil:inner-url-txtobj (count &optional _beg _end type)
|
||
"Text object to select the inner url at point.
|
||
|
||
This excludes the protocol and querystring."
|
||
(cl-destructuring-bind (beg . end)
|
||
(bounds-of-thing-at-point 'url)
|
||
(evil-range
|
||
(save-excursion
|
||
(goto-char beg)
|
||
(re-search-forward "://" end t))
|
||
(save-excursion
|
||
(goto-char end)
|
||
(- (if-let* ((pos (re-search-backward "[?#]" beg t)))
|
||
pos
|
||
end)
|
||
(if (evil-visual-state-p)
|
||
1
|
||
0)))
|
||
type)))
|
||
|
||
;;;###autoload (autoload '+evil:outer-url-txtobj "editor/evil/autoload/textobjects" nil nil)
|
||
(evil-define-text-object +evil:outer-url-txtobj (count &optional _beg _end type)
|
||
"Text object to select the whole url at point."
|
||
(cl-destructuring-bind (beg . end)
|
||
(bounds-of-thing-at-point 'url)
|
||
(evil-range
|
||
beg (- end (if (evil-visual-state-p) 1 0))
|
||
type)))
|
||
|
||
;;;###autoload (autoload '+evil:inner-any-quote "editor/evil/autoload/textobjects" nil nil)
|
||
(evil-define-text-object +evil:inner-any-quote (count &optional beg end type)
|
||
"Select the closest inner quote."
|
||
(require 'evil-textobj-anyblock)
|
||
(let ((evil-textobj-anyblock-blocks
|
||
'(("'" . "'")
|
||
("\"" . "\"")
|
||
("`" . "`")
|
||
("‘" . "’")
|
||
("“" . "”"))))
|
||
(evil-textobj-anyblock--make-textobj beg end type count nil)))
|
||
|
||
;;;###autoload (autoload '+evil:outer-any-quote "editor/evil/autoload/textobjects" nil nil)
|
||
(evil-define-text-object +evil:outer-any-quote (count &optional beg end type)
|
||
"Select the closest outer quote."
|
||
(require 'evil-textobj-anyblock)
|
||
(let ((evil-textobj-anyblock-blocks
|
||
'(("'" . "'")
|
||
("\"" . "\"")
|
||
("`" . "`")
|
||
("‘" . "’")
|
||
("“" . "”"))))
|
||
(evil-textobj-anyblock--make-textobj beg end type count t)))
|