Add purescript-language-server (#1596)

README.org

@@ -277,6 +277,7 @@
    | PHP(recommended)      | [[https://github.com/bmewburn/vscode-intelephense][intelephense]]                              | Yes           | npm i intelephense -g                                                                                   | Yes                          |
    | PHP                   | [[https://github.com/felixfbecker/php-language-server][php-language-server]]                       | Yes           | [[https://github.com/felixfbecker/php-language-server][php-language-server]]                                                                                     | Yes                          |
    | Powershell            | [[https://github.com/PowerShell/PowerShellEditorServices][PowerShellEditorServices]]                  | Yes           | Automatic                                                                                               | Yes                          |
+   | PureScript            | [[https://github.com/nwolverson/purescript-language-server][purescript-language-server]]                | Yes           | npm i purescript-language-server                                                                        | No                           |
    | Python                | [[https://github.com/palantir/python-language-server][pyls]]                                      | Yes           | pip install 'python-language-server[all]'                                                               | Yes                          |
    | Python(Microsoft)     | [[https://github.com/Microsoft/python-language-server][Microsoft Python Language Server]]          | [[https://github.com/emacs-lsp/lsp-python-ms][lsp-python-ms]] | [[https://github.com/emacs-lsp/lsp-python-ms][lsp-python-ms]]                                                                                           | Yes                          |
    | R                     | [[https://github.com/REditorSupport/languageserver][languageserver]]                            | Yes           | install.packages("languageserver")                                                                      | No                           |

lsp-clients.el

@@ -830,6 +830,38 @@ responsiveness at the cost of possible stability issues."
                   :priority -1
                   :server-id 'cmakels))
 
+;; PureScript
+(defgroup lsp-purescript nil
+  "LSP support for PureScript, using purescript-language-server."
+  :group 'lsp-mode
+  :link '(url-link "https://github.com/nwolverson/purescript-language-server"))
+
+(defcustom lsp-purescript-server-executable
+  "purescript-language-server"
+  "Arguments to pass to the server."
+  :type 'string
+  :risky t
+  :group 'lsp-purescript)
+
+(defcustom lsp-purescript-server-args
+  '("--stdio")
+  "Arguments to pass to the server."
+  :type '(repeat string)
+  :risky t
+  :group 'lsp-purescript)
+
+(defun lsp-purescript--server-command ()
+  "Generate LSP startup command for purescript-language-server."
+  (cons lsp-purescript-server-executable
+        lsp-purescript-server-args))
+
+(lsp-register-client
+ (make-lsp-client :new-connection (lsp-stdio-connection
+                                   #'lsp-purescript--server-command)
+                  :major-modes '(purescript-mode)
+                  :priority -1
+                  :server-id 'pursls))
+
 ;;; Rf
 (defgroup lsp-rf nil
   "Settings for Robot Framework Language Server."

lsp-mode.el

@@ -671,6 +671,7 @@ Changes take effect only when a new session is started."
                                         (nim-mode . "nim")
                                         (dhall-mode . "dhall")
                                         (cmake-mode . "cmake")
+                                        (purescript-mode . "purescript")
                                         (gdscript-mode . "gdscript")
                                         (perl-mode . "perl")
                                         (robot-mode . "robot"))