diff options
Diffstat (limited to 'init/treesit/init-treesit-setup-available-languages.el')
| -rw-r--r-- | init/treesit/init-treesit-setup-available-languages.el | 97 |
1 files changed, 0 insertions, 97 deletions
diff --git a/init/treesit/init-treesit-setup-available-languages.el b/init/treesit/init-treesit-setup-available-languages.el deleted file mode 100644 index 9a25691..0000000 --- a/init/treesit/init-treesit-setup-available-languages.el +++ /dev/null @@ -1,97 +0,0 @@ -;; -*- lexical-binding: t; -*- - -;; This script is a quick workaround for setting up treesitter modes. -;; Hopefully this won't be needed for long but it works for now! -;; -;; This just runs through the list of modes below, checks if the -;; required treesitter parsers are installed, and if so, -;; sets up auto-mode-alist and interpreter-mode-alist -;; to open the respective source files with the treesitter -;; mode for that language. -;; -;; To use, you should just add the modes and other info to the list -;; below, and then "require" this file in your init. -;; The messages that get generated by this script may be burried -;; by other startup messages, so it may not appear to have done -;; anything! -;; -;; To test if it works, visit a file such as "x.py", then run -;; "M-x describe-mode". There should be some info about -;; the current major mode that looks like this: -;; -;; "The major mode is Python mode defined in python.el: -;; Major mode for editing Python files, using tree-sitter library." - -(defvar -quiet? nil - "Suppress messages when setting up treesitter modes.") - -(defvar -modes `((python-ts-mode - ((:parsers . python) - (:file-ext . ,(rx ".py")) - (:interpreters . ("python" "python3")))) - (rust-ts-mode - ((:parsers . rust) - (:file-ext . ,(rx ".rs")))) - (bash-ts-mode - ((:parsers . bash) - (:file-ext . ,(rx ".sh")) - (:interpreters . ("bash" "sh" "openrc-run")))) - (c-ts-mode - ((:parsers . c) - (:file-ext . ,(rx ".c")))) - (c++-ts-mode - ((:parsers . cpp) - (:file-ext . ,(rx (or ".c++" ".cpp" ".cxx" - ".h++" ".hpp" ".hxx"))))) - (c-or-c++-ts-mode - ((:parsers . (c c++)) - (:file-ext . ,(rx ".h")))) - (toml-ts-mode - ((:parsers . toml) - (:file-ext . ,(rx ".toml"))))) - "Treesitter modes and some information required to set them up. - -Parsers are the treesitter packages that need to be installed to -use the associated mode. python-ts-mode requires the python treesitter -parser package to be installed for example. - -File extension is for example .py for python scripts. Some -modes like c++-ts-mode are associated with a few -extensions, and c-or-c++-mode is associated with .h -because the extension is ambiguous. - -Interpreters are used to associate certain shebangs with the treesitter -mode. Files that start with '#!/usr/bin/env python' for example will -be associated with python-ts-mode if 'python' is included in the -interpreters list.") - -(defun -ready-quiet? (parser) - (treesit-ready-p parser t)) - -(cl-defun -setup-mode? (&key ts-mode - required-parsers - file-extensions - interpreters) - (when (seq-every-p '-ready-quiet? (ensure-list required-parsers)) - (add-to-list 'auto-mode-alist (cons file-extensions ts-mode)) - (when interpreters - (seq-each (lambda (interpreter) - (add-to-list 'interpreter-mode-alist (cons interpreter ts-mode))) - (ensure-list interpreters))) - t)) - -(seq-each (lambda (mode) - (when (and (-setup-mode? - :ts-mode (car mode) - :required-parsers (alist-get :parsers (cadr mode)) - :file-extensions (alist-get :file-ext (cadr mode)) - :interpreters (alist-get :interpreters (cadr mode))) - (not -quiet?)) - (message "Setup treesitter mode %s" (car mode)))) - -modes) - -(provide 'init-treesit-setup-available-languages) - -;; Local Variables: -;; read-symbol-shorthands: (("-" . "init-treesit-setup-available-languages-")) -;; End: |