[chore] add lines
This commit is contained in:
parent
d7bf2c3261
commit
19f75c8147
1 changed files with 5 additions and 0 deletions
|
@ -2,6 +2,7 @@
|
|||
(:require [reitit.frontend.easy :as rfe]
|
||||
[re-frame.core :refer [subscribe]]))
|
||||
|
||||
|
||||
(defn button
|
||||
[id]
|
||||
[:div
|
||||
|
@ -21,12 +22,14 @@
|
|||
(button 24425284)
|
||||
])
|
||||
|
||||
|
||||
(defn about-page []
|
||||
[:div
|
||||
[:h2 "About"]
|
||||
[:ul
|
||||
[:li [:a {:href "stub"} "Source code"]]]])
|
||||
|
||||
|
||||
(defn item-page []
|
||||
(let [loading @(subscribe [:loading])
|
||||
post @(subscribe [:post])]
|
||||
|
@ -39,6 +42,7 @@
|
|||
{:dangerouslySetInnerHTML
|
||||
{:__html (:content post)}}]])))
|
||||
|
||||
|
||||
(defn nav [{:keys [current-route]}]
|
||||
(let [active #(when (= % (-> current-route :data :name)) "> ")]
|
||||
[:ul {:class "nav flex flex-col overflow-hidden"}
|
||||
|
@ -47,6 +51,7 @@
|
|||
[:li
|
||||
[:a {:href (rfe/href :about)} (active :about) "About"]]]))
|
||||
|
||||
|
||||
(defn current-page []
|
||||
(let [current-route @(subscribe [:current-route])]
|
||||
[:div {:class "container p-2 mx-auto"}
|
||||
|
|
Loading…
Reference in a new issue