Fix progress feature

Author: ericdallo

gradle.properties

@@ -19,7 +19,7 @@ platformVersion = 2023.3
 
 # Plugin Dependencies -> https://plugins.jetbrains.com/docs/intellij/plugin-dependencies.html
 # Example: platformPlugins = com.intellij.java, com.jetbrains.php:203.4449.22
-platformPlugins = com.intellij.java, com.redhat.devtools.lsp4ij:0.10.0-20250124-080922@nightly
+platformPlugins = com.intellij.java, com.redhat.devtools.lsp4ij:0.10.0-20250128-001632@nightly
 
 # Gradle Releases -> https://github.com/gradle/gradle/releases
 gradleVersion = 8.5

src/main/clojure/com/github/clojure_lsp/intellij/extension/language_server_factory.clj

@@ -8,11 +8,12 @@
    [com.rpl.proxy-plus :refer [proxy+]])
   (:import
    [com.intellij.execution.configurations GeneralCommandLine]
+   [com.intellij.openapi.progress ProgressIndicator]
    [com.intellij.openapi.project Project ProjectLocator]
    [com.intellij.openapi.vfs VirtualFile]
    [com.redhat.devtools.lsp4ij LSPIJUtils]
    [com.redhat.devtools.lsp4ij.client LanguageClientImpl]
-   [com.redhat.devtools.lsp4ij.client.features LSPClientFeatures]
+   [com.redhat.devtools.lsp4ij.client.features LSPClientFeatures LSPProgressFeature]
    [com.redhat.devtools.lsp4ij.server OSProcessStreamConnectionProvider]
    [java.io File]
    [java.util List]
@@ -50,24 +51,28 @@
      (server/start! project))))
 
 (defn -createClientFeatures [_]
-  (proxy+ [] LSPClientFeatures
-    (isEnabled [_this ^VirtualFile file]
-      (case (:status @server)
-        :installing
-        false
+  (doto
+   (proxy+ [] LSPClientFeatures
+     (isEnabled [_this ^VirtualFile file]
+       (case (:status @server)
+         :installing
+         false
 
-        :installed
-        true
+         :installed
+         true
 
-        :not-found
-        (do (install-server (.guessProjectForFile (ProjectLocator/getInstance) file))
-            false)))
-    (initializeParams [_ ^InitializeParams params]
-      (.setWorkDoneToken params "clojure-lsp-startup")
-      (.setInitializationOptions params {"dependency-scheme" "jar"
-                                         "hover" {"arity-on-same-line?" true}}))
-    (findFileByUri [_ ^String uri]
-      (if (and (string/starts-with? uri "file:")
-               (string/includes? uri ".jar!"))
-        (LSPIJUtils/findResourceFor (string/replace-first uri "file:" "jar:file:"))
-        (LSPIJUtils/findResourceFor uri)))))
+         :not-found
+         (do (install-server (.guessProjectForFile (ProjectLocator/getInstance) file))
+             false)))
+     (initializeParams [_ ^InitializeParams params]
+       (.setWorkDoneToken params "clojure-lsp-startup")
+       (.setInitializationOptions params {"dependency-scheme" "jar"
+                                          "hover" {"arity-on-same-line?" true}}))
+     (findFileByUri [_ ^String uri]
+       (if (and (string/starts-with? uri "file:")
+                (string/includes? uri ".jar!"))
+         (LSPIJUtils/findResourceFor (string/replace-first uri "file:" "jar:file:"))
+         (LSPIJUtils/findResourceFor uri))))
+    (.setProgressFeature (proxy+ [] LSPProgressFeature
+                           (updateMessage [_ ^String message ^ProgressIndicator indicator]
+                             (.setText indicator (str "LSP: " message)))))))

src/main/clojure/com/github/clojure_lsp/intellij/server.clj

@@ -53,7 +53,7 @@
         (recur (.getNextEntry stream))))))
 
 (defn ^:private download-server! [project indicator ^File download-path ^File server-version-path latest-version]
-  (tasks/set-progress indicator "Clojure LSP: downloading server")
+  (tasks/set-progress indicator "LSP: downloading clojure-lsp")
   (let [platform (os-name)
         arch (os-arch)
         artifact-name (get-in artifacts [platform arch])
@@ -73,7 +73,7 @@
 (defn install-server [project installed-fn]
   (tasks/run-background-task!
    project
-   "Clojure LSP download"
+   "LSP: install clojure-lsp"
    (fn [indicator]
      (let [download-path (config/download-server-path)
            server-version-path (config/download-server-version-path)