emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

feat(tree-sitter): conditionally enable ts-hl-mode

Browse source 
Based on the new variable `+tree-sitter-hl-enabled-modes`

This allows for people to use tree sitters tools without having
to use it for highlighting.
Useful because some modes (such as web-mode and its derivatives) do a
better job than the tree sitter alternative in this respect.
This commit is contained in:
Jeetaditya Chatterjee 2022-07-25 00:31:57 +01:00 • committed by Henrik Lissner
parent 4f23a02877
commit 8e68cd5ffd
2 changed files with 26 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

17
modules/tools/tree-sitter/autoload.el
View file

@ -2,8 +2,21 @@
;;;###autodef (fset 'tree-sitter! #'ignore)
(defun tree-sitter! ()
(interactive)
(turn-on-tree-sitter-mode))
"Dispatch to turn on tree sitter.
Used as a hook function which turns on `tree-sitter-mode'
and selectively turn on `tree-sitter-hl-mode'.
according to `+tree-sitter-hl-enabled-modes'"
(turn-on-tree-sitter-mode)
;; conditionally enable `tree-sitter-hl-mode'
(let ((mode (bound-and-true-p tree-sitter-hl-mode)))
(when-let (mode (if (pcase +tree-sitter-hl-enabled-modes
(`(not . ,modes) (not (memq major-mode modes)))
((and `(,_ . ,_) modes) (memq major-mode modes))
(bool bool))
(unless mode +1)
(if mode -1)))
(tree-sitter-hl-mode mode))))
;; HACK: Remove and refactor when `use-package' eager macro expansion is solved or `use-package!' is removed
;;;###autoload