From 802d8e9bd74bd8d68e708fe9cd0972ee37258d13 Mon Sep 17 00:00:00 2001
From: may <m4rch3n1ng@gmail.com>
Date: Sun, 23 Nov 2025 14:48:21 +0100
Subject: [PATCH] queries(scheme): add some very basic tags.scm

---
 book/src/generated/lang-support.md |  2 +-
 runtime/queries/scheme/tags.scm    | 21 +++++++++++++++++++++
 2 files changed, 22 insertions(+), 1 deletion(-)
 create mode 100644 runtime/queries/scheme/tags.scm

diff --git a/book/src/generated/lang-support.md b/book/src/generated/lang-support.md
index 3984af08..4bed5fa3 100644
--- a/book/src/generated/lang-support.md
+++ b/book/src/generated/lang-support.md
@@ -246,7 +246,7 @@
 | sage | ✓ | ✓ |  |  |  |  |
 | scala | ✓ | ✓ | ✓ |  |  | `metals` |
 | scfg | ✓ |  |  |  |  |  |
-| scheme | ✓ | ✓ | ✓ |  | ✓ |  |
+| scheme | ✓ | ✓ | ✓ | ✓ | ✓ |  |
 | scss | ✓ |  |  |  | ✓ | `vscode-css-language-server` |
 | shellcheckrc | ✓ | ✓ |  |  |  |  |
 | slang | ✓ | ✓ | ✓ |  |  | `slangd` |
diff --git a/runtime/queries/scheme/tags.scm b/runtime/queries/scheme/tags.scm
new file mode 100644
index 00000000..c1dc6326
--- /dev/null
+++ b/runtime/queries/scheme/tags.scm
@@ -0,0 +1,21 @@
+; function definitions
+(list
+  .
+  (symbol) @_define
+  .
+  (list
+    .
+    [
+      (symbol) @name
+      ; for curried functions
+      (list . (symbol) @name)
+      (list . (list . [(symbol) (list)] @name))
+    ])
+  (#eq? @_define "define")) @definition.function
+
+(list
+  .
+  (symbol) @_define
+  .
+  (symbol) @name
+  (#eq? @_define "define")) @definition.constant
-- 
2.51.2