southfox/liberty-hu
1
0
Fork 0
Code Issues 2 Pull requests Projects Releases Packages Wiki Activity Actions

[front/ux] update load more button

Browse source
This commit is contained in:
SouthFox 2023-09-17 18:06:11 +08:00
parent 8c20ed32f3
commit 5685ae67a2
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/main/frontend/views.cljs
View file

@ -67,10 +67,10 @@
{:dangerouslySetInnerHTML {:dangerouslySetInnerHTML
{:__html (:content ans)}}]])] {:__html (:content ans)}}]])]
(if end? (if end?
[:p "answers end here."] [:p {:class "mt-5"} "answers end here."]
(if (:comment loading) (if (:comment loading)
[:p "loading comment..."] [:p {:class "mt-5"} "loading comment..."]
[:div [:div {:class "mt-5"}
[:button {:type "button" [:button {:type "button"
:href (-> post :paging :next) :href (-> post :paging :next)
:class "btn btn-blue" :class "btn btn-blue"
@ -78,7 +78,8 @@
:question :question
{:id (-> post :paging :question_id)} {:id (-> post :paging :question_id)}
{:cursor (-> post :paging :cursor) {:cursor (-> post :paging :cursor)
:session_id (-> post :paging :session_id)})}]]))]))) :session_id (-> post :paging :session_id)})}
"Load More"]]))])))
(defn nav [{:keys [current-route]}] (defn nav [{:keys [current-route]}]
(let [active #(when (= % (-> current-route :data :name)) "> ")] (let [active #(when (= % (-> current-route :data :name)) "> ")]