example.cljs

(ns my.core
  (:require [cljs.nodejs :as nodejs]
            cljs.js
            [clojure.string :as cstr]))

(nodejs/enable-util-print!)

(def bar-source
  "(ns my.bar)

(defmacro abs [x]
  `(if (pos? ~x)
     ~x
     (- ~x)))")

(def main-source
  "(ns my.foo
    (:require [my.bar :as b :include-macros true]))
  (+ (b/abs -4)
     (b/abs 5))")

(def sources
  {'my.bar bar-source})

(defn load-library-inline [{:keys [name macros]} cb]
  (println "Loading" name "macros" macros)
  (if-let [source (sources name)]
    (cb {:lang :clj :source source})
    (cb nil)))

(defn -main [& args]
  (cljs.js/compile-str (cljs.js/empty-state) main-source
                    "test"
                    {:eval cljs.js/js-eval
                     :load load-library-inline}
                    (fn [f] (println f))))

(set! *main-cli-fn* -main)