[front/feat] store question history

src/main/frontend/events.cljs

@@ -26,20 +26,18 @@
      (case page
        ;; -- URL @ "/" --------------------------------------------------------
        :frontpage   {:db         set-page}
+       ;; -- URL @ "/history" --------------------------------------------------------
+       :history     {:db         set-page}
        ;; -- URL @ "/about" --------------------------------------------------------
        :about       {:db         set-page}
-
+       ;; -- URL @ "/hp" --------------------------------------------------------
-       ;; -- URL @ "/item" --------------------------------------------------------
        :item        {:db         set-page
                      :dispatch   [:get-page {:id id
                                              :query query}]}
-
+       ;; -- URL @ "/hq" --------------------------------------------------------
-       ;; -- URL @ "/item" --------------------------------------------------------
        :question    {:db         set-page
                      :dispatch   [:get-question {:id id
-                                                 :query query}]}
+                                                 :query query}]}))))
-       ))))
-
 
 (reg-event-fx
  :get-page
@@ -53,7 +51,6 @@
                  :response-content-types {#"application/.*json" :json}
                  :on-success             [:get-page-success]
                  :on-failure             [:get-page-failure]}
-
     :db         (-> db
                     (assoc-in [:loading :post] true))}))
 
@@ -92,28 +89,31 @@
  set-history-interceptor
  (fn [{:keys [db]} history]
    (let [history-item (first history)
-         update? (fn [x]
+         select-item (fn [x]
                        (and (= (:id x) (:id history-item))
                         (= (:type x) (:type history-item))))]
-     {:db (as-> db $
+     {:db (take 50
-            (remove update? $)
+                (conj
-            (conj $ history-item))})))
+                 (remove select-item db)
+                 (merge (first (filter select-item db)) history-item)))})))
 
 (reg-event-fx
  :get-question-success
  (fn [{:keys [db]} [_ {body :body}]]
    (let [id   (get-in db [:current-route :path-params :id])
          type (get-in db [:current-route :data :name])
-         title (get-in body [:question :title])
+         question (get body :question)
-         detail (get-in body [:question :detail])]
+         params (if (nil? question)
+                  {:id id
+                   :type type}
+                  {:id id
+                   :type type
+                   :title (get-in body [:question :title])
+                   :detail (get-in body [:question :detail])})]
      {:db (-> db
               (assoc-in [:loading :question] false)
               (assoc-in [:post] body))
-      :dispatch [:set-history {:id id
+      :dispatch [:set-history params]})))
-                               :type type
-                               :title title
-                               :detail detail
-                               :page 1}]})))
 
 (reg-event-db
  :get-question-failure

src/main/frontend/router.cljs

@@ -11,6 +11,10 @@
      {:name :frontpage
       :view frontend.views/home-page
       :link-text "Home"}]
+    ["history"
+     {:name :history
+      :view frontend.views/history-page
+      :link-text "History"}]
     ["about"
      {:name :about
       :view frontend.views/about-page

src/main/frontend/subs.cljs

@@ -12,6 +12,11 @@
  (fn [db _]
    (:loading db)))
 
+(reg-sub
+ :history
+ (fn [db _]
+   (:history db)))
+
 (reg-sub
  :post
  (fn [db _]

src/main/frontend/views.cljs

@@ -32,6 +32,25 @@
      [:a
       {:href "https://git.southfox.me/southfox/liberty-hu"} "Source code"]]]])
 
+(defn history-page []
+  (let [histories @(subscribe [:history])]
+    [:div {:class "space-y-5"}
+     (for [history-item histories]
+       ^{:key history-item}
+       [:div {:class "p-3 bg-white shadow cursor-pointer drop-shadow-xl hover:bg-slate-200"
+              :on-click #(rfe/push-state
+                          (:type history-item)
+                          {:id (:id history-item)}
+                          (:query history-item))}
+        [:p {:class "text-2xl"}
+         (:title history-item)]
+        [:div {:class "mt-3"}
+         [:div
+          {:dangerouslySetInnerHTML
+           {:__html (:detail history-item)}}]]
+        [:div {:class "text-sm text-slate-400 text-end"}
+         (get-in history-item [:query :cursor])]])]))
+
 (defn item-page []
   (let [loading @(subscribe [:loading])
         post @(subscribe [:post])]
@@ -51,7 +70,11 @@
         end? (-> post :paging :is_end)
         get-more (fn [event params]
                    (.preventDefault event)
-                   (dispatch [:get-more params]))]
+                   (dispatch [:get-more params])
+                   (dispatch [:set-history {:id (get-in params [:request :id])
+                                            :type :question
+                                            :query (get-in params [:request :query])
+                                            }]))]
     (if (:question loading)
       [:p "Loading..."]
       [:div
@@ -94,6 +117,8 @@
     [:ul {:class "nav flex flex-col overflow-hidden"}
      [:li
       [:a {:href (rfe/href :frontpage)} (active :frontpage) "Home"]]
+     [:li
+      [:a {:href (rfe/href :history)} (active :history) "History"]]
      [:li
       [:a {:href (rfe/href :about)} (active :about) "About"]]]))