From bc901c627345421bcdcafaa35f8ee250c6e31330 Mon Sep 17 00:00:00 2001
From: SouthFox <master@southfox.me>
Date: Sat, 19 Aug 2023 23:35:13 +0800
Subject: [PATCH] [feat] basic frontend

---
 src/main/frontend/app.cljs | 75 ++++++++++++++++++++++++++++++++------
 1 file changed, 64 insertions(+), 11 deletions(-)

diff --git a/src/main/frontend/app.cljs b/src/main/frontend/app.cljs
index fe79f1c..1c9b738 100644
--- a/src/main/frontend/app.cljs
+++ b/src/main/frontend/app.cljs
@@ -1,21 +1,74 @@
 (ns frontend.app
-  (:require [reagent.dom.client :as r]))
+  (:require [reagent.core :as r]
+            [reagent.dom.client :as rdom]
+            [reitit.frontend :as rf]
+            [reitit.frontend.easy :as rfe]
+            [spec-tools.data-spec :as ds]
+            ))
 
-(defn hello-world []
+
+(defn home-page []
   [:div
-   [:div.hover:bg-gray-100 [:p.text-blue-500 "aaaaaa"]]
-   [:li "World!"]])
+   :h2 "Home"]
+  [:button
+   {:type "button"
+    :on-click #(rfe/push-state ::item {:id 3})}
+   "Item 3"])
 
-(defonce root (r/create-root (js/document.getElementById "app")))
+(defn about-page []
+  [:div
+   [:h2 "About"]
+   [:ul
+    [:li [:a {:href "stub"} "Source code"]]]
+
+   ])
+
+(defn item-page [match]
+  (let [{:keys [path query]} (:parameters match)
+        {:keys [id]} path]
+    [:div
+     [:h2 "Selected item " id]
+     (if (:foo query)
+       [:p "Optional foo query param: " (:foo query)])]))
+
+(defonce match (r/atom nil))
+
+(defn current-page []
+  [:div {:class "container p-2 mx-auto"}
+   [:div {:class "flex flex-row flex-wrap py-4"}
+    [:div {:class "w-full sm:w-1/3 md:w-1/4 px-2"}
+     [:div {:class "sticky top-0 p-4 bg-slate-300 rounded-xl w-full"}
+      [:ul {:class "nav flex flex-col overflow-hidden"}
+       [:li [:a {:href (rfe/href ::frontpage)} "Home"]]
+       [:li [:a {:href (rfe/href ::about)} "About"]]
+       [:li [:a {:href (rfe/href ::item {:id 1})} "Item 1"]]]]]
+    (if @match
+      (let [view (:view (:data @match))]
+        [:div {:class "w-full sm:w-2/3 md:w-3/4 pt-1 px-2"} [view @match]]))]])
+
+(def routes
+  [["/"
+    {:name ::frontpage
+     :view home-page}]
+   ["/about"
+    {:name ::about
+     :view about-page}]
+   ["/item/:id"
+    {:name ::item
+     :view item-page
+     :parameters {:path {:id int?}
+                  :query {(ds/opt :foo) keyword?}}}]
+   ])
+
+(defonce root (rdom/create-root (js/document.getElementById "app")))
 
 (defn ^:dev/after-load start []
-  (r/render root [hello-world] ))
+  (rdom/render root [current-page] ))
 
 (defn init []
-  ;; this is called in the index.html and must be exported
-  ;; so it is available even in :advanced release builds
+  (rfe/start!
+   (rf/router routes)
+   (fn [m] (reset! match m))
+   {:use-fragment true})
   (js/console.log "init")
   (start))
-
-(defn ^:dev/before-load stop []
-  (js/console.log "stop"))