Show custom field values in item detail header

This commit is contained in:
Eike Kettner
2020-11-22 22:08:52 +01:00
parent a2e0c23644
commit bcdb2fc0fe
4 changed files with 94 additions and 22 deletions

View File

@ -7,6 +7,8 @@ module Data.Icons exposing
, correspondentIcon
, customField
, customFieldIcon
, customFieldType
, customFieldTypeIcon
, date
, dateIcon
, direction
@ -32,10 +34,36 @@ module Data.Icons exposing
, tagsIcon
)
import Data.CustomFieldType exposing (CustomFieldType)
import Html exposing (Html, i)
import Html.Attributes exposing (class)
customFieldType : CustomFieldType -> String
customFieldType ftype =
case ftype of
Data.CustomFieldType.Text ->
"pen icon"
Data.CustomFieldType.Numeric ->
"hashtag icon"
Data.CustomFieldType.Date ->
"calendar icon"
Data.CustomFieldType.Boolean ->
"question icon"
Data.CustomFieldType.Money ->
"money bill icon"
customFieldTypeIcon : String -> CustomFieldType -> Html msg
customFieldTypeIcon classes ftype =
i [ class (customFieldType ftype ++ " " ++ classes) ]
[]
customField : String
customField =
"highlighter icon"