enhance: load less journals

src/main/frontend/components/journal.cljs

@@ -33,8 +33,9 @@
                          (journal-cp page)))
        :start-reached (fn [_idx]
                         (page-handler/create-today-journal!))
-       :end-reached (fn [_idx]
-                      (page-handler/load-more-journals!))})]))
+       :end-reached (fn [idx]
+                      (when (= (dec (count latest-journals)) idx)
+                        (page-handler/load-more-journals!)))})]))
 
 (rum/defc all-journals < rum/reactive db-mixins/query
   []

src/main/frontend/handler/page.cljs

@@ -180,7 +180,7 @@
 (defn load-more-journals!
   []
   (when (has-more-journals?)
-    (state/set-journals-length! (+ (:journals-length @state/state) 7))))
+    (state/set-journals-length! (+ (:journals-length @state/state) 1))))
 
 (defn update-public-attribute!
   [page value]