Move treesitter configuration to its own file
Some checks failed
/ Test config on 20 (push) Has been cancelled
Some checks failed
/ Test config on 20 (push) Has been cancelled
This commit is contained in:
parent
ff2dbc1796
commit
eb71b1226f
5 changed files with 39 additions and 13 deletions
33
lisp/icejam-tree-sitter.el
Normal file
33
lisp/icejam-tree-sitter.el
Normal file
|
|
@ -0,0 +1,33 @@
|
|||
;;; icejam-treesitter.el --- summary
|
||||
|
||||
;; Author: Maciej Szlosarczyk
|
||||
;; Maintainer: Maciej Szlosarczyk
|
||||
;; Version: 0.1-snapshot
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;; Load treesitter grammars automatically
|
||||
;;; Code:
|
||||
|
||||
(defun icejam-tree-sitter-symlink-grammar-objects ()
|
||||
"Tree-sitter-langs-build releases grammars as LANG.so, but treesit needs libtree-sitter-LANG.so."
|
||||
(dolist (file (directory-files (tree-sitter-langs--bin-dir) 'full
|
||||
(concat "\\" (car tree-sitter-load-suffixes) "$")))
|
||||
;; make symlink (or copy) libtree-sitter-c.so -> c.so
|
||||
(let ((target (concat (file-name-as-directory (file-name-directory file))
|
||||
"libtree-sitter-"
|
||||
(file-name-nondirectory file))))
|
||||
(if (memq system-type '(ms-dos windows-nt cygwin))
|
||||
(copy-file file target)
|
||||
(make-symbolic-link file target)))))
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;; Tree sitter ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
(use-package tree-sitter-langs :straight t
|
||||
:config
|
||||
(add-to-list 'treesit-extra-load-path (tree-sitter-langs--bin-dir)))
|
||||
|
||||
(use-package tree-sitter-indent :straight t)
|
||||
(add-hook 'tree-sitter-after-on-hook 'tree-sitter-hl-mode)
|
||||
|
||||
(provide 'icejam-tree-sitter)
|
||||
;;; icejam-treesitter.el ends here
|
||||
Loading…
Add table
Add a link
Reference in a new issue