InfScroll.init "item-list" InfScroll.Bottom
    |> setOffset 100

MapInfScroll subMsg ->
    let
        (newInfScroll, cmd) =
            InfScroll.update subMsg model.infScroll
                |> InfScroll.whenLoadMore MapInfScroll getItems
    in
    ( { model | infScroll = newInfScroll }
    , cmd
    )

GotItems items ->
    ( { model
        | items =
            List.sort (model.items ++ items)
        , infScroll =
            if List.isEmpty items then
                InfScroll.toStop model.infScroll


            else
                InfScroll.toLoaded model.infScroll
        }
    , Cmd.none
    )

InfScroll.view model.infScroll
    (InfScroll.defaultContainerAttrs infScroll)
    (InfScroll.defaultItemsAttrs infScroll)
    (List.map viewItem model.items)