First ui view of preview images for items

Users can choose to not show them via ui settings
This commit is contained in:
Eike Kettner
2020-11-08 15:11:00 +01:00
parent 7ba6baf6f0
commit 2c96590aad
6 changed files with 50 additions and 2 deletions

View File

@ -10,6 +10,7 @@ module Comp.ItemCardList exposing
, view
)
import Api
import Api.Model.HighlightEntry exposing (HighlightEntry)
import Api.Model.ItemLight exposing (ItemLight)
import Api.Model.ItemLightGroup exposing (ItemLightGroup)
@ -230,7 +231,18 @@ viewItem cfg settings item =
]
++ DD.draggable ItemDDMsg item.id
)
[ div [ class "content" ]
[ if fieldHidden Data.Fields.PreviewImage then
span [ class "invisible" ] []
else
div [ class "image" ]
[ img
[ class "preview-image"
, src (Api.itemPreviewURL item.id)
]
[]
]
, div [ class "content" ]
[ case cfg.selection of
Data.ItemSelection.Active ids ->
div [ class "header" ]