move core vars to config

Author: borkdude

cherry/bb.edn

@@ -1,3 +1,3 @@
-{:paths ["src"]
+{:paths ["src" "resources"]
  :tasks {test {:doc "Run tests"
                :task (clojure "-M:cljs:test")}}}

cherry/corpus/no_core_vars.cljs

@@ -0,0 +1,8 @@
+(ns no-core-vars)
+
+;; The expectation is that when bundling this, it will only be a couple of bytes.
+
+(defn foo []
+  [])
+
+(js/console.log (str (foo)))

cherry/corpus/no_core_vars.mjs

@@ -0,0 +1,8 @@
+import { vector, str } from 'cherry-cljs/cljs.core.js'
+
+function foo () {
+return (function () {
+ return vector();
+})();
+};
+console.log(str(foo()));

cherry/deps.edn

@@ -1,4 +1,7 @@
-{:deps {borkdude/edamame {:mvn/version "1.0.0"}}
+{:paths ["src" "resources"]
+ :deps {borkdude/edamame {:mvn/version "1.0.0"}
+        babashka/process {:mvn/version "0.1.7"}
+        }
  :aliases
  {:cljs {:extra-deps {thheller/shadow-cljs {:mvn/version "2.19.6"}}}
   :test ;; added by neil

cherry/resources/cherry/cljs.core.edn

@@ -0,0 +1,7 @@
+{:vars #{map assoc str keyword symbol
+         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
+         hash-map hashMap
+         array-map arrayMap}}

cherry/src/cherry/transpiler.clj

@@ -27,10 +27,13 @@
 (ns #^{:author "Allen Rohner"
        :doc "A library for generating javascript from Clojure."}
     cherry.transpiler
-  (:require [clojure.string :as str]
-            [com.reasonr.string :as rstr]
-            [edamame.core :as e])
-  (:use clojure.walk))
+  (:require
+   [clojure.edn :as edn]
+   [clojure.java.io :as io]
+   [clojure.string :as str]
+   [clojure.walk :as walk]
+   [com.reasonr.string :as rstr]
+   [edamame.core :as e]))
 
 (defn- throwf [& message]
   (throw (Exception. (apply format message))))
@@ -98,14 +101,13 @@
                          '? 'try 'break
                          'await 'const 'defn 'let 'ns 'def]))
 
-(def core-vars (set '[map assoc str keyword symbol
-                      dissoc conj vector clj->js js->clj get
-                      hash-map array-map first rest next nth seq]))
+(def core-config (edn/read-string (slurp (io/resource "cherry/cljs.core.edn"))))
 
-(def core->js '{clj->js toJs
-                js->cljs toCljs
-                hash-map hashMap
-                array-map arrayMap})
+(def core-vars (:vars core-config))
+
+(def core->js (:to-js core-config))
+
+(prn core->js)
 
 (def prefix-unary-operators (set ['!]))
 
@@ -437,7 +439,7 @@
 (defn- inner-walk [form]
   (cond
     (unquote? form) (handle-unquote form)
-    :else (walk inner-walk outer-walk form)))
+    :else (walk/walk inner-walk outer-walk form)))
 
 (defn- outer-walk [form]
   (cond
@@ -446,7 +448,7 @@
     :else form))
 
 (defmacro quasiquote [form]
-  (let [post-form (walk inner-walk outer-walk form)]
+  (let [post-form (walk/walk inner-walk outer-walk form)]
     post-form))
 
 (defmacro js*

cherry/transpile_and_run.clj

@@ -2,6 +2,9 @@
          '[cherry.transpiler :as cherry]
          )
 
+(when-not (System/getProperty "babashka.version")
+  (require '[babashka.process.pprint]))
+
 (def in-file (first *command-line-args*))
 (def out-file (:out-file (cherry/transpile-file {:in-file in-file})))