From ca05b3c195a3046d297550ab15f0859f1fb81508 Mon Sep 17 00:00:00 2001
From: Eike Kettner <eike.kettner@posteo.de>
Date: Fri, 25 Sep 2020 22:54:50 +0200
Subject: [PATCH] Fix initialising pages; improve scroll to item

---
 modules/webapp/src/main/elm/App/Update.elm       | 8 ++++++--
 modules/webapp/src/main/elm/Page/Home/Update.elm | 4 ++--
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/modules/webapp/src/main/elm/App/Update.elm b/modules/webapp/src/main/elm/App/Update.elm
index 9e511809..59067a6a 100644
--- a/modules/webapp/src/main/elm/App/Update.elm
+++ b/modules/webapp/src/main/elm/App/Update.elm
@@ -342,9 +342,13 @@ updateManageData lmsg model =
 
 
 initPage : Model -> Page -> ( Model, Cmd Msg, Sub Msg )
-initPage model page =
+initPage model_ page =
+    let
+        model =
+            { model_ | page = page }
+    in
     case page of
-        HomePage mid ->
+        HomePage _ ->
             Util.Update.andThen2
                 [ updateHome Page.Home.Data.Init
                 , updateQueue Page.Queue.Data.StopRefresh
diff --git a/modules/webapp/src/main/elm/Page/Home/Update.elm b/modules/webapp/src/main/elm/Page/Home/Update.elm
index f307b727..c8c3c04f 100644
--- a/modules/webapp/src/main/elm/Page/Home/Update.elm
+++ b/modules/webapp/src/main/elm/Page/Home/Update.elm
@@ -26,7 +26,7 @@ update mId key flags settings msg model =
         Init ->
             Util.Update.andThen2
                 [ update mId key flags settings (SearchMenuMsg Comp.SearchMenu.Init)
-                , doSearch flags settings
+                , scrollToCard mId
                 ]
                 model
 
@@ -251,7 +251,7 @@ update mId key flags settings msg model =
         ScrollResult _ ->
             let
                 cmd =
-                    Process.sleep 350 |> Task.perform (always ClearItemDetailId)
+                    Process.sleep 800 |> Task.perform (always ClearItemDetailId)
             in
             withSub ( model, cmd )