WIP: install server

Author: ericdallo

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

@@ -13,6 +13,6 @@
 
 (defn execute-command [^String name ^String text ^Project project]
   (-> (CommandExecutor/executeCommand
-        (doto (LSPCommandContext. (Command. text name) project)
-          (.setPreferredLanguageServerId "clojure-lsp")))
+       (doto (LSPCommandContext. (Command. text name) project)
+         (.setPreferredLanguageServerId "clojure-lsp")))
       (.response)))

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

@@ -10,7 +10,6 @@
   {:status :disconnected
    :downloaded-server-path nil
    :server-process nil
-   :server nil
    :project nil
    :diagnostics {}
    :settings {:trace-level "off"

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

@@ -10,7 +10,7 @@
   (:import
    [com.github.clojure_lsp.intellij.extension SettingsState]
    [com.intellij.openapi.project Project]
-   [com.redhat.devtools.lsp4ij LanguageServerManager LanguageServerWrapper]
+   [com.redhat.devtools.lsp4ij LanguageServerWrapper]
    [com.redhat.devtools.lsp4ij.lifecycle LanguageServerLifecycleListener LanguageServerLifecycleManager]))
 
 (set! *warn-on-reflection* true)
@@ -25,9 +25,6 @@
      (handleStatusChanged [_ ^LanguageServerWrapper server-wrapper]
        (let [status (keyword (.toString (.getServerStatus server-wrapper)))]
          (db/assoc-in project [:status] status)
-         (when (= :started status)
-           (db/assoc-in project [:server] (.getLanguageServer (LanguageServerManager/getInstance project)
-                                                              "clojure-lsp")))
          (run! #(% status) (db/get-in project [:on-status-changed-fns]))))
      (handleLSPMessage [_ _ _ _])
      (handleError [_ _ _])

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

@@ -3,10 +3,14 @@
    :name com.github.clojure_lsp.intellij.extension.LanguageServerFactory
    :implements [com.redhat.devtools.lsp4ij.LanguageServerFactory])
   (:require
+   [com.github.clojure-lsp.intellij.server :as server]
+   [com.github.ericdallo.clj4intellij.logger :as logger]
+   [com.github.ericdallo.clj4intellij.tasks :as tasks]
    [com.rpl.proxy-plus :refer [proxy+]])
   (:import
    [com.intellij.execution.configurations GeneralCommandLine]
-   [com.intellij.openapi.project Project]
+   [com.intellij.openapi.project Project ProjectLocator]
+   [com.intellij.openapi.vfs VirtualFile]
    [com.redhat.devtools.lsp4ij.client LanguageClientImpl]
    [com.redhat.devtools.lsp4ij.client.features LSPClientFeatures]
    [com.redhat.devtools.lsp4ij.server OSProcessStreamConnectionProvider]
@@ -21,16 +25,41 @@
          OSProcessStreamConnectionProvider)
     (.setCommandLine (GeneralCommandLine. ["/home/greg/dev/clojure-lsp/clojure-lsp" "listen"]))))
 
-;; TODO custom commands
 (defn -createLanguageClient [_ ^Project project]
   (LanguageClientImpl. project))
 
 ;; TODO custom server methods
 (defn -getServerInterface [_] LanguageServer)
 
+(defonce ^:private server (atom {:status :not-found}))
+
+(defn ^:private install-server [project]
+  (swap! server assoc :status :installing)
+  (tasks/run-background-task!
+   project
+   "Installing clojure-lsp"
+   (fn [indicator]
+     (tasks/set-progress indicator "Clojure LSP: downloading server")
+     (Thread/sleep 5000) ;; Simulate download server
+
+     (swap! server assoc :status :installed)
+     (server/start-server! project))))
+
 ;; TODO client features
 (defn -createClientFeatures [_]
   (proxy+ [] LSPClientFeatures
+    (isEnabled [_this ^VirtualFile file]
+      (logger/info "-----> isEnabled" @server)
+      (case (:status @server)
+        :installing
+        false
+
+        :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"

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

@@ -1,18 +1,12 @@
 (ns com.github.clojure-lsp.intellij.server
-  (:require
-   [com.github.clojure-lsp.intellij.db :as db])
   (:import
    [com.intellij.openapi.project Project]
-   [com.redhat.devtools.lsp4ij LanguageServerItem LanguageServerManager]))
+   [com.redhat.devtools.lsp4ij LanguageServerManager]))
 
 (set! *warn-on-reflection* true)
 
 (defn start-server! [^Project project]
-  (when-let [item ^LanguageServerItem @(db/get-in project [:server])]
-    (when-let [server ^LanguageServerManager (.getServer item)]
-      (.start server "clojure-lsp"))))
+  (.start (LanguageServerManager/getInstance project) "clojure-lsp"))
 
 (defn shutdown! [^Project project]
-  (when-let [item ^LanguageServerItem @(db/get-in project [:server])]
-    (when-let [server ^LanguageServerManager (.getServer item)]
-      (.stop server "clojure-lsp"))))
+  (.stop (LanguageServerManager/getInstance project) "clojure-lsp"))