(ns demo (:require [reagent.core :as reagent :refer [atom]] [clojure.string :as string] [reagentdemo.page :as page :refer [page-map page link prefix]] [reagentdemo.common :as common :refer [demo-component]] [reagentdemo.intro :as intro] [reagentdemo.news :as news] [reagent.debug :refer-macros [dbg println]])) (swap! page-map assoc "index.html" intro/main "news/index.html" news/main) (defn github-badge [] [:a.github-badge {:href "https://github.com/holmsand/reagent"} [:img {:style {:position "absolute" :top 0 :left 0 :border 0} :src "https://s3.amazonaws.com/github/ribbons/forkme_left_orange_ff7600.png" :alt "Fork me on GitHub"}]]) (defn demo [] [:div [:div.nav [:ul.nav [:li.brand [link {:href intro/main} "Reagent:"]] [:li [link {:href intro/main} "Introduction"]] [:li [link {:href news/main} "News"]]]] (let [comp (get @page-map @page intro/main)] [comp]) [github-badge]]) (defn ^:export mountdemo [p] (when p (reset! page p)) (reagent/render-component [demo] (.-body js/document))) (defn gen-page [p timestamp] (reset! page p) (let [body (reagent/render-component-to-string [demo]) title @page/title-atom] (str " " title " " body " "))) (defn ^:export genpages [] (let [timestamp (str "?" (.now js/Date))] (->> (keys @page-map) (map #(vector % (gen-page % timestamp))) (into {}) clj->js)))