TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-04-04 18:39:33 +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
modules/webapp/src/main/elm
Data
Items.elm
Page/Search
Update.elm

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

@ -10,7 +10,9 @@ module Data.Items exposing
, first
, flatten
, idSet
, isEmpty
, length
, nonEmpty
, replaceIn
, unwrapGroups
)
@ -23,6 +25,16 @@ import Set exposing (Set)
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 list =
List.concatMap .items list.groups

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

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