Update lsp-jsonnet.el to auto-download server (#4825)

* Update lsp-jsonnet.el to auto-download server

* Fix style issues in lsp-jsonnet

* Fix typo in lsp-dependency definition of jsonnet-language-server

Author: timfel

clients/lsp-jsonnet.el

@@ -37,12 +37,47 @@
   :risky t
   :type '(repeat string))
 
+(defcustom lsp-clients-jsonnet-server-download-url
+  (concat "https://github.com/grafana/jsonnet-language-server/releases/download/v0.16.0/"
+          (cond ((and (eq system-type 'gnu/linux)
+                      (string-match ".*x86_64.*" system-configuration))
+                 "jsonnet-language-server_0.16.0_linux_amd64")
+                ((and (eq system-type 'gnu/linux)
+                      (string-match ".*arm64.*" system-configuration))
+                 "jsonnet-language-server_0.16.0_linux_arm64")
+                ((and (eq system-type 'darwin)
+                      (string-match ".*arm.*" system-configuration))
+                 "jsonnet-language-server_0.16.0_darwin_arm64")
+                ((and (eq system-type 'darwin)
+                      (string-match ".*x86_64.*" system-configuration))
+                 "jsonnet-language-server_0.16.0_darwin_amd64")
+                ((eq system-type 'windows-nt)
+                 "jsonnet-language-server_0.16.0_windows_amd64.exe")))
+  "The jsonnet language server download url."
+  :group 'lsp-jsonnet
+  :type 'string)
+
+(lsp-dependency 'jsonnet-language-server
+                `(:system ,(cl-first lsp-clients-jsonnet-server-executable))
+                `(:download :url ,lsp-clients-jsonnet-server-download-url
+                            :store-path ,(f-join user-emacs-directory ".cache" "lsp"
+                                                 (if (eq system-type 'windows-nt)
+                                                     (concat (cl-first lsp-clients-jsonnet-server-executable) ".exe")
+                                                   (cl-first lsp-clients-jsonnet-server-executable)))
+                            :set-executable? t))
+
 (lsp-register-client
  (make-lsp-client
-  :new-connection (lsp-stdio-connection (lambda () lsp-clients-jsonnet-server-executable))
+  :new-connection (lsp-stdio-connection (lambda ()
+                                          `(,(or (executable-find
+                                                  (cl-first lsp-clients-jsonnet-server-executable))
+                                                 (lsp-package-path 'jsonnet-language-server)
+                                                 (cl-first lsp-clients-jsonnet-server-executable)))))
   :activation-fn (lsp-activate-on "jsonnet")
   :priority -1
   :major-modes '(jsonnet-mode)
+  :download-server-fn (lambda (_client callback error-callback _update?)
+                        (lsp-package-ensure 'jsonnet-language-server callback error-callback))
   :server-id 'jsonnet-lsp))
 
 (lsp-consistency-check lsp-jsonnet)