Select list/tile view and store to ui settings

Issue: #526
This commit is contained in:
eikek
2021-12-13 14:49:22 +01:00
parent 05843876cc
commit 1eb1db730c
20 changed files with 850 additions and 75 deletions

View File

@ -12,6 +12,7 @@ module Data.Items exposing
, idSet
, length
, replaceIn
, unwrapGroups
)
import Api.Model.ItemLight exposing (ItemLight)
@ -27,6 +28,11 @@ flatten list =
List.concatMap .items list.groups
unwrapGroups : List ItemLightGroup -> List ItemLight
unwrapGroups groups =
List.concatMap .items groups
concat : ItemLightList -> ItemLightList -> ItemLightList
concat l0 l1 =
let