reagent/demo/reagentdemo/core.cljs

48 lines
1.5 KiB
Plaintext
Raw Normal View History

(ns reagentdemo.core
2014-01-17 10:12:11 +00:00
(:require [reagent.core :as reagent :refer [atom]]
[reagent.interop :as i :refer-macros [.' .!]]
2014-01-06 11:46:58 +00:00
[clojure.string :as string]
[sitetools.core :as tools :refer [link]]
2014-01-21 10:50:08 +00:00
[reagentdemo.common :as common :refer [demo-component]]
2014-01-18 10:31:43 +00:00
[reagentdemo.intro :as intro]
[reagentdemo.news :as news]
2014-01-17 10:12:11 +00:00
[reagent.debug :refer-macros [dbg println]]))
2014-01-02 13:04:30 +00:00
(def test-results (atom nil))
(def github {:href "https://github.com/reagent-project/reagent"})
2014-01-22 07:40:04 +00:00
2014-01-07 16:01:28 +00:00
(defn github-badge []
[:a.github-badge
2014-01-22 07:40:04 +00:00
github
2014-01-07 16:01:28 +00:00
[:img {:style {:position "absolute" :top 0 :left 0 :border 0}
2014-01-22 07:40:04 +00:00
:alt "Fork me on GitHub"
:src "https://s3.amazonaws.com/github/ribbons/forkme_left_orange_ff7600.png"}]])
2014-01-07 16:01:28 +00:00
(def index-page "index.html")
(def news-page "news/index.html")
(tools/register-page index-page [#'intro/main]
"Reagent: Minimalistic React for ClojureScript")
(tools/register-page news-page [#'news/main]
"Reagent news")
2014-01-02 13:04:30 +00:00
(defn demo []
[:div
[:div.nav
[:ul.nav
[:li.brand [link {:href index-page} "Reagent:"]]
[:li [link {:href index-page} "Intro"]]
[:li [link {:href news-page} "News"]]
2014-01-22 07:40:04 +00:00
[:li [:a github "GitHub"]]]]
@test-results
[tools/page-content]
2014-01-09 13:37:11 +00:00
[github-badge]])
2014-01-05 10:16:01 +00:00
(defn init! []
(tools/start! {:body [#'demo]
:css-infiles ["site/public/css/examples.css"
"site/public/css/main.css"]}))
(init!)