Move treesitter configuration to its own file

lisp/icejam-base.el

@@ -79,15 +79,6 @@
 
 ;; Numbers are arbitrary, but work on a large screen. Default is 160
 (setq split-width-threshold 180)
-
-;;;;;;;;;;;;;;;;;;;;;; Tree sitter ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(use-package tree-sitter :straight t)
-(use-package tree-sitter-langs :straight t :requires (tree-sitter))
-(use-package tree-sitter-indent :straight t)
-
-(global-tree-sitter-mode)
-(add-hook 'tree-sitter-after-on-hook 'tree-sitter-hl-mode)
-
 ;;;;;;;;;;;;;;;;;;;;;; Shell stuff ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)
 

lisp/icejam-custom-init.el

@@ -41,6 +41,7 @@
 (require 'icejam-keys-mode)
 (require 'icejam-base)
 (require 'icejam-sys-specific)
+(require 'icejam-tree-sitter)
 (require 'icejam-ivy)
 (require 'icejam-avy)
 (require 'icejam-transient)

lisp/icejam-tree-sitter.el

@@ -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

lisp/langs/icejam-lang-gleam.el

@@ -12,12 +12,13 @@
 
 (require 'icejam-prog-mode)
 
-(use-package gleam-mode
-  :requires (tree-sitter-indent lsp column-enforce-mode)
+(use-package gleam-ts-mode
   :straight '(:type git
               :host github
               :repo "gleam-lang/gleam-mode"
-              :files ("gleam-mode.el" "tree-sitter-gleam")))
+              :files ("gleam-ts-mode.el")))
+
+(add-to-list 'auto-mode-alist '("\\.gleam\\'" . gleam-ts-mode))
 
 (defun icejam-lang/activate-gleam-mode ()
   "All things Gleam."