clojure-lsp · ericdallo · Jun 30, 2025 · Jun 29, 2025 · Jun 30, 2025 · Jun 30, 2025
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -8,6 +8,7 @@
   - New feature: Add `clojure-lsp/cyclic-dependencies` linter to detect cyclic dependencies between namespaces in the project.
   - New optional `:kondo-config-dir` setting to configure clj-kondo execution.
   - Parallelize and log the time spent on built-in linters execution.
+  - Fix caching issue when :source-aliases changes. #2081
 
 ## 2025.06.13-20.45.44
 

diff --git a/lib/src/clojure_lsp/classpath.clj b/lib/src/clojure_lsp/classpath.clj
@@ -11,8 +11,7 @@
    [clojure.set :as set]
    [clojure.string :as string])
   (:import
-   (java.io ByteArrayOutputStream)
-   (java.security MessageDigest)))
+   (java.io ByteArrayOutputStream)))
 
 (set! *warn-on-reflection* true)
 
@@ -23,10 +22,8 @@
         (with-open [xin (io/input-stream file)
                     xout (ByteArrayOutputStream.)]
           (io/copy xin xout)
-          (.toByteArray xout))
-        algorithm (MessageDigest/getInstance "MD5")
-        raw (.digest algorithm bytes')]
-    (format "%032x" (BigInteger. 1 raw))))
+          (.toByteArray xout))]
+    (shared/md5 bytes')))
 
 (defn ^:private valid-project-spec? [root-path {:keys [project-path]}]
   (let [project-file (shared/to-file root-path project-path)]

diff --git a/lib/src/clojure_lsp/config.clj b/lib/src/clojure_lsp/config.clj
@@ -79,6 +79,11 @@
                      (resolve-global-config global-lsp-config-file))
               project-configs))))
 
+(defn settings-hash [project-settings]
+  (-> (str project-settings)
+      (.getBytes)
+      (shared/md5)))
+
 (defn ^:private jar-file->config
   [^java.io.File file config-paths]
   (with-open [jar (JarFile. file)]

diff --git a/lib/src/clojure_lsp/shared.clj b/lib/src/clojure_lsp/shared.clj
@@ -16,6 +16,7 @@
     URLDecoder]
    [java.nio.charset StandardCharsets]
    [java.nio.file Paths]
+   [java.security MessageDigest]
    [java.util.regex Matcher]))
 
 (set! *warn-on-reflection* true)
@@ -602,3 +603,8 @@
 
 (def severity->level
   (set/map-invert level->severity))
+
+(defn md5 [bytes]
+  (let [algorithm (MessageDigest/getInstance "MD5")
+        raw (.digest algorithm bytes)]
+    (format "%032x" (BigInteger. 1 raw))))
diff --git a/lib/src/clojure_lsp/startup.clj b/lib/src/clojure_lsp/startup.clj
@@ -187,6 +187,7 @@
                          (merge (select-keys db-cache [:classpath
                                                        :analysis-checksums
                                                        :project-hash
+                                                       :config-hash
                                                        :kondo-config-hash
                                                        :dependency-scheme
                                                        :stubs-generation-namespaces]))
@@ -196,6 +197,7 @@
 (defn ^:private build-db-cache [db]
   (-> db
       (select-keys [:project-hash
+                    :config-hash
                     :kondo-config-hash
                     :dependency-scheme
                     :project-analysis-type
@@ -255,10 +257,12 @@
     (publish-task-progress producer (:finding-cache task-list) progress-token)
     (load-db-cache! root-path db*)
     (let [project-hash (classpath/project-specs->hash root-path settings)
+          config-hash (config/settings-hash project-settings)
           kondo-config-hash (lsp.kondo/config-hash (str root-path))
           dependency-scheme (:dependency-scheme settings)
           dependency-scheme-changed? (not= dependency-scheme (:dependency-scheme @db*))
           use-db-analysis? (and (= (:project-hash @db*) project-hash)
+                                (= (:config-hash @db*) config-hash)
                                 (= (:kondo-config-hash @db*) kondo-config-hash)
                                 (not dependency-scheme-changed?))
           fast-startup? (or use-db-analysis?
@@ -276,6 +280,7 @@
           (when-let [classpath (classpath/scan-classpath! components)]
             (swap! db* assoc
                    :project-hash project-hash
+                   :config-hash config-hash
                    :kondo-config-hash kondo-config-hash
                    :analysis-checksums (if dependency-scheme-changed? nil (:analysis-checksums @db*))
                    :analysis (if dependency-scheme-changed? nil (:analysis @db*))