diff --git a/CHANGELOG.org b/CHANGELOG.org
index 514fdb9b92..ce0a05a0be 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -24,6 +24,7 @@
* Add fennel support
* Add support for [[https://github.com/nextflow-io/language-server][Nextflow]]
* Add TypeSpec support
+ * Add Tree-sitter query support
** 9.0.0
* Add language server config for QML (Qt Modeling Language) using qmlls.
diff --git a/clients/lsp-ts-query.el b/clients/lsp-ts-query.el
new file mode 100644
index 0000000000..e96276f834
--- /dev/null
+++ b/clients/lsp-ts-query.el
@@ -0,0 +1,134 @@
+;;; lsp-ts-query.el --- LSP client for tree-sitter query -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2024 emacs-lsp maintainers
+
+;; This file is not part of GNU Emacs.
+
+;; This program is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program. If not, see .
+
+;;; Commentary:
+;;
+;; LSP client for tree-sitter query.
+;;
+
+;;; Code:
+
+(require 'lsp-mode)
+
+(declare-function tree-sitter-langs--bin-dir "ext:tree-sitter-langs-build.el")
+
+(defgroup lsp-ts-query nil
+ "LSP client for tree-sitter query."
+ :group 'lsp-mode
+ :link '(url-link "https://github.com/ribru17/ts_query_ls"))
+
+(defcustom lsp-ts-query-executable "ts_query_ls"
+ "The ts-query-ls executable to use.
+
+Leave as just the executable name to use the default behavior of finding the
+executable with variable `exec-path'."
+ :group 'lsp-ts-query
+ :type 'string)
+
+(defcustom lsp-ts-query-parser-install-directories
+ (cl-remove-if #'nil
+ (vector (expand-file-name (locate-user-emacs-file "tree-sitter"))
+ (and (featurep 'tree-sitter-langs)
+ (tree-sitter-langs--bin-dir))))
+ "Where to look for parsers, of the form .(so|dll|dylib) or
+tree-sitter-.wasm."
+ :group 'lsp-ts-query
+ :type '(vector string))
+
+(defcustom lsp-ts-query-language-retrieval-patterns nil
+ "A list of patterns to aid the LSP in finding a language, given a file
+path. Patterns must have one capture group which represents the language
+name. Ordered from highest to lowest precedence."
+ :group 'lsp-ts-query
+ :type '(vector string))
+
+;;
+;;; Installation
+
+(defcustom lsp-ts-query-server-store-path
+ (expand-file-name "ts-query/" lsp-server-install-dir)
+ "The path to the file in which ts-query will be stored."
+ :type 'file
+ :group 'lsp-ts-query)
+
+(defconst lsp-ts-query--download-url-format
+ "https://github.com/ribru17/ts_query_ls/releases/latest/download/ts_query_ls-%s-%s.%s"
+ "Format to the download url link.")
+
+(defun lsp-ts-query--url ()
+ "Return Url points to the ts-query' zip/tar file."
+ (let* ((x86 (string-prefix-p "x86_64" system-configuration))
+ (arch (if x86 "x86_64" "aarch64")))
+ (cl-case system-type
+ ((cygwin windows-nt ms-dos)
+ (format lsp-ts-query--download-url-format arch "pc-windows-msvc" "zip"))
+ (darwin
+ (format lsp-ts-query--download-url-format arch "apple-darwin" "tar.gz"))
+ (gnu/linux
+ (format lsp-ts-query--download-url-format arch "unknown-linux-gnu" "tar.gz")))))
+
+(defun lsp-ts-query--stored-executable ()
+ "Return the stored ts-query executable.
+
+This is differ from the variable `lsp-ts-query-executable'; this is local storage
+and not the global storage."
+ (f-join lsp-ts-query-server-store-path
+ (pcase system-type ('windows-nt "ts_query_ls.exe") (_ "ts_query_ls"))))
+
+(lsp-register-custom-settings
+ '(("ts_query_ls.settings.parser_install_directories" lsp-ts-query-parser-install-directories)
+ ("ts_query_ls.settings.language_retrieval_patterns" lsp-ts-query-language-retrieval-patterns)))
+
+(lsp-dependency
+ 'ts-query-ls
+ '(:system "ts_query_ls")
+ `(:download :url ,(lsp-ts-query--url)
+ :decompress ,(pcase system-type ('windows-nt :zip) (_ :targz))
+ :store-path ,(f-join lsp-ts-query-server-store-path "temp")
+ :set-executable? t)
+ `(:system ,(lsp-ts-query--stored-executable)))
+
+(defun lsp-ts-query--check-enabled (file-name _mode)
+ "Check if the the language server should be enabled in this buffer
+or FILE-NAME."
+ (let ((ext (file-name-extension file-name)))
+ (when (and (string-match-p "/queries/" file-name)
+ (equal "scm" ext))
+ t)))
+
+(lsp-register-client
+ (make-lsp-client
+ :new-connection (lsp-stdio-connection
+ (lambda () (or (executable-find lsp-ts-query-executable)
+ (lsp-ts-query--stored-executable)))
+ (lambda ()
+ (or (executable-find lsp-ts-query-executable)
+ (file-executable-p (lsp-ts-query--stored-executable)))))
+ :activation-fn #'lsp-ts-query--check-enabled
+ :priority -1
+ :add-on? t
+ :server-id 'ts-query-ls
+ :download-server-fn
+ (lambda (_client callback error-callback _update?)
+ (lsp-package-ensure 'ts-query-ls callback error-callback))))
+
+(lsp-consistency-check lsp-ts-query)
+
+(provide 'lsp-ts-query)
+;;; lsp-ts-query.el ends here
diff --git a/docs/lsp-clients.json b/docs/lsp-clients.json
index 3af660efba..d97ebdb9b5 100644
--- a/docs/lsp-clients.json
+++ b/docs/lsp-clients.json
@@ -1188,6 +1188,13 @@
"installation-url": "https://docs.trunk.io/check",
"debugger": "Not available"
},
+ {
+ "name": "ts-query",
+ "full-name": "Tree-sitter Query",
+ "server-name": "ts-query-lsp",
+ "server-url": "https://github.com/ribru17/ts_query_ls",
+ "debugger": "Not available"
+ },
{
"name": "typeprof",
"full-name": "Ruby (TypeProf)",
diff --git a/lsp-mode.el b/lsp-mode.el
index a92dfa7e2c..49fed205d6 100644
--- a/lsp-mode.el
+++ b/lsp-mode.el
@@ -189,7 +189,7 @@ As defined by the Language Server Protocol 3.16."
lsp-ruby-syntax-tree lsp-ruff lsp-rust lsp-semgrep lsp-shader
lsp-solargraph lsp-solidity lsp-sonarlint lsp-sorbet lsp-sourcekit
lsp-sql lsp-sqls lsp-steep lsp-svelte lsp-tailwindcss lsp-terraform
- lsp-tex lsp-tilt lsp-toml lsp-trunk lsp-ttcn3 lsp-typeprof lsp-typespec lsp-v
+ lsp-tex lsp-tilt lsp-toml lsp-trunk lsp-ts-query lsp-ttcn3 lsp-typeprof lsp-typespec lsp-v
lsp-vala lsp-verilog lsp-vetur lsp-vhdl lsp-vimscript lsp-volar lsp-wgsl
lsp-xml lsp-yaml lsp-yang lsp-zig)
"List of the clients to be automatically required."
diff --git a/mkdocs.yml b/mkdocs.yml
index d9d89650d7..be996d5602 100644
--- a/mkdocs.yml
+++ b/mkdocs.yml
@@ -173,6 +173,7 @@ nav:
- TeX, LaTeX, etc (texlab, external): page/lsp-latex.md
- Tilt: page/lsp-tilt.md
- TOML: page/lsp-toml.md
+ - Tree-sitter Query: page/lsp-ts-query.md
- Trunk: page/lsp-trunk.md
- TTCN3: page/lsp-ttcn3.md
- TypeSpec: page/lsp-typespec.md