Use cards for viewing items

This commit is contained in:
Eike Kettner
2020-05-17 21:42:16 +02:00
parent 98f202b797
commit 72a88f21cb
5 changed files with 118 additions and 69 deletions

View File

@ -31,6 +31,7 @@ import Comp.SentMails
import Comp.YesNoDimmer
import Data.Direction exposing (Direction)
import Data.Flags exposing (Flags)
import Data.Icons as Icons
import DatePicker exposing (DatePicker)
import Dict exposing (Dict)
import Html exposing (..)
@ -1416,7 +1417,7 @@ renderItemInfo model =
[ class "item"
, title "Due Date"
]
[ i [ class "bell icon" ] []
[ Icons.dueDateIcon
, Maybe.map Util.Time.formatDate model.item.dueDate
|> Maybe.withDefault ""
|> text
@ -1427,7 +1428,7 @@ renderItemInfo model =
[ class "item"
, title "Correspondent"
]
[ i [ class "envelope outline icon" ] []
[ Icons.correspondentIcon
, List.filterMap identity [ model.item.corrOrg, model.item.corrPerson ]
|> List.map .name
|> String.join ", "
@ -1440,7 +1441,7 @@ renderItemInfo model =
[ class "item"
, title "Concerning"
]
[ i [ class "comment outline icon" ] []
[ Icons.concernedIcon
, List.filterMap identity [ model.item.concPerson, model.item.concEquipment ]
|> List.map .name
|> String.join ", "