First stab at CLJS repl API

Author: ajoberstar

.gitignore

@@ -33,3 +33,4 @@ bin/
 .lsp/
 .nrepl-port
 *.edn
+out/

build.gradle.kts

@@ -27,6 +27,12 @@ dependencies {
   implementation("org.gradle:gradle-tooling-api:7.5")
   testRuntimeOnly("org.ajoberstar:jovial:0.3.0")
   devRuntimeOnly("org.slf4j:slf4j-simple:1.7.36")
+
+  compileOnly("org.clojure:clojurescript:1.11.60")
+  devImplementation("org.clojure:clojurescript:1.11.60")
+
+  compileOnly("cider:piggieback:0.5.3")
+  devImplementation("cider:piggieback:0.5.3")
 }
 
 tasks.withType<Test>() {

src/main/clojure/dev/clojurephant/tooling/api.clj

@@ -0,0 +1,52 @@
+(ns dev.clojurephant.tooling.api
+  (:require [dev.clojurephant.tooling.core :as core]
+            [clojure.string :as string]))
+
+(defonce db (atom {}))
+
+(defn connect [dir]
+  (swap! db update :con
+         (fn [existing-con]
+           (if existing-con
+             (throw (ex-info "Must close existing connection" {}))
+             (core/connect dir)))))
+
+(defn close []
+  (swap! db update :con
+         (fn [existing-con]
+           (when existing-con
+             (.close existing-con)
+             nil))))
+
+(defn model []
+  (swap! db (fn [current-db]
+              (if-let [con (:con current-db)]
+                (let [m (core/wait (core/clojurephant-model con))]
+                  (if (= :success (:result m))
+                    (assoc current-db :model (read-string (.getEdn (:value m))))
+                    (throw (ex-info "Failed to get Clojurephant model"
+                                    (select-keys m [:error])))))
+                (throw (ex-info "Cannot get model until connect" {}))))))
+
+(defn reroot-cljs-build [build new-dir]
+  (let [old-dir (:output-dir build)
+        replacer (fn [dir]
+                   (cond
+                     (nil? dir) nil
+                     (boolean? dir) dir
+                     :else (string/replace dir old-dir new-dir)))]
+    (-> (:compiler build)
+        (update-in [:output-dir] replacer)
+        (update-in [:output-to] replacer)
+        (update-in [:source-map] replacer))))
+
+(defn repl-cljs-builds []
+  (let [m (:model @db)
+        repl-dir (-> m :repl :dir)
+        builds (:clojurescript m)]
+    (into {} (map (fn [[id build]]
+                 [id (reroot-cljs-build build repl-dir)]))
+          builds)))
+
+(defn repl-cljs-build [id]
+  (get (repl-cljs-builds) id))

src/main/clojure/dev/clojurephant/tooling/repl/browser.clj

@@ -0,0 +1,15 @@
+(ns dev.clojurephant.tooling.repl.browser
+  (:require [dev.clojurephant.tooling.api :as api]
+            [cljs.build.api :as build]
+            [cljs.repl.browser :as browser]
+            [cider.piggieback :as piggieback]))
+
+(defn cljs-build [id]
+  (let [opts (api/repl-cljs-build id)]
+    (build/build opts)))
+
+(defn cljs-repl []
+  (let [opts (api/repl-cljs-build :dev)]
+    (piggieback/cljs-repl
+     (browser/repl-env)
+     opts)))

src/main/java/dev/clojurephant/plugin/common/ClojurephantModel.java

@@ -1,34 +1,5 @@
 package dev.clojurephant.plugin.common;
 
-import java.util.Objects;
-
-public class ClojurephantModel {
-  private String edn;
-
-  public ClojurephantModel(String edn) {
-    this.edn = Objects.requireNonNull(edn, "EDN must not be null.");;
-  }
-
-  public String getEdn() {
-    return edn;
-  }
-
-  @Override
-  public boolean equals(Object that) {
-    if (that instanceof ClojurephantModel) {
-      return this.edn.equals(((ClojurephantModel) that).edn);
-    } else {
-      return false;
-    }
-  }
-
-  @Override
-  public int hashCode() {
-    return edn.hashCode();
-  }
-
-  @Override
-  public String toString() {
-    return edn;
-  }
+public interface ClojurephantModel {
+  String getEdn();
 }