From cc0cdb40f28d39c61dcf82ae3d650b274c7c53ed Mon Sep 17 00:00:00 2001
From: Jonah Goldsaito <1239984+jonahgoldsaito@users.noreply.github.com>
Date: Tue, 22 Feb 2022 04:30:31 -0500
Subject: [PATCH] Load more journal entries (#3048)

* Update the default number of journal entries shown

* Get 7 journal entries per load while infinite scrolling

Co-authored-by: Tienson Qin <tiensonqin@gmail.com>
---
 .gitignore                           | 3 +--
 src/main/frontend/handler/page.cljs  | 2 +-
 src/main/frontend/handler/route.cljs | 2 +-
 src/main/frontend/state.cljs         | 2 +-
 4 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/.gitignore b/.gitignore
index 9de2eb5b52..e77b9ccc11 100644
--- a/.gitignore
+++ b/.gitignore
@@ -38,5 +38,4 @@ charlie/
 /.preprocessor-cljs
 docker
 android/app/src/main/assets/capacitor.plugin.json
-ios/App/App/capacitor.config.json
-yarn.lock
+ios/App/App/capacitor.config.json
\ No newline at end of file
diff --git a/src/main/frontend/handler/page.cljs b/src/main/frontend/handler/page.cljs
index 73debc40ab..2e42a09530 100644
--- a/src/main/frontend/handler/page.cljs
+++ b/src/main/frontend/handler/page.cljs
@@ -559,7 +559,7 @@
 (defn load-more-journals!
   []
   (when (has-more-journals?)
-    (state/update-state! :journals-length inc)))
+    (state/set-journals-length! (+ (:journals-length @state/state) 7))))
 
 (defn update-public-attribute!
   [page-name value]
diff --git a/src/main/frontend/handler/route.cljs b/src/main/frontend/handler/route.cljs
index 2d08c079e4..b6f5887a60 100644
--- a/src/main/frontend/handler/route.cljs
+++ b/src/main/frontend/handler/route.cljs
@@ -137,7 +137,7 @@
 
 (defn go-to-journals!
   []
-  (state/set-journals-length! 1)
+  (state/set-journals-length! 3)
   (let [route (if (state/custom-home-page?)
                 :all-journals
                 :home)]
diff --git a/src/main/frontend/state.cljs b/src/main/frontend/state.cljs
index 0fd72bc001..3b85362316 100644
--- a/src/main/frontend/state.cljs
+++ b/src/main/frontend/state.cljs
@@ -49,7 +49,7 @@
      :draw?                                 false
      :db/restoring?                         nil
 
-     :journals-length                       2
+     :journals-length                       3
 
      :search/q                              ""
      :search/mode                           :global