diff --git a/modules/webapp/src/main/elm/Page/Home/Update.elm b/modules/webapp/src/main/elm/Page/Home/Update.elm index e3cfd754..b189ab24 100644 --- a/modules/webapp/src/main/elm/Page/Home/Update.elm +++ b/modules/webapp/src/main/elm/Page/Home/Update.elm @@ -648,7 +648,7 @@ scrollToCard : Maybe String -> Model -> ( Model, Cmd Msg, Sub Msg ) scrollToCard mId model = let scroll id = - Scroll.scroll id 0.5 0.5 0.5 0.5 + Scroll.scrollElementY "item-card-list" id 0.5 0.5 in case mId of Just id -> diff --git a/modules/webapp/src/main/elm/Page/Home/View.elm b/modules/webapp/src/main/elm/Page/Home/View.elm index 76ee94c0..23878fc8 100644 --- a/modules/webapp/src/main/elm/Page/Home/View.elm +++ b/modules/webapp/src/main/elm/Page/Home/View.elm @@ -110,6 +110,7 @@ view flags settings model = , ( "sixteen wide column", menuCollapsed model ) , ( "item-card-list", True ) ] + , id "item-card-list" ] (List.concat [ viewBar flags model