Add all core functions

Author: borkdude

squint/.gitignore

@@ -8,3 +8,4 @@ lib
 report.html
 test/scratch.js
 dist
+.work

squint/bb/tasks.clj

@@ -1,27 +1,20 @@
 (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 []
+  (:require
+   [babashka.fs :as fs]
+   [babashka.process :refer [shell]]
+   [clojure.edn :as edn]
+   [clojure.java.io :as io]))
+(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)
+        ks (map #(symbol (munge %)) 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)))
+  (fs/create-dirs ".work")
+  (spit ".work/config-merge.edn" (shadow-extra-config))
+  (shell "npx shadow-cljs --config-merge .work/config-merge.edn release cherry"))

squint/corpus/core_vars.cljs

@@ -18,3 +18,5 @@
   (dissoc x :foo))
 
 (log (str (foo {:foo 1 :bar 2})))
+
+(prn (reverse (map (fn [x] (inc x)) [1 2 3])))

squint/corpus/core_vars.mjs

@@ -1,6 +1,6 @@
-import { toJs, first, dissoc, get, vector, keyword, str, arrayMap } from 'cherry-cljs/cljs.core.js'
+import { first, dissoc, map, reverse, get, prn, vector, keyword, str, clj__GT_js, arrayMap } from 'cherry-cljs/cljs.core.js'
 
-const js_map = toJs(arrayMap(keyword("foo"), keyword("bar")));
+const js_map = clj__GT_js(arrayMap(keyword("foo"), keyword("bar")));
 console.log(js_map);
 const clj_map = arrayMap(keyword("foo/bar"), (1 + 2 + 3));
 console.log(get(clj_map, keyword("foo/bar")));
@@ -13,3 +13,8 @@ return (function () {
 })();
 };
 log(str(foo(arrayMap(keyword("foo"), 1, keyword("bar"), 2))));
+prn(reverse(map(function (x) {
+return (function () {
+ return (x + 1);
+})();
+}, vector(1, 2, 3))));

squint/package.json

@@ -2,7 +2,7 @@
   "type": "module",
   "name": "cherry-cljs",
   "sideEffects": false,
-  "version": "0.0.0",
+  "version": "0.0.0-alpha.8",
   "files": [
     "cljs.core.js",
     "lib/cljs_core.js"