2021-08-21 21:19:27 +01:00
|
|
|
;;; tools/tree-sitter/config.el -*- lexical-binding: t; -*-
|
|
|
|
|
|
|
|
(use-package! tree-sitter
|
2021-10-19 01:32:57 +01:00
|
|
|
:defer t ;; loading is handled by individual modes
|
2021-08-21 21:19:27 +01:00
|
|
|
:hook (tree-sitter-after-on . tree-sitter-hl-mode)
|
|
|
|
:config
|
2021-08-20 23:10:19 +01:00
|
|
|
;; This makes every node a link to a section of code
|
2021-08-21 21:19:27 +01:00
|
|
|
(setq tree-sitter-debug-jump-buttons t
|
2021-08-20 23:10:19 +01:00
|
|
|
;; and this highlights the entire sub tree in your code
|
2021-08-22 10:46:27 +07:00
|
|
|
tree-sitter-debug-highlight-jump-region t))
|
2021-08-21 21:19:27 +01:00
|
|
|
|
2021-12-19 22:22:32 +00:00
|
|
|
(defvar +tree-sitter-inner-text-objects-map (make-sparse-keymap))
|
|
|
|
(defvar +tree-sitter-outer-text-objects-map (make-sparse-keymap))
|
2021-10-07 01:13:41 +01:00
|
|
|
|
2021-12-19 22:22:32 +00:00
|
|
|
(defvar +tree-sitter-keys-mode-map
|
|
|
|
(let ((keymap (make-sparse-keymap)))
|
|
|
|
(evil-define-key '(visual operator) '+tree-sitter-keys-mode
|
|
|
|
"i" +tree-sitter-inner-text-objects-map
|
|
|
|
"a" +tree-sitter-outer-text-objects-map)
|
|
|
|
keymap)
|
|
|
|
"Basic keymap for tree sitter text objects")
|
2021-09-24 17:24:41 +01:00
|
|
|
|
2021-12-19 22:22:32 +00:00
|
|
|
(define-minor-mode +tree-sitter-keys-mode
|
|
|
|
"A minor mode with tree sitter keybinds."
|
|
|
|
:keymap +tree-sitter-keys-mode-map)
|
2021-08-19 22:03:12 +01:00
|
|
|
|
2021-12-19 22:22:32 +00:00
|
|
|
(use-package! evil-textobj-tree-sitter
|
|
|
|
:when (featurep! :editor evil +everywhere)
|
|
|
|
:after tree-sitter
|
|
|
|
:config
|
2021-08-19 22:03:12 +01:00
|
|
|
|
2021-12-19 22:22:32 +00:00
|
|
|
(map! (:map +tree-sitter-inner-text-objects-map
|
2022-01-05 18:57:22 +00:00
|
|
|
"a" (evil-textobj-tree-sitter-get-textobj "parameter.inner")
|
2021-12-19 22:22:32 +00:00
|
|
|
"f" (evil-textobj-tree-sitter-get-textobj "function.inner")
|
|
|
|
"F" (evil-textobj-tree-sitter-get-textobj "call.inner")
|
|
|
|
"C" (evil-textobj-tree-sitter-get-textobj "class.inner")
|
|
|
|
"i" (evil-textobj-tree-sitter-get-textobj "conditional.inner")
|
|
|
|
"l" (evil-textobj-tree-sitter-get-textobj "loop.inner"))
|
|
|
|
(:map +tree-sitter-outer-text-objects-map
|
2022-01-05 18:57:22 +00:00
|
|
|
"a" (evil-textobj-tree-sitter-get-textobj "parameter.outer")
|
2021-12-19 22:22:32 +00:00
|
|
|
"f" (evil-textobj-tree-sitter-get-textobj "function.outer")
|
|
|
|
"F" (evil-textobj-tree-sitter-get-textobj "call.outer")
|
|
|
|
"C" (evil-textobj-tree-sitter-get-textobj "class.outer")
|
|
|
|
"c" (evil-textobj-tree-sitter-get-textobj "comment.outer")
|
|
|
|
"i" (evil-textobj-tree-sitter-get-textobj "conditional.outer")
|
|
|
|
"l" (evil-textobj-tree-sitter-get-textobj "loop.outer")))
|
|
|
|
|
|
|
|
(after! which-key
|
|
|
|
(setq which-key-allow-multiple-replacements t)
|
|
|
|
(pushnew!
|
|
|
|
which-key-replacement-alist
|
|
|
|
'(("" . "\\`+?evil-textobj-tree-sitter-function--\\(.*\\)\\(?:.inner\\|.outer\\)") . (nil . "\\1")))))
|