master 93755ea1a61 2/5: Create a blobless clone in treesit-admin--verify-major-mode-queries

[Yuan Fu]

branch: master
commit 93755ea1a6113e115ac3349b67e58e2f3fd03894
Author: Yuan Fu <casouri@gmail.com>
Commit: Yuan Fu <casouri@gmail.com>

    Create a blobless clone in treesit-admin--verify-major-mode-queries
    
    * admin/treesit-admin.el (treesit-admin--verify-major-mode-queries):
    Create a blobless clone.
    * lisp/treesit.el (treesit--install-language-grammar-blobless):
    New variable.
    (treesit--git-clone-repo): Support blobless clone.
---
 admin/treesit-admin.el | 1 +
 lisp/treesit.el        | 5 +++++
 2 files changed, 6 insertions(+)

diff --git a/admin/treesit-admin.el b/admin/treesit-admin.el
index 3c0798a29f2..440056aff21 100644
--- a/admin/treesit-admin.el
+++ b/admin/treesit-admin.el
@@ -96,6 +96,7 @@ queries that has problems with latest grammar."
   (let ((treesit-extra-load-path (list grammar-dir))
         (treesit-language-source-alist treesit-admin--builtin-language-sources)
         (treesit--install-language-grammar-full-clone t)
+        (treesit--install-language-grammar-blobless t)
         (version-alist nil)
         (invalid-feature-list nil)
         (valid-modes nil)
diff --git a/lisp/treesit.el b/lisp/treesit.el
index 7b7f4842505..69b800cb271 100644
--- a/lisp/treesit.el
+++ b/lisp/treesit.el
@@ -3925,6 +3925,9 @@ See `treesit-language-source-alist' for details."
 (defvar treesit--install-language-grammar-full-clone nil
   "If non-nil, do a full clone when cloning git repos.")
 
+(defvar treesit--install-language-grammar-blobless nil
+  "If non-nil, create a blobless clone when cloning git repos.")
+
 ;;;###autoload
 (defun treesit-install-language-grammar (lang &optional out-dir)
   "Build and install the tree-sitter language grammar library for LANG.
@@ -4048,6 +4051,8 @@ Use shallow clone by default.  Do a full clone when
   (let ((args (list "git" nil t nil "clone" url "--quiet")))
     (when (not treesit--install-language-grammar-full-clone)
       (setq args (append args (list "--depth" "1"))))
+    (when treesit--install-language-grammar-blobless
+      (setq args (append args (list "--filter=blob:none"))))
     (when revision
       (setq args (append args (list "-b" revision))))
     (setq args (append args (list workdir)))