orverride isEnableSemanticTokensFileViewProvider

Author: ericdallo

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

@@ -20,7 +20,7 @@
    [com.intellij.openapi.vfs LocalFileSystem VirtualFile]
    [com.redhat.devtools.lsp4ij LSPIJUtils ServerStatus]
    [com.redhat.devtools.lsp4ij.client LanguageClientImpl]
-   [com.redhat.devtools.lsp4ij.client.features LSPClientFeatures LSPProgressFeature]
+   [com.redhat.devtools.lsp4ij.client.features EditorBehaviorFeature LSPClientFeatures LSPProgressFeature]
    [com.redhat.devtools.lsp4ij.installation LanguageServerInstallerBase]
    [com.redhat.devtools.lsp4ij.server OSProcessStreamConnectionProvider]
    [java.io File]
@@ -88,23 +88,24 @@
     (LSPIJUtils/findResourceFor uri)))
 
 (defn -createClientFeatures [_]
-  (doto
-   (proxy+ [] LSPClientFeatures
-     (keepServerAlive [_] true)
-     (initializeParams [_ ^InitializeParams params]
-       (.setWorkDoneToken params "clojure-lsp-startup")
-       (.setInitializationOptions params {"dependency-scheme" "jar"
-                                          "hover" {"arity-on-same-line?" true}}))
-     (findFileByUri ^VirtualFile [_ ^String uri]
-       (find-file-by-uri uri))
-     (handleServerStatusChanged [^LSPClientFeatures this ^ServerStatus server-status]
-       (let [status (keyword (.toString server-status))]
-         (db/assoc-in (.getProject this) [:status] status)
-         (run! #(% status) (db/get-in (.getProject this) [:on-status-changed-fns])))))
-    (.setProgressFeature (proxy+ [] LSPProgressFeature
+  (let [lsp-client-features (proxy+ [] LSPClientFeatures
+                              (keepServerAlive [_] true)
+                              (initializeParams [_ ^InitializeParams params]
+                                (.setWorkDoneToken params "clojure-lsp-startup")
+                                (.setInitializationOptions params {"dependency-scheme" "jar"
+                                                                   "hover" {"arity-on-same-line?" true}}))
+                              (findFileByUri ^VirtualFile [_ ^String uri]
+                                (find-file-by-uri uri))
+                              (handleServerStatusChanged [^LSPClientFeatures this ^ServerStatus server-status]
+                                (let [status (keyword (.toString server-status))]
+                                  (db/assoc-in (.getProject this) [:status] status)
+                                  (run! #(% status) (db/get-in (.getProject this) [:on-status-changed-fns])))))]
+    (.setProgressFeature lsp-client-features
+                         (proxy+ [] LSPProgressFeature
                            (updateMessage [_ ^String message ^ProgressIndicator indicator]
                              (.setText indicator (str "LSP: " message)))))
-    (.setServerInstaller (proxy+ [] LanguageServerInstallerBase
+    (.setServerInstaller lsp-client-features
+                         (proxy+ [] LanguageServerInstallerBase
                            (getInstallationTaskTitle [_] "LSP: installing clojure-lsp")
                            (progressCheckingServerInstalled [_ indicator] (tasks/set-progress indicator "LSP: checking for clojure-lsp"))
                            (progressInstallingServer [_ indicator] (tasks/set-progress indicator "LSP: downloading clojure-lsp"))
@@ -119,4 +120,8 @@
                              (when-not @server-installing*
                                (reset! server-installing* true)
                                (reset! server-path* (server/install-server! (.getProject (.getClientFeatures this))))
-                               (reset! server-installing* false)))))))
+                               (reset! server-installing* false)))))
+    (.setEditorBehaviorFeature lsp-client-features
+                               (proxy+ [lsp-client-features] EditorBehaviorFeature
+                                 (isEnableSemanticTokensFileViewProvider [_ _] true)))
+    lsp-client-features))