Remove unused code

Author: ericdallo

build.gradle.kts

@@ -27,19 +27,9 @@ dependencies {
     implementation ("com.github.ericdallo:clj4intellij:0.5.4")
     implementation ("seesaw:seesaw:1.5.0")
     implementation ("camel-snake-kebab:camel-snake-kebab:0.4.3")
-    implementation ("babashka:process:0.5.18")
-    implementation ("com.github.clojure-lsp:lsp4clj:1.9.3")
-    implementation ("org.clojure:core.async:1.5.648") {
-        because("issue https://clojure.atlassian.net/browse/ASYNC-248")
-    }
-    implementation ("com.github.clojure-lsp:clojure-lsp:2024.03.01-11.37.51") {
-        exclude("org.clojure", "core.async")
-    }
     implementation ("com.rpl:proxy-plus:0.0.9")
-    implementation ("markdown-clj:markdown-clj:1.12.1") {
-        exclude("clj-commons", "clj-yaml")
-    }
-    implementation ("clj-commons:clj-yaml:1.0.29")
+    implementation ("dev.weavejester:cljfmt:0.13.0")
+    implementation ("com.github.clojure-lsp:clojure-lsp:2025.01.22-23.28.23")
 }
 
 sourceSets {

src/main/clojure/com/github/clojure_lsp/intellij/action/implementations.clj

@@ -1,28 +1,10 @@
 (ns com.github.clojure-lsp.intellij.client
-  (:require
-   [lsp4clj.protocols.endpoint :as protocols.endpoint])
   (:import
    [com.intellij.openapi.project Project]
    [com.redhat.devtools.lsp4ij LanguageServerManager]))
 
 (set! *warn-on-reflection* true)
 
-(defmulti show-message (fn [_context args] args))
-(defmulti show-document (fn [_context args] args))
-(defmulti show-message-request identity)
-(defmulti progress (fn [_context {:keys [token]}] token))
-(defmulti workspace-apply-edit (fn [_context {:keys [label]}] label))
-
-(defn request! [client [method body]]
-  (protocols.endpoint/send-request client (subs (str method) 1) body))
-
-(defn notify! [client [method body]]
-  (protocols.endpoint/send-notification client (subs (str method) 1) body))
-
-(defn connected-server [^Project project]
-  (when-let [manager (LanguageServerManager/getInstance project)]
-    @(.getLanguageServer manager "clojure-lsp")))
-
 (defn server-status [^Project project]
   (when-let [manager (LanguageServerManager/getInstance project)]
     (keyword (.toString (.getServerStatus manager "clojure-lsp")))))

src/main/clojure/com/github/clojure_lsp/intellij/action/refactors.clj

@@ -2,7 +2,6 @@
   (:require
    [clojure.java.io :as io])
   (:import
-   [com.intellij.openapi.project Project]
    [java.io File]))
 
 (set! *warn-on-reflection* true)
@@ -17,6 +16,3 @@
 
 (defn download-server-version-path ^File []
   (io/file (plugin-path) "clojure-lsp-version"))
-
-(defn project-cache-path ^File [^Project project]
-  (io/file (plugin-path) "cache" (.getName project)))

src/main/clojure/com/github/clojure_lsp/intellij/action/references.clj

@@ -1,7 +1,5 @@
 (ns com.github.clojure-lsp.intellij.db
   (:refer-clojure :exclude [get-in assoc-in update-in])
-  (:require
-   [clojure.core.async :as async])
   (:import
    [com.github.clojure_lsp.intellij.extension SettingsState]
    [com.intellij.openapi.project Project]))
@@ -21,9 +19,6 @@
 
 (defonce db* (atom {:projects {}}))
 
-(defn empty-db? []
-  (empty? (:projects @db*)))
-
 (defn get-in
   ([project fields]
    (get-in project fields nil))
@@ -42,15 +37,6 @@
                                   projects
                                   (update projects (.getBasePath project) #(merge (assoc empty-project :project project) %))))))
 
-(defn await-field [project field fn]
-  (async/thread
-    (loop []
-      (Thread/sleep 100)
-      (let [value (get-in project [field])]
-        (if value
-          (fn value)
-          (recur))))))
-
 (defn load-settings-from-state! [^Project project ^SettingsState settings-state]
   (update-in project [:settings] (fn [settings]
                                    (if-not (:loaded-settings? settings)

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

@@ -1,56 +1,13 @@
 (ns com.github.clojure-lsp.intellij.editor
   (:require
-   [clojure-lsp.shared :as lsp.shared]
-   [com.github.clojure-lsp.intellij.editor :as editor]
-   [com.github.ericdallo.clj4intellij.util :as util])
+   [com.github.clojure-lsp.intellij.editor :as editor])
   (:import
-   [com.intellij.openapi.editor Document Editor]
-   [com.intellij.openapi.fileEditor
-    FileDocumentManager]
-   [com.intellij.openapi.project Project ProjectLocator]
-   [com.intellij.openapi.util TextRange]
-   [com.intellij.openapi.util.text StringUtil]
-   [com.intellij.openapi.vfs VirtualFile]
-   [com.intellij.psi PsiFile]
-   [com.intellij.psi PsiManager]))
+   [com.intellij.openapi.editor Editor]
+   [com.intellij.openapi.util.text StringUtil]))
 
 (set! *warn-on-reflection* true)
 
 (defn offset->cursor-position [^Editor editor offset]
   (let [text (.getCharsSequence (.getDocument editor))
         line-col (StringUtil/offsetToLineColumn text offset)]
     [(.line line-col) (.column line-col)]))
-
-(defn position->offset [text line character]
-  (StringUtil/lineColToOffset text line character))
-
-(defn document+position->offset ^Integer [{:keys [line character]} ^Document document]
-  (position->offset (.getText document) line character))
-
-(defn range->text-range ^TextRange [range ^Document document]
-  (TextRange/create (document+position->offset (:start range) document)
-                    (document+position->offset (:end range) document)))
-
-(defn text-range->range [^TextRange range ^Editor editor]
-  {:start (offset->cursor-position editor (.getStartOffset range))
-   :end (offset->cursor-position editor (.getEndOffset range))})
-
-(defn uri->psi-file ^PsiFile [^String uri ^Project project]
-  (.findFile (PsiManager/getInstance project)
-             (util/uri->v-file uri)))
-
-(defn editor->uri [^Editor editor]
-  ;; TODO sanitize URL, encode, etc
-  (.getUrl (.getFile (FileDocumentManager/getInstance) (.getDocument editor))))
-
-(defn filename->project-relative-filename [filename ^Project project]
-  (lsp.shared/relativize-filepath
-   filename
-   (.getBasePath project)))
-
-(defn virtual->psi-file ^PsiFile [^VirtualFile v-file ^Project project]
-  (.findFile (PsiManager/getInstance project) v-file))
-
-(defn v-file->project ^Project [^VirtualFile v-file]
-  (.guessProjectForFile (ProjectLocator/getInstance)
-                        v-file))