From 6c43a7e5f5f8c1a8367efe50453b2b899028352c Mon Sep 17 00:00:00 2001
From: Karl Hallsby <karl@hallsby.com>
Date: Wed, 1 Oct 2025 21:54:36 -0500
Subject: [PATCH] gnu: Add tree-sitter-gpr.

* gnu/packages/tree-sitter.scm (tree-sitter-gpr): New variable.

Change-Id: Icc70682a3321788a8234419cdb75e3902493e916
Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
---
 gnu/packages/tree-sitter.scm | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

diff --git a/gnu/packages/tree-sitter.scm b/gnu/packages/tree-sitter.scm
index 5e864bdc88d5e38866355347a7e5d7ec6f38c1e9..a2f0cdd7d8ec62f8d141cfa55f08fba91ed6a04f 100644
--- a/gnu/packages/tree-sitter.scm
+++ b/gnu/packages/tree-sitter.scm
@@ -464,6 +464,30 @@ which will be used as a snippet in origin."
    "1.1.0"
    #:repository-url "https://github.com/camdencheek/tree-sitter-go-mod"))
 
+(define-public tree-sitter-gpr
+  (let ((version "0.1.0") ; In package.json, but untagged
+        (commit "cea857d3c18d1385d1f5b66cd09ea1e44173945c")
+        (revision "0"))
+    (tree-sitter-grammar
+     "gpr" "GNAT Project"
+     "0mf6ghqdyn0qbani9hg67yr6a68cbbbvhn734ndygxm30vqdz9xn"
+     (git-version version revision commit)
+     #:repository-url "https://github.com/brownts/tree-sitter-gpr"
+     #:commit commit
+     ;; binding.gyp & bindings is not part of this grammar.
+     #:get-cleanup-snippet
+     (lambda (grammar-directories)
+       #~(begin
+           (use-modules (guix build utils))
+           (for-each
+            (lambda (lang)
+              (with-directory-excursion lang
+                (delete-file "src/grammar.json")
+                (delete-file "src/node-types.json")
+                (delete-file "src/parser.c")
+                (delete-file-recursively "src/tree_sitter")))
+            '#$grammar-directories))))))
+
 (define-public tree-sitter-haskell
   (tree-sitter-grammar
    "haskell" "Haskell"