demo-util.clj

(ns demo.util
  (:require [clojure.java.io :as io]
            [clojure.string :as str]))

(defn generate-index-html [html manifest]
  (reduce
    (fn [html {:keys [module-id output-name]}]
      (let [js-name (str "/" (name module-id) ".js")]
        (str/replace html js-name (str "/" output-name))))
    html
    manifest))

(comment
  (generate-index-html
    "<script src=\"js/main.js\"></script>"
    [{:module-id :main :output-name "main.foobar.js"}]))

(defn -main [path-to-source-html path-to-js-dir]
  (println
    (generate-index-html
      (-> path-to-source-html (io/file) (slurp))
      (-> path-to-js-dir (io/file) (io/file "manifest.edn") (slurp) (read-string)))))