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