TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-06-22 02:18:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

Don't scroll when loading more items

Browse Source
This commit is contained in:
Eike Kettner
2020-06-24 00:03:58 +02:00
parent b8558d6837
commit 43b18db76a
2 changed files with 15 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
modules/webapp/src/main/elm/Comp/ItemCardList.elm
View File

@ -76,21 +76,10 @@ update _ msg model =
else
let
firstNew =
Data.Items.first list
scrollCmd =
case firstNew of
Just item ->
Ports.scrollToElem item.id
Nothing ->
Cmd.none
newModel =
{ model | results = Data.Items.concat model.results list }
in
( newModel, scrollCmd, Nothing )
( newModel, Cmd.none, Nothing )
SelectItem item ->
( model, Cmd.none, Just item )