33 lines
1.2 KiB
EmacsLisp
33 lines
1.2 KiB
EmacsLisp
;;; 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
|