[chore] add lines

This commit is contained in:
SouthFox 2023-08-26 22:54:55 +08:00
parent d7bf2c3261
commit 19f75c8147

View file

@ -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"}