doomemacs/modules/tools/tree-sitter/config.el

;;; tools/tree-sitter/config.el -*- lexical-binding: t; -*-

(use-package! tree-sitter
  :defer t ;; loading is handled by individual modes
  :hook (tree-sitter-after-on . tree-sitter-hl-mode)
  :config
  (defvar +tree-sitter-enabled-mode-maps (seq-map (lambda (mode)
                                                     (intern (concat
                                                              (symbol-name (car mode)) "-map")))
                                                   tree-sitter-major-mode-language-alist)
    "List of mode hooks for tree sitter enabled modes.")
  ;; This makes every node a link to a section of code
  (setq tree-sitter-debug-jump-buttons t
        ;; and this highlights the entire sub tree in your code
        tree-sitter-debug-highlight-jump-region t))

(if (daemonp) ;; HACK: eager load when in daemon as its start time is easily consumed
    (require 'tree-sitter-langs)
  (add-hook! 'tree-sitter-after-on-hook
    (require 'tree-sitter-langs)))


(when (featurep! :editor evil +everywhere)
  (use-package! evil-textobj-tree-sitter
    :after tree-sitter
    :config
    (map!
     :map +tree-sitter-enabled-mode-maps
     :textobj "f" nil nil
     :textobj "f" (evil-textobj-tree-sitter-get-textobj "function.inner") (evil-textobj-tree-sitter-get-textobj "function.outer")

     :textobj "F" (evil-textobj-tree-sitter-get-textobj "call.inner") (evil-textobj-tree-sitter-get-textobj "call.outer")

     :textobj "C" (evil-textobj-tree-sitter-get-textobj "class.inner") (evil-textobj-tree-sitter-get-textobj "class.outer")

     :textobj "c" nil nil
     :textobj "c" nil (evil-textobj-tree-sitter-get-textobj "comment.outer")

     :textobj "i" nil nil
     :textobj "i" (evil-textobj-tree-sitter-get-textobj "conditional.inner") (evil-textobj-tree-sitter-get-textobj "conditional.outer")

     :textobj "l" nil nil
     :textobj "l" (evil-textobj-tree-sitter-get-textobj "loop.inner") (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"))))))
module: add :tools tree-sitter This module installs 'tree-sitter' and 'tree-sitter-langs' as well as the 'evil-textobj-treesitter' and configures them. This module is based on the prototype module that @hlissner has started and I am just fleshing out that work. It also comes with a README file Fix: #4151 2021-08-21 21:19:27 +01:00			`;;; tools/tree-sitter/config.el -- lexical-binding: t; --`

			`(use-package! tree-sitter`
feat(tree-sitter): bind textobjects to maps Instead of binding all of the tree sitter text objects to every map we only bind them to modes in the major-mode-language-alist 2021-10-19 01:32:57 +01:00			`:defer t ;; loading is handled by individual modes`
module: add :tools tree-sitter This module installs 'tree-sitter' and 'tree-sitter-langs' as well as the 'evil-textobj-treesitter' and configures them. This module is based on the prototype module that @hlissner has started and I am just fleshing out that work. It also comes with a README file Fix: #4151 2021-08-21 21:19:27 +01:00			`:hook (tree-sitter-after-on . tree-sitter-hl-mode)`
			`:config`
feat(tree-sitter): bind textobjects to maps Instead of binding all of the tree sitter text objects to every map we only bind them to modes in the major-mode-language-alist 2021-10-19 01:32:57 +01:00			`(defvar +tree-sitter-enabled-mode-maps (seq-map (lambda (mode)`
			`(intern (concat`
			`(symbol-name (car mode)) "-map")))`
			`tree-sitter-major-mode-language-alist)`
			`"List of mode hooks for tree sitter enabled modes.")`
nit(tree-sitter): add rationale for debug mode var 2021-08-20 23:10:19 +01:00			`;; This makes every node a link to a section of code`
module: add :tools tree-sitter This module installs 'tree-sitter' and 'tree-sitter-langs' as well as the 'evil-textobj-treesitter' and configures them. This module is based on the prototype module that @hlissner has started and I am just fleshing out that work. It also comes with a README file Fix: #4151 2021-08-21 21:19:27 +01:00			`(setq tree-sitter-debug-jump-buttons t`
nit(tree-sitter): add rationale for debug mode var 2021-08-20 23:10:19 +01:00			`;; and this highlights the entire sub tree in your code`
refactor(tree-sitter): remove doom-tree-sitter-fail-gracefully-a Use turn-on-tree-sitter-mode instead of tree-sitter-mode directly because the former now ignore errors. 2021-08-22 10:46:27 +07:00			`tree-sitter-debug-highlight-jump-region t))`
module: add :tools tree-sitter This module installs 'tree-sitter' and 'tree-sitter-langs' as well as the 'evil-textobj-treesitter' and configures them. This module is based on the prototype module that @hlissner has started and I am just fleshing out that work. It also comes with a README file Fix: #4151 2021-08-21 21:19:27 +01:00
nit(tree-sitter): cleanup remove dead lines remove old code comments add in hack... thingy? 2021-12-09 03:26:29 +00:00			`(if (daemonp) ;; HACK: eager load when in daemon as its start time is easily consumed`
feat(tree-sitter): ts-langs eagar loads on daemon as ts-langs is quite heavy it makes sense to eagar load it when in daemon mode to make the experience smoother overall 2021-10-07 01:13:41 +01:00			`(require 'tree-sitter-langs)`
			`(add-hook! 'tree-sitter-after-on-hook`
			`(require 'tree-sitter-langs)))`

refactor(tree-sitter): move ts-langs into use-pkg Move tree-sitter-langs into its own use-package call This is to reflect an accepted code pattern seen in the rest of doom's code. This does not cause any user facing changes 2021-09-24 17:24:41 +01:00
fix(tree-sitter): feature gate evil-textobj-ts where ts stands for tree sitter Only install 'evil-textobj-treesitter' if :editor evil +everywhere is enabled Also Comment which text objs are not currently not working 2021-08-20 14:04:08 +01:00			`(when (featurep! :editor evil +everywhere)`
			`(use-package! evil-textobj-tree-sitter`
			`:after tree-sitter`
			`:config`
			`(map!`
feat(tree-sitter): bind textobjects to maps Instead of binding all of the tree sitter text objects to every map we only bind them to modes in the major-mode-language-alist 2021-10-19 01:32:57 +01:00			`:map +tree-sitter-enabled-mode-maps`
fix(tree-sitter): bind text-objs to keys 2021-08-19 22:03:12 +01:00			`:textobj "f" nil nil`
nit(tree-sitter): remove outdated comments 2021-10-23 02:12:32 +01:00			`:textobj "f" (evil-textobj-tree-sitter-get-textobj "function.inner") (evil-textobj-tree-sitter-get-textobj "function.outer")`
fix(tree-sitter): bind text-objs to keys 2021-08-19 22:03:12 +01:00
feat(tree-sitter): add function call text object Changes: - Bind `F` to the function call text object - Add the text object to the table - Realign table so it looks right to people who don't hide emphasis markers 2021-09-21 19:40:00 +01:00			`:textobj "F" (evil-textobj-tree-sitter-get-textobj "call.inner") (evil-textobj-tree-sitter-get-textobj "call.outer")`

fix(tree-sitter): feature gate evil-textobj-ts where ts stands for tree sitter Only install 'evil-textobj-treesitter' if :editor evil +everywhere is enabled Also Comment which text objs are not currently not working 2021-08-20 14:04:08 +01:00			`:textobj "C" (evil-textobj-tree-sitter-get-textobj "class.inner") (evil-textobj-tree-sitter-get-textobj "class.outer")`
fix(tree-sitter): bind text-objs to keys 2021-08-19 22:03:12 +01:00
			`:textobj "c" nil nil`
fix(tree-sitter): feature gate evil-textobj-ts where ts stands for tree sitter Only install 'evil-textobj-treesitter' if :editor evil +everywhere is enabled Also Comment which text objs are not currently not working 2021-08-20 14:04:08 +01:00			`:textobj "c" nil (evil-textobj-tree-sitter-get-textobj "comment.outer")`
fix(tree-sitter): bind text-objs to keys 2021-08-19 22:03:12 +01:00
			`:textobj "i" nil nil`
fix(tree-sitter): feature gate evil-textobj-ts where ts stands for tree sitter Only install 'evil-textobj-treesitter' if :editor evil +everywhere is enabled Also Comment which text objs are not currently not working 2021-08-20 14:04:08 +01:00			`:textobj "i" (evil-textobj-tree-sitter-get-textobj "conditional.inner") (evil-textobj-tree-sitter-get-textobj "conditional.outer")`
fix(tree-sitter): bind text-objs to keys 2021-08-19 22:03:12 +01:00
			`:textobj "l" nil nil`
fix(tree-sitter): adjust description for textobjs Reduce the length of the description for evil text objects 2021-11-07 09:13:34 +00:00			`:textobj "l" (evil-textobj-tree-sitter-get-textobj "loop.inner") (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"))))))