15 lines
576 B
EmacsLisp
15 lines
576 B
EmacsLisp
;;; tools/tree-sitter/autoload.el -*- lexical-binding: t; -*-
|
|
|
|
;;;###autodef
|
|
(defun tree-sitter! ()
|
|
(turn-on-tree-sitter-mode)
|
|
(+tree-sitter-keys-mode))
|
|
|
|
;;;###autoload
|
|
(defun +tree-sitter-goto-textobj (group &optional previous end query)
|
|
"Thin wrapper that returns the symbol of a named function, used in keybindings."
|
|
(let ((sym (intern (format "+goto%s%s-%s" (if previous "-previous" "") (if end "-end" "") group))))
|
|
(fset sym (lambda ()
|
|
(interactive)
|
|
(evil-textobj-tree-sitter-goto-textobj group previous end query)))
|
|
sym))
|