slides.clj

(defn js-engine
  []
  (if-let [engine (.getEngineByName (ScriptEngineManager.) "JavaScript")]
    engine
    (throw (Exception. "no JavaScript engine found. Sorry"))))

(defn run-slides-js
  [s]
  (let [engine (js-engine)
        script (str "(function() {\n"
                    s "\n"
                    "  return [slides, TIMES];\n"
                    "})();")]
    (try
      (map vals (vals (.eval engine script)))
      (catch ScriptException _ nil))))