From cbca4d234fb00a179138e8f467ff77e54807e2d6 Mon Sep 17 00:00:00 2001 From: Eike Kettner Date: Sat, 9 Jan 2021 02:00:01 +0100 Subject: [PATCH] Fix scrolling to card That was broken due to the independent scroll in commit #bcb1b8. --- modules/webapp/src/main/elm/Page/Home/Update.elm | 2 +- modules/webapp/src/main/elm/Page/Home/View.elm | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) 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