From 932370a9b3cb4d1fdd91b1eb3dbfc8c7c09a6e79 Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Mon, 31 Jul 2023 16:13:19 -0600
Subject: [PATCH] [Emacs] Add treesit-auto

---
 dotfiles/emacs.d/.gitignore |  1 +
 dotfiles/emacs.d/README.org | 34 ++++++++++++++++++++++++++++++++++
 2 files changed, 35 insertions(+)

diff --git a/dotfiles/emacs.d/.gitignore b/dotfiles/emacs.d/.gitignore
index cbf4c312..f06af5b0 100644
--- a/dotfiles/emacs.d/.gitignore
+++ b/dotfiles/emacs.d/.gitignore
@@ -49,3 +49,4 @@ uber.el
 url
 var
 xkcd
+/tree-sitter
diff --git a/dotfiles/emacs.d/README.org b/dotfiles/emacs.d/README.org
index fb1fd54a..11bf8b28 100644
--- a/dotfiles/emacs.d/README.org
+++ b/dotfiles/emacs.d/README.org
@@ -1566,7 +1566,41 @@ out how to detect that a buffer is a man mode buffer.
       (Man-fontify-manpage)
       (read-only-mode +1))))
 #+END_SRC
+** treesit
+*** treesit-auto
+#+begin_src emacs-lisp
+(use-package treesit-auto
+  :demand t
+  :config
+  (progn
+	(setq treesit-auto-install t)
+	(global-treesit-auto-mode +1)
 
+	(defun treesit-auto-copy-all-lsp-languages ()
+	  (cl-loop for recipe in treesit-auto-recipe-list
+			   do
+			   (let ((from (treesit-auto-recipe-remap recipe))
+					 (to (treesit-auto-recipe-ts-mode recipe)))
+				 (treesit-auto-copy-lsp-language from to)
+				 (treesit-auto-copy-lsp-client-languages from to))))
+
+	(defun treesit-auto-copy-lsp-language (from to)
+	  (let ((from-value (alist-get from lsp-language-id-configuration)))
+		(when from-value
+		  (add-to-list 'lsp-language-id-configuration `(,to . ,from-value))
+		  from-value)))
+
+	(defun treesit-auto-copy-lsp-client-languages (from to)
+	  (cl-loop for client in (hash-table-values lsp-clients)
+			   do
+               (let ((major-modes (lsp--client-major-modes client)))
+				 (when (memq from major-modes)
+				   (setf (lsp--client-major-modes client) (append major-modes (list to)))))))
+
+	(use-package lsp-mode
+	  :config
+	  (treesit-auto-copy-all-lsp-languages))))
+#+end_src
 * helpful
 #+begin_src emacs-lisp
 (use-package helpful