reagent/demo/sitetools/prerender.cljs

(ns sitetools.prerender
  (:require [reagent.debug :refer-macros [log]]
            [sitetools.core :as tools]
            [sitetools.server :as server]
            [reagentdemo.core :as demo]))

(defn -main [& args]
  (log "Generating site")
  (demo/init!)
  (let [conf @tools/config
        conf (assoc conf :timestamp (str "?" (js/Date.now)))
        {:keys [site-dir pages]} conf]
    (doseq [f (keys pages)]
      (server/write-file (->> f tools/to-relative (server/path-join site-dir))
                         (server/gen-page f conf)))
    (server/write-resources site-dir conf))
  (log "Wrote site")
  (js/process.exit 0))

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