(ns demo
(:require [reagent.core :as reagent :refer [atom]]
[reagent.interop :as i :refer-macros [.' .! fvar]]
[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]]))
(i/import-react)
(swap! page-map assoc
"index.html" (fvar intro/main)
"news/index.html" (fvar news/main))
(def github {:href "https://github.com/holmsand/reagent"})
(defn github-badge []
[:a.github-badge
github
[:img {:style {:position "absolute" :top 0 :left 0 :border 0}
:alt "Fork me on GitHub"
:src "https://s3.amazonaws.com/github/ribbons/forkme_left_orange_ff7600.png"}]])
(defn demo []
[:div
[:div.nav
[:ul.nav
[:li.brand [link {:href (fvar intro/main)} "Reagent:"]]
[:li [link {:href (fvar intro/main)} "Intro"]]
[:li [link {:href (fvar news/main)} "News"]]
[:li [:a github "GitHub"]]]]
(let [comp (get @page-map @page (fvar intro/main))]
[comp])
[github-badge]])
(defn ^:export mountdemo [p]
(when p (page/set-start-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
load-page (case p "index.html" "" p)]
(str "
" title "
" body "
")))
(defn ^:export genpages []
(let [timestamp (str "?" (.now js/Date))]
(->> (keys @page-map)
(map #(vector % (gen-page % timestamp)))
(into {})
clj->js)))