TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-04-05 02:49:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix load-more button state

Browse Source
This commit is contained in:
eikek 2022-06-03 00:20:02 +02:00
parent b50f57f7fe
commit cfc903403a
2 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
modules/webapp/src/main/elm/Data/Items.elm
View File

@ -10,7 +10,9 @@ module Data.Items exposing
, first , first
, flatten , flatten
, idSet , idSet
, isEmpty
, length , length
, nonEmpty
, replaceIn , replaceIn
, unwrapGroups , unwrapGroups
) )
@ -23,6 +25,16 @@ import Set exposing (Set)
import Util.List import Util.List
isEmpty : ItemLightList -> Bool
isEmpty list =
List.all (.items >> List.isEmpty) list.groups
nonEmpty : ItemLightList -> Bool
nonEmpty list =
not (isEmpty list)
flatten : ItemLightList -> List ItemLight flatten : ItemLightList -> List ItemLight
flatten list = flatten list =
List.concatMap .items list.groups List.concatMap .items list.groups

4
modules/webapp/src/main/elm/Page/Search/Update.elm
View File

@ -209,7 +209,7 @@ update texts bookmarkId lastViewedItemId env msg model =
{ model { model
| searchInProgress = False | searchInProgress = False
, searchOffset = noff , searchOffset = noff
, moreAvailable = list.groups /= [] , moreAvailable = Data.Items.nonEmpty list
} }
in in
makeResult env.selectedItems <| makeResult env.selectedItems <|
@ -233,7 +233,7 @@ update texts bookmarkId lastViewedItemId env msg model =
| searchInProgress = False | searchInProgress = False
, moreInProgress = False , moreInProgress = False
, searchOffset = noff , searchOffset = noff
, moreAvailable = list.groups /= [] , moreAvailable = Data.Items.nonEmpty list
} }
in in
update texts bookmarkId lastViewedItemId env (ItemCardListMsg (Comp.ItemCardList.AddResults list)) m update texts bookmarkId lastViewedItemId env (ItemCardListMsg (Comp.ItemCardList.AddResults list)) m