allow customize javascript cwd when doing require/import

Author: imakira

src/net/coruscation/js4clj/context.clj

@@ -4,9 +4,12 @@
    [org.graalvm.polyglot Context])
   (:require [clojure.java.io :as io]))
 
-(defonce ^{:dynamic true :private true} *cjs-cwd*
-  (str (System/getProperty "user.dir")
-       "/node_modules"))
+(def ^{:dynamic true} *js-cwd*
+  "cwd of the javascript environment when doing `require` or `import`.
+  In most cases it is the directory contains `node_modules`
+
+  Default: cwd of the Clojure process"
+  (System/getProperty "user.dir"))
 
 (defn default-builder
   "Return a `org.graalvm.polyglot.Context$Builder` object with necessary options set for js4clj to function properly.
@@ -21,15 +24,17 @@
 
   "
   []
-  (let [cwd-dir (io/file *cjs-cwd*)]
+  (let [cwd-dir (io/file *js-cwd*)]
     (when (not (.exists cwd-dir))
       (.mkdirs cwd-dir)))
   (-> (Context/newBuilder (into-array String ["js"]))
       (.allowExperimentalOptions true)
       (.options (HashMap.
-                 {"js.esm-eval-returns-exports" "true"
-                  "js.commonjs-require" "true"
-                  "js.commonjs-require-cwd" *cjs-cwd*}))
+                 (merge {"js.esm-eval-returns-exports" "true"}
+                        (if *js-cwd*
+                          {"js.commonjs-require" "true"
+                           "js.commonjs-require-cwd" *js-cwd*}
+                          {}))))
       (.allowIO true)))
 
 (def ^:dynamic *context-per-thread*

test/net/coruscation/js4clj/context_test.clj

@@ -3,9 +3,14 @@
    [clojure.test :refer [deftest is use-fixtures]]
    [net.coruscation.js4clj.context :as subject]
    [net.coruscation.js4clj.js :as js]
+   [net.coruscation.js4clj.require :as require]
    [net.coruscation.js4clj.test-utils :refer [fresh-context]]
    [net.coruscation.js4clj.utils :refer [js-set! js.-]]))
 
+(use-fixtures :each #'fresh-context)
+
+(def test-js-cwd  "test/resources/js-cwd")
+
 (deftest *context-per-thread*-test
   (binding [subject/*context-per-thread* true]
     (.eval @subject/*context*
@@ -45,4 +50,8 @@
   (is (nil? (js.- js/globalThis
                   demo))))
 
-(use-fixtures :each #'fresh-context)
+(deftest *js-cwd*-test
+  (binding [subject/*js-cwd* test-js-cwd]
+    (subject/reinitialize-context!)
+    (is (= "index.js" (js.- (require/load-es-module "sample-package")
+                            name)))))

test/resources/js-cwd/package.json

@@ -0,0 +1,11 @@
+{
+  "name": "js-cwd",
+  "version": "1.0.0",
+  "description": "",
+  "main": "index.js",
+  "scripts": {
+    "test": "echo \"Error: no test specified\" && exit 1"
+  },
+  "author": "",
+  "license": "ISC"
+}