feat: Add Postgres LS (#4755)

* feat: Add Postgres LS

* lower priority

Author: jcs090218

CHANGELOG.org

@@ -33,7 +33,7 @@
   * Add Roc support
   * Add support for environment variables in rust analyzer runnables. Allowing the new ~Update Tests (Expect)~ code lens to work as expected.
   * Add support for [[https://github.com/mathworks/MATLAB-language-server][MATLAB language server]] (requires [[https://github.com/MathWorks/Emacs-MATLAB-Mode][matlab-mode]]).
-  * Add support for [[https://github.com/c3lang/c3c][c3 language]] (requires [[https://github.com/c3lang/c3-ts-mode][c3-ts-mode]] and [[https://github.com/pherrymason/c3-lsp][c3lsp]]).    
+  * Add support for [[https://github.com/c3lang/c3c][c3 language]] (requires [[https://github.com/c3lang/c3-ts-mode][c3-ts-mode]] and [[https://github.com/pherrymason/c3-lsp][c3lsp]]).
   * Drop support for emacs 27.1 and 27.2
   * Add ~lsp-nix-nixd-server-arguments~ to allow passing arguments to the ~nixd~ LSP.
   * Improve the lsp-ocaml client (see [[https://github.com/emacs-lsp/lsp-mode/issues/4731][#4731]] for the follow-up issue. MRs: [[https://github.com/emacs-lsp/lsp-mode/pull/4741][#4741]], [[https://github.com/emacs-lsp/lsp-mode/pull/4732][#4732]])
@@ -156,6 +156,7 @@
   * Add COBOL support.
   * Add Common Lisp support.
   * Add YANG support using TypeFox/yang-lsp Server.
+  * Add Postgres langauge server support.
 
 ** Release 8.0.0
   * Add ~lsp-clients-angular-node-get-prefix-command~ to get the Angular server from another location which is still has ~/lib/node_modules~ in it.

clients/lsp-postgres.el

@@ -0,0 +1,93 @@
+;;; lsp-postgres.el --- Postgres client settings.  -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2025  Shen, Jen-Chieh
+
+;; 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 <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+;;
+;; LSP client for Postgres language server.
+;;
+
+;;; Code:
+
+(require 'lsp-mode)
+
+(defgroup lsp-postgres nil
+  "LSP support for SQL, using Postgres language server."
+  :group 'lsp-mode
+  :link '(url-link "https://github.com/supabase-community/postgres-language-server")
+  :package-version `(lsp-mode . "9.0.1"))
+
+(defcustom lsp-postgres-server-path nil
+  "Path points for Postgres language server.
+
+This is only for development use."
+  :type 'string
+  :group 'lsp-postgres)
+
+(defcustom lsp-postgres-server-store-path
+  (expand-file-name "postgres-ls/" lsp-server-install-dir)
+  "The path to the file in which Postgres ls will be stored."
+  :type 'file
+  :group 'lsp-postgres)
+
+(defconst lsp-postgres-download-url-format
+  "https://github.com/supabase-community/postgres-language-server/releases/latest/download/postgrestools_%s-%s"
+  "Format to the download url link.")
+
+(defun lsp-postgres--postgres-ls-url ()
+  "Return Url points to the zls' 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-postgres-download-url-format arch "pc-windows-msvc"))
+      (darwin
+       (format lsp-postgres-download-url-format arch "apple-darwin"))
+      (gnu/linux
+       (format lsp-postgres-download-url-format arch "unknown-linux-gnu")))))
+
+(defun lsp-postgres--server-command ()
+  "Generate startup command for Postgres language server."
+  (list (or lsp-postgres-server-path
+            (lsp-package-path 'postgres-ls))
+        "lsp-proxy"))
+
+(lsp-dependency
+ 'postgres-ls
+ '(:system "postgres-ls")
+ `(:download :url ,(lsp-postgres--postgres-ls-url)
+             :store-path ,(f-join lsp-postgres-server-store-path
+                                  (pcase system-type
+                                    ('windows-nt "postgrestools.exe")
+                                    (_           "postgrestools")))
+             :set-executable? t))
+
+(lsp-register-client
+ (make-lsp-client
+  :new-connection (lsp-stdio-connection #'lsp-postgres--server-command)
+  :major-modes '(sql-mode)
+  :priority -2
+  :multi-root t
+  :server-id 'postgres-ls
+  :download-server-fn (lambda (_client callback error-callback _update?)
+                        (lsp-package-ensure 'postgres-ls callback error-callback))))
+
+(lsp-consistency-check lsp-postgres)
+
+(provide 'lsp-postgres)
+;;; lsp-postgres.el ends here

clients/lsp-sql.el

@@ -55,6 +55,7 @@ This is only for development use."
   :new-connection (lsp-stdio-connection #'lsp-sql--server-command)
   :major-modes '(sql-mode)
   :priority -1
+  :multi-root t
   :server-id 'sql-ls
   :download-server-fn (lambda (_client callback error-callback _update?)
                         (lsp-package-ensure 'sql-ls callback error-callback))))

clients/lsp-sqls.el

@@ -188,6 +188,7 @@ use the current region if set, otherwise the entire buffer."
                                        ("switchDatabase" #'lsp-sql-switch-database)
                                        ("switchConnections" #'lsp-sql-switch-connection))
                   :server-id 'sqls
+                  :multi-root t
                   :initialized-fn (lambda (workspace)
                                     (-> workspace
                                         (lsp--workspace-server-capabilities)

docs/lsp-clients.json

@@ -1118,6 +1118,14 @@
     "installation": "go install github.com/sqls-server/sqls@latest",
     "debugger": "Not available"
   },
+  {
+    "name": "postgres-ls",
+    "full-name": "SQL (postgres-ls)",
+    "server-name": "postgres-language-server",
+    "server-url": "https://github.com/supabase-community/postgres-language-server",
+    "installation-url": "https://pgtools.dev/#installation",
+    "debugger": "Not available"
+  },
   {
     "name": "steep",
     "full-name": "Ruby (Steep)",

lsp-mode.el

@@ -185,10 +185,10 @@ As defined by the Language Server Protocol 3.16."
      lsp-ltex-plus lsp-lua lsp-fennel lsp-magik lsp-markdown lsp-marksman
      lsp-matlab lsp-mdx lsp-meson lsp-metals lsp-mint lsp-mojo lsp-move lsp-mssql
      lsp-nextflow lsp-nginx lsp-nim lsp-nix lsp-nushell lsp-ocaml lsp-openscad
-     lsp-pascal lsp-perl lsp-perlnavigator lsp-php lsp-pls lsp-purescript
-     lsp-pwsh lsp-pyls lsp-pylsp lsp-pyright lsp-python-ms lsp-qml lsp-r
-     lsp-racket lsp-remark lsp-rf lsp-roc lsp-roslyn lsp-rubocop lsp-ruby-lsp
-     lsp-ruby-syntax-tree lsp-ruff lsp-rust lsp-semgrep lsp-shader
+     lsp-pascal lsp-perl lsp-perlnavigator lsp-php lsp-pls lsp-postgres
+     lsp-purescript lsp-pwsh lsp-pyls lsp-pylsp lsp-pyright lsp-python-ms
+     lsp-qml lsp-r lsp-racket lsp-remark lsp-rf lsp-roc lsp-roslyn lsp-rubocop
+     lsp-ruby-lsp 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-ts-query lsp-ttcn3 lsp-typeprof

mkdocs.yml

@@ -169,6 +169,7 @@ nav:
     - ShaderLab: page/lsp-shader.md
     - SQL (sql): page/lsp-sql.md
     - SQL (sqls): page/lsp-sqls.md
+    - SQL (postgres-ls): page/lsp-postgres.md
     - Standard ML (Millet): page/lsp-sml.md
     - Svelte: page/lsp-svelte.md
     - Swift: https://emacs-lsp.github.io/lsp-sourcekit