oly
/
clojure-demos
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Formatting.
continuous-integration/drone/push Build is failing Details

This commit is contained in:
Oliver Marks 2021-01-29 12:10:07 +00:00
parent e9dd6a2261
commit 0eeae61728
1 changed files with 24 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
reagent-reitit-demo/src/core.cljs
View File

@ -66,6 +66,8 @@
;; form one component ro render a nav link
(defn navbar-link [{:keys [href title text] :or {text nil title nil}}]
[:a.link.dim.white.dib.mr3 {:key href :href href :title title} text])
@ -82,24 +84,20 @@
;; form one homepage component
(defn home-page []
[:<>
[my-component "component 1"]
[my-component "component 2"]
[circle {:alt "test"}]
[:p (:lorem @site-state)]
[articles {:title "demos"
:articles [{:title "DSL Demo"
:link (rfe/href ::demo {:page "dsl-demo"})
:img-src "https://miro.medium.com/max/1400/1*CEYFj5R57UFyCXts2nsBqA.png"}
{:title "Datalog Demo"
:link (rfe/href ::demo {:page "datalog-demo"})
:img-src "https://raw.githubusercontent.com/tonsky/datascript/master/extras/logo.svg"}
{:title "Reagent Demo"
:link (rfe/href ::demo {:page "reagent-demo"})
:img-src "https://raw.githubusercontent.com/reagent-project/reagent/master/logo/logo-text.png"}]}]])
[:h1 (:lorem @site-state)]
[articles
{:title "Clojure Demos"
:articles [{:title "DSL Demo"
:link (rfe/href ::demo {:page "dsl-demo"})
:img-src "https://miro.medium.com/max/1400/1*CEYFj5R57UFyCXts2nsBqA.png"}
{:title "Datalog Demo"
:link (rfe/href ::demo {:page "datalog-demo"})
:img-src "https://raw.githubusercontent.com/tonsky/datascript/master/extras/logo.svg"}
{:title "Reagent Demo"
:link (rfe/href ::demo {:page "reagent-demo"})
:img-src "https://raw.githubusercontent.com/reagent-project/reagent/master/logo/logo-text.png"}]}]])
;; form one render demo component
(defn demo-page [route]
@ -109,17 +107,21 @@
{:response-format (raw-response-format)
:handler (fn [response]
(->> response
parse
org->replacements
(reset! content))
parse
org->replacements
(reset! content))
#_(reset! content (org->replacements (parse response))))})
(fn [route]
;[:div (-> route :parameters :path :page)]
[:main.mt4
[my-component "component 1"]
[my-component "component 2"]
[circle {:alt "test"}]
[:div.mw7.center.avenir @content]
#_[article {:title "Homepage"
:description @content
:tagline "tagline here"}]])))
:description @content
:tagline "tagline here"}]])))
;; form one render about page component
(defn about-page []
@ -198,5 +200,5 @@
(comment
@site-state
(GET "/test.org" {:handler (fn [response] (swap! site-state assoc :content response))}))