Improve download server

Author: ericdallo

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

@@ -5,7 +5,6 @@
   (:require
    [clojure.string :as string]
    [com.github.clojure-lsp.intellij.server :as server]
-   [com.github.ericdallo.clj4intellij.logger :as logger]
    [com.rpl.proxy-plus :refer [proxy+]])
   (:import
    [com.intellij.execution.configurations GeneralCommandLine]
@@ -26,12 +25,11 @@
                                  :path nil}))
 
 (defn -createConnectionProvider [_ ^Project _project]
-  (logger/info "---> connection" (:path @server))
-  (let [server-path (or (some-> ^File (:path @server)
-                                (.getCanonicalPath))
-                        "mocked-server-path")
+  (let [server-path (loop []
+                      (Thread/sleep 100)
+                      (or (some-> ^File (:path @server) .getCanonicalPath)
+                          (recur)))
         command [server-path "listen"]]
-    (logger/info "--------> starting" command)
     (doto (proxy+
            []
            OSProcessStreamConnectionProvider)
@@ -51,23 +49,19 @@
      (swap! server assoc :status status :path path)))
   (server/start! project))
 
-;; TODO client features
 (defn -createClientFeatures [_]
   (proxy+ [] LSPClientFeatures
     (isEnabled [_this ^VirtualFile file]
-      (logger/info "---> checking isEnabled")
-      (let [r (case (:status @server)
-                :installing
-                false
+      (case (:status @server)
+        :installing
+        false
 
-                :installed
-                true
+        :installed
+        true
 
-                :not-found
-                (do (install-server (.guessProjectForFile (ProjectLocator/getInstance) file))
-                    false))]
-        (logger/info "-----> isEnabled result" r)
-        r))
+        :not-found
+        (do (install-server (.guessProjectForFile (ProjectLocator/getInstance) file))
+            false)))
     (initializeParams [_ ^InitializeParams params]
       (.setWorkDoneToken params "clojure-lsp-startup")
       (.setInitializationOptions params {"dependency-scheme" "jar"

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 "LSP: Downloading clojure-lsp")
+  (tasks/set-progress indicator "Clojure LSP: downloading server")
   (let [platform (os-name)
         arch (os-arch)
         artifact-name (get-in artifacts [platform arch])
@@ -75,7 +75,6 @@
    project
    "Clojure LSP download"
    (fn [indicator]
-     (tasks/set-progress indicator "Clojure LSP: downloading server")
      (let [download-path (config/download-server-path)
            server-version-path (config/download-server-version-path)
            latest-version* (delay (try (string/trim (slurp latest-version-uri)) (catch Exception _ nil)))

src/main/resources/META-INF/plugin.xml

@@ -11,7 +11,9 @@
               name="Clojure LSP"
               factoryClass="com.github.clojure_lsp.intellij.extension.LanguageServerFactory">
           <description><![CDATA[
-          Clojure LSP description TODO
+          ### Clojure LSP: The Clojure language server that provides features using static analysis.
+
+          #### For more details, check [clojure-lsp.io](https://clojure-lsp.io)
           ]]>
           </description>
       </server>