Scroll to the current item when going back from detail

The list view now supports an item id that will be scrolled to and is
highlighted with a shadow. When going back from detail view this is
now used to scroll to the currently viewed item.

modules/webapp/src/main/elm/App/Data.elm

@@ -160,7 +160,7 @@ checkPage flags page =
 defaultPage : Flags -> Page
 defaultPage flags =
     if isSignedIn flags then
-        HomePage
+        HomePage Nothing
 
     else
         LoginPage Nothing

modules/webapp/src/main/elm/App/Update.elm

@@ -304,8 +304,16 @@ updateLogin lmsg model =
 updateHome : Page.Home.Data.Msg -> Model -> ( Model, Cmd Msg, Sub Msg )
 updateHome lmsg model =
     let
+        mid =
+            case model.page of
+                HomePage x ->
+                    x
+
+                _ ->
+                    Nothing
+
         ( lm, lc, ls ) =
-            Page.Home.Update.update model.key model.flags model.uiSettings lmsg model.homeModel
+            Page.Home.Update.update mid model.key model.flags model.uiSettings lmsg model.homeModel
     in
     ( { model
         | homeModel = lm
@@ -330,7 +338,7 @@ updateManageData lmsg model =
 initPage : Model -> Page -> ( Model, Cmd Msg, Sub Msg )
 initPage model page =
     case page of
-        HomePage ->
+        HomePage mid ->
             Util.Update.andThen2
                 [ updateHome Page.Home.Data.Init
                 , updateQueue Page.Queue.Data.StopRefresh

modules/webapp/src/main/elm/App/View.elm

@@ -65,7 +65,7 @@ defaultLayout model =
             [ div [ class "ui fluid container" ]
                 [ a
                     [ class "header item narrow-item"
-                    , Page.href HomePage
+                    , Page.href (HomePage Nothing)
                     ]
                     [ img
                         [ class "image"
@@ -81,7 +81,7 @@ defaultLayout model =
             ]
         , div [ class "main-content" ]
             [ case model.page of
-                HomePage ->
+                HomePage _ ->
                     viewHome model
 
                 LoginPage _ ->
@@ -174,7 +174,16 @@ viewLogin model =
 
 viewHome : Model -> Html Msg
 viewHome model =
-    Html.map HomeMsg (Page.Home.View.view model.flags model.uiSettings model.homeModel)
+    let
+        mid =
+            case model.page of
+                HomePage x ->
+                    x
+
+                _ ->
+                    Nothing
+    in
+    Html.map HomeMsg (Page.Home.View.view mid model.flags model.uiSettings model.homeModel)
 
 
 menuEntry : Model -> Page -> List (Html Msg) -> Html Msg
@@ -206,7 +215,7 @@ loginInfo model =
                             ]
                         ]
                         [ menuEntry model
-                            HomePage
+                            (HomePage Nothing)
                             [ img
                                 [ class "image icon"
                                 , src (model.flags.config.docspellAssetPath ++ "/img/logo-mc-96.png")