(ns wisp.wisp

"Wisp program that reads wisp code from stdin and prints

[path :refer [basename dirname join resolve]]

[module :refer [Module]]

[commander]

[wisp.string :refer [split join upper-case replace]]

conj partition assoc drop empty?]]

[wisp.repl :refer [start] :rename {start start-repl}]

compile-string

(conj {:source-uri path} options)))

(defn compile-string

[source options]

(let [channel (or (:print options) :code)

(= channel :code) (:code output)

(= channel :expansion) (:expansion output)

:else (JSON.stringify (get output channel) 2 2))]

(.write process.stdout (or content "nil")))

(if (:error output) (throw (.-error output)))))

(.option "-c, --compile" "Compile to JavaScript and save as .js files")

(.option "-i, --interactive" "Run an interactive wisp REPL")

(.option "--debug, --print <type>" "Print debug information. Possible values are `expansion`,`forms`, `ast` and `js-ast`")

(.option "--no-map" "Disable source map generation")

(.parse process.argv))

(set! (aget options "no-map") (not (aget options "map"))) ;; commander auto translates to camelCase

(cond options.run (run (get options.args 0))

(not process.stdin.isTTY) (compile-stdin options)

options.interactive (start-repl)

options.args (run options.args)

:else (start-repl)

)))