From ad28f370c35479a83e35591051f2edf982a98658 Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Mon, 31 Jul 2023 17:43:46 -0600 Subject: [PATCH] [Emacs] Add treesit-auto-for-each --- dotfiles/emacs.d/README.org | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/dotfiles/emacs.d/README.org b/dotfiles/emacs.d/README.org index 11bf8b28..d8c08c39 100644 --- a/dotfiles/emacs.d/README.org +++ b/dotfiles/emacs.d/README.org @@ -1576,6 +1576,16 @@ out how to detect that a buffer is a man mode buffer. (setq treesit-auto-install t) (global-treesit-auto-mode +1) + (defun treesit-auto-for-each (fn) + (cl-loop for recipe in treesit-auto-recipe-list + do + (let ((from (treesit-auto-recipe-remap recipe)) + (to (treesit-auto-recipe-ts-mode recipe))) + (funcall fn from to)))) + + (defun treesit-auto-get-mode-hook-symbol (mode) + (intern (concat (symbol-name mode) "-mode-hook"))) + (defun treesit-auto-copy-all-lsp-languages () (cl-loop for recipe in treesit-auto-recipe-list do @@ -1595,7 +1605,8 @@ out how to detect that a buffer is a man mode buffer. 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))))))) + (setf (lsp--client-major-modes client) + (append major-modes (list to))))))) (use-package lsp-mode :config