[API] Don't produce window message if running via cli/API

knubie · Jul 17, 2021 · 27d7b27 · 27d7b27
1 parent 65d52db
commit 27d7b27
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/clojure_lsp/crawler.clj b/src/clojure_lsp/crawler.clj
@@ -38,10 +38,10 @@
             (string/split sep))
         (do
           (log/error (format "Error while looking up classpath info in %s. Exit status %s. Error: %s" (str root-path) exit err))
-          (producer/window-show-message "Classpath lookup failed in clojure-lsp. Some features may not work correctly."  :warning)
+          (producer/window-show-message "Classpath lookup failed in clojure-lsp. Some features may not work correctly." :warning)
           [])))
     (catch Exception e
-      (log/error e "Error while looking up classpath info in" (str root-path) (.getMessage e))
+      (log/error e (format "Error while looking up classpath info in %s" (str root-path)) (.getMessage e))
       (producer/window-show-message "Classpath lookup failed in clojure-lsp. Some features may not work correctly."  :warning)
       [])))
 

diff --git a/src/clojure_lsp/producer.clj b/src/clojure_lsp/producer.clj
@@ -13,7 +13,7 @@
    (window-show-message {:message message :type type}))
   ([message-content]
    (log/info message-content)
-   (let [client ^LanguageClient (:client @db/db)]
+   (when-let [client ^LanguageClient (:client @db/db)]
      (->> message-content
           (interop/conform-or-log ::interop/show-message)
           (.showMessage client)))))