Skip to content

Commit

Permalink
[tree-sitter] use global ts-fold modes
Browse files Browse the repository at this point in the history
This is possible now since emacs-tree-sitter/ts-fold#3
has been resolved.
  • Loading branch information
eeshugerman committed Dec 30, 2022
1 parent 37cdd50 commit ffd0bc4
Showing 1 changed file with 5 additions and 37 deletions.
42 changes: 5 additions & 37 deletions layers/+tools/tree-sitter/packages.el
Original file line number Diff line number Diff line change
Expand Up @@ -54,47 +54,15 @@
(progn
(add-hook 'rust-mode-hook #'tree-sitter-indent-mode))))

(defconst tree-sitter--ts-fold-supported-major-mode-hooks
'(agda-mode-hook
sh-mode-hook
c-mode-hook
c++-mode-hook
csharp-mode-hook
css-mode-hook
ess-r-mode-hook
go-mode-hook
html-mode-hook
java-mode-hook
javascript-mode-hook
js-mode-hook
js2-mode-hook
js3-mode-hook
json-mode-hook
jsonc-mode-hook
nix-mode-hook
php-mode-hook
python-mode-hook
rjsx-mode-hook
ruby-mode-hook
rust-mode-hook
rustic-mode-hook
scala-mode-hook
swift-mode-hook
typescript-mode-hook))

(defun tree-sitter/init-ts-fold ()
(use-package ts-fold
:if tree-sitter-fold-enable
:defer t
:init
(progn
(when tree-sitter-fold-enable
(dolist (mode-hook tree-sitter--ts-fold-supported-major-mode-hooks)
(when (boundp mode-hook)
(add-hook mode-hook #'ts-fold-mode)
(when tree-sitter-fold-indicators-enable
(add-hook mode-hook #'ts-fold-indicators-mode)))))

(when tree-sitter-fold-indicators-enable
;; don't obscure lint and breakpoint indicators
(setq ts-fold-indicators-priority 0)))))
(if tree-sitter-fold-indicators-enable
(progn
(setq ts-fold-indicators-priority 0)
(global-ts-fold-indicators-mode))
(global-ts-fold-mode))))))

0 comments on commit ffd0bc4

Please sign in to comment.