feat(cmake/nginx): Support auto install lanugage server (#4273)

Author: jcs090218

clients/lsp-cmake.el

@@ -1,6 +1,6 @@
 ;;; lsp-cmake.el --- description -*- lexical-binding: t; -*-
 
-;; Copyright (C) 2020 emacs-lsp maintainers
+;; Copyright (C) 2020-2023 emacs-lsp maintainers
 
 ;; Author: emacs-lsp maintainers
 ;; Keywords: lsp, cmake
@@ -37,13 +37,24 @@
   :group 'lsp-cmake
   :package-version '(lsp-mode . "8.0.1"))
 
+(defun lsp-cmake--download-server (_client callback error-callback update?)
+  "Install/update CMake language server using `pip
+
+Will invoke CALLBACK or ERROR-CALLBACK based on result.
+Will update if UPDATE? is t."
+  (lsp-async-start-process
+   callback
+   error-callback
+   "pip" "install" "cmake-language-server" (when update? "-U")))
+
 (lsp-register-client
  (make-lsp-client :new-connection (lsp-stdio-connection
                                    (lambda ()
                                      lsp-cmake-server-command))
                   :activation-fn (lsp-activate-on "cmake")
                   :priority -1
-                  :server-id 'cmakels))
+                  :server-id 'cmakels
+                  :download-server-fn #'lsp-cmake--download-server))
 
 (lsp-consistency-check lsp-cmake)
 

clients/lsp-nginx.el

@@ -1,6 +1,6 @@
 ;;; lsp-nginx.el --- Nginx Client settings  -*- lexical-binding: t; -*-
 
-;; Copyright (C) 2021  Shen, Jen-Chieh
+;; Copyright (C) 2021-2023  Shen, Jen-Chieh
 
 ;; Author: Jen-Chieh Shen <[email protected]>
 ;; Keywords: nginx lsp
@@ -40,12 +40,23 @@
   :type '(repeat string)
   :package-version `(lsp-mode . "8.0.1"))
 
+(defun lsp-nginx--download-server (_client callback error-callback update?)
+  "Install/update Nginx language server using `pip
+
+Will invoke CALLBACK or ERROR-CALLBACK based on result.
+Will update if UPDATE? is t."
+  (lsp-async-start-process
+   callback
+   error-callback
+   "pip" "install" "nginx-language-server" (when update? "-U")))
+
 (lsp-register-client
  (make-lsp-client :new-connection (lsp-stdio-connection
                                    (lambda () lsp-nginx-server-command))
                   :major-modes '(nginx-mode)
                   :priority -1
-                  :server-id 'nginx-ls))
+                  :server-id 'nginx-ls
+                  :download-server-fn #'lsp-nginx--download-server))
 
 (lsp-consistency-check lsp-nginx)