Add lsp-gunzip function to decompress gzipped files

Also add zip? and gzip? keys to lsp-download-install so that
dependencies can decompress themselves.

Author: lukel97

lsp-mode.el

@@ -7192,19 +7192,32 @@ nil."
 
 
 ;; Download URL handling
-(cl-defun lsp-download-install (callback error-callback &key url store-path &allow-other-keys)
-  (let ((url (lsp-resolve-value url))
-        (store-path (lsp-resolve-value store-path)))
+(cl-defun lsp-download-install (callback error-callback &key url store-path gzip? zip? &allow-other-keys)
+  (let* ((url (lsp-resolve-value url))
+         (gzip? (lsp-resolve-value gzip?))
+         (store-path (lsp-resolve-value store-path))
+         (download-path
+          (cond
+           (gzip? (concat store-path ".gz"))
+           (zip? (concat store-path ".zip"))
+           (t store-path))))
     (make-thread
      (lambda ()
        (condition-case err
            (progn
-             (when (f-exists? store-path)
-               (f-delete store-path))
-             (lsp--info "Starting to download %s to %s..." url store-path)
-             (mkdir (f-parent store-path) t)
-             (url-copy-file url store-path)
-             (lsp--info "Finished downloading %s..." store-path)
+             (when (f-exists? download-path)
+               (f-delete download-path))
+             (lsp--info "Starting to download %s to %s..." url download-path)
+             (mkdir (f-parent download-path) t)
+             (url-copy-file url download-path)
+             (lsp--info "Finished downloading %s..." download-path)
+             (when (or gzip? zip?)
+               (lsp--info "Decompressing %s..." download-path)
+               (when gzip?
+                 (lsp-gunzip download-path))
+               (when zip?
+                 (lsp-unzip download-path store-path))
+               (lsp--info "Decompressed %s..." store-path))
              (funcall callback))
          (error (funcall error-callback err)))))))
 
@@ -7243,7 +7256,24 @@ STORE-PATH to make it executable."
   (unless lsp-unzip-script
     (error "Unable to find `unzip' or `powershell' on the path, please customize `lsp-unzip-script'"))
   (shell-command (format lsp-unzip-script zip-file dest)))
+
+;; gunzip
+
+(defconst lsp-ext-gunzip-script "gzip -d %1$s"
+  "Script to decompress a gzippped file with gzip.")
+
+(defcustom lsp-gunzip-script (cond ((executable-find "gzip") lsp-ext-gunzip-script)
+                                   (t nil))
+  "The script to decompress a gzipped file. Should be a format string with one argument for the file to be decompressed in place."
+  :group 'lsp-mode
+  :type 'string
+  :package-version '(lsp-mode . "7.1"))
 
+(defun lsp-gunzip (gz-file)
+  "Decompress file in place."
+  (unless lsp-gunzip-script
+    (error "Unable to find `gzip' on the path, please customize `lsp-gunzip-script'"))
+  (shell-command (format lsp-gunzip-script gz-file)))
 
 ;; VSCode marketplace