build code

Author: borkdude

squint/bb.edn

@@ -1,3 +1,5 @@
-{:paths ["src" "resources"]
- :tasks {test {:doc "Run tests"
+{:paths ["src" "resources" "bb"]
+ :tasks {:requires ([tasks :as t])
+         build-cherry (t/build-cherry-npm-package)
+         test {:doc "Run tests"
                :task (clojure "-M:cljs:test")}}}

squint/bb/tasks.clj

@@ -0,0 +1,27 @@
+(ns tasks
+  (:require [babashka.process :refer [shell]]
+            [clojure.edn :as edn]
+            [clojure.java.io :as io]))
+
+(def core-config )
+
+(def core-vars (:vars core-config))
+
+(def core->js (:to-js core-config))
+
+
+(defn shadow-extra-config []
+  (let [core-config (edn/read-string (slurp (io/resource "cherry/cljs.core.edn")))
+        vars (:vars core-config)
+        to-js (:to-js core-config)
+        _ (prn to-js)
+        ks (map #(get to-js % %) vars)
+        vs (map #(symbol "cljs.core" (str %)) vars)
+        core-map (zipmap ks vs)]
+    (prn core-map)
+    {:modules
+     {:cljs_core {:exports core-map}}}))
+
+(defn build-cherry-npm-package []
+  (shell "npx shadow-cljs release cherry --config-merge"
+         (shadow-extra-config)))

squint/resources/cherry/cljs.core.edn

@@ -2,6 +2,6 @@
          dissoc conj vector clj->js js->clj get
          hash-map array-map first rest next nth seq}
  :to-js {clj->js toJs
-         js->cljs toCljs
+         js->clj toCljs
          hash-map hashMap
          array-map arrayMap}}

squint/src/cherry/transpiler.clj

@@ -107,8 +107,6 @@
 
 (def core->js (:to-js core-config))
 
-(prn core->js)
-
 (def prefix-unary-operators (set ['!]))
 
 (def suffix-unary-operators (set ['++ '--]))