Fix use tar xz for zig (#5017)

* feat: explicitly support tar.xz files.

* fix(clients): use tar.xz for zls download.

As far as I can tell, the last zls that had a .tar.gz path was v0.11.0 released
in August 2023.

Switch to the correct .tar.xz path. We could just update that path, but we
provide a custom to allow the old path to be used, and we explicitly support
:tarxz as an option for :decompress to be explicit. This isn't strictly
necessary, since the same `tar xz file` command will decompress .tar.gz and
.tar.xz along with .tar.bz2 and .tar.zst, but we download to the correct
intermediate path in order to reduce confusion.

Author: mijoharas

clients/lsp-zig.el

@@ -267,10 +267,10 @@ If the value is `nil', it will use the latest version instead."
                arch "windows" ver "zip"))
       (darwin
        (format lsp-zig-download-url-format
-               arch "macos" ver "tar.gz"))
+               arch "macos" ver "tar.xz"))
       (gnu/linux
        (format lsp-zig-download-url-format
-               arch "linux" ver "tar.gz")))))
+               arch "linux" ver "tar.xz")))))
 
 (defun lsp-zig--stored-zls-executable ()
   "Return the stored zls executable.
@@ -284,7 +284,7 @@ and not the global storage."
  'zls
  '(:system "zls")
  `(:download :url ,(lambda (&rest _) (lsp-zig--zls-url))
-             :decompress ,(pcase system-type ('windows-nt :zip) (_ :targz))
+             :decompress ,(pcase system-type ('windows-nt :zip) (_ :tarxz))
              :store-path ,(f-join lsp-zig-server-store-path "temp")
              :set-executable? t)
  `(:system ,(lsp-zig--stored-zls-executable)))

lsp-mode.el

@@ -8684,8 +8684,9 @@ nil."
             (:gzip (concat store-path ".gz"))
             (:zip (concat store-path ".zip"))
             (:targz (concat store-path ".tar.gz"))
+            (:tarxz (concat store-path ".tar.xz"))
             (`nil store-path)
-            (_ (error ":decompress must be `:gzip', `:zip', `:targz' or `nil'")))))
+            (_ (error ":decompress must be `:gzip', `:zip', `:targz', `:tarxz' or `nil'")))))
     (make-thread
      (lambda ()
        (condition-case err
@@ -8728,7 +8729,8 @@ nil."
                  (:gzip
                   (lsp-gunzip download-path))
                  (:zip (lsp-unzip download-path (f-parent store-path)))
-                 (:targz (lsp-tar-gz-decompress download-path (f-parent store-path))))
+                 (:targz (lsp-tar-gz-decompress download-path (f-parent store-path)))
+                 (:tarxz (lsp-tar-gz-decompress download-path (f-parent store-path)))) ;; NOTE: this function decompresses all tar compressed paths.
                (lsp--info "Decompressed %s..." store-path))
              (funcall callback))
          (error (funcall error-callback err)))))))