core.clj

(core/defmacro define
  [sym default]
  (assert-args define
   (core/or (core/string? default)
            (core/number? default)
            (core/true? default)
            (core/false? default)) "a string, number or boolean as default value")
  (core/let [defname (cljs.compiler/munge (core/str *ns* "/" sym))
             type    (core/cond
                       (core/string? default) "string"
                       (core/number? default) "number"
                       (core/or (core/true? default) (core/false? default)) "boolean")]
    `(do
       (declare ~(symbol sym))
       (~'js* ~(core/str "/** @define {" type "} */"))
       (goog/define ~defname ~default))))