diff --git a/CHANGELOG.md b/CHANGELOG.md index 77b710f..11cbf80 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -4,6 +4,7 @@ - Bump clj4intellij to 0.6.3. - Improve server installation fixing concurrency bugs + using lsp4ij install API. +- Fix code lens references not working when more than a project is opened. #67 ## 3.0.0 diff --git a/src/main/clojure/com/github/clojure_lsp/intellij/extension/register_actions_startup.clj b/src/main/clojure/com/github/clojure_lsp/intellij/extension/register_actions_startup.clj index 5d9e38c..0480be8 100644 --- a/src/main/clojure/com/github/clojure_lsp/intellij/extension/register_actions_startup.clj +++ b/src/main/clojure/com/github/clojure_lsp/intellij/extension/register_actions_startup.clj @@ -95,8 +95,9 @@ (.registerAction manager id action) action))) -(defn ^:private code-lens-references-performed [^Project project ^LSPCommand command ^AnActionEvent event] - (let [uri (.getAsString ^JsonPrimitive (.getArgumentAt command 0)) +(defn ^:private code-lens-references-performed [^LSPCommand command ^AnActionEvent event] + (let [project (.getProject event) + uri (.getAsString ^JsonPrimitive (.getArgumentAt command 0)) line (dec (.getAsInt ^JsonPrimitive (.getArgumentAt command 1))) character (dec (.getAsInt ^JsonPrimitive (.getArgumentAt command 2))) references (lsp-client/references uri line character project) @@ -118,7 +119,7 @@ :use-shortcut-of use-shortcut-of :on-performed (partial on-action-performed name text project))) (register-command! :id "code-lens-references" - :on-performed (partial code-lens-references-performed project)) + :on-performed #'code-lens-references-performed) (action/register-group! :id "ClojureLSP.Refactors" :popup true :text "Clojure refactors"