awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-04 15:03:42 -05:00
Code Issues Packages Projects Releases Wiki Activity

feat(tree-sitter): batch grammar installs

Browse Source 
Instead of being prompted 2-4 times to install each missing grammar,
batches them together into one prompt.
This commit is contained in:
Henrik Lissner
2025-09-02 12:26:49 +02:00
parent 75c3df7e87
commit bbed615f17
1 changed files with 14 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
modules/tools/tree-sitter/config.el
View File

@@ -70,10 +70,20 @@
;; and push forward anyway, even if a missing grammar ;; and push forward anyway, even if a missing grammar
;; results in a broken state. ;; results in a broken state.
(not (fboundp fallback-mode)) (not (fboundp fallback-mode))
(cl-every (if (get mode '+tree-sitter-ensured) ;; Ensure grammars are present (and prompt to install
(doom-rpartial #'treesit-ready-p 'message) ;; them if needed).
#'treesit-ensure-installed) (if-let* ((grammars
(cdr ts)))) (cl-remove-if (doom-rpartial #'treesit-ready-p 'message)
(cdr ts))))
(if (or (eq treesit-auto-install-grammar 'always)
(if (eq treesit-auto-install-grammar 'ask)
(y-or-n-p
(format "Missing tree-sitter grammars: %s\nInstall now?"
(mapconcat #'symbol-name grammars ", ")))))
(mapc #'treesit-install-language-grammar grammars)
(message "Aborted installing missing grammars...")
nil)
t)))
(put mode '+tree-sitter-ensured t) (put mode '+tree-sitter-ensured t)
mode) mode)
(fallback-mode)) (fallback-mode))