Refactor Dropdown

This commit is contained in:
Eike Kettner
2021-04-02 15:54:02 +02:00
parent b9c98c6578
commit 8d15d97857
26 changed files with 493 additions and 504 deletions

View File

@@ -7,7 +7,6 @@ module Data.UiSettings exposing
, cardPreviewSize2
, catColor
, catColorFg2
, catColorString
, catColorString2
, defaults
, fieldHidden
@@ -18,7 +17,6 @@ module Data.UiSettings exposing
, posToString
, tagColor
, tagColorFg2
, tagColorString
, tagColorString2
, toStoredUiSettings
)
@@ -276,13 +274,6 @@ tagColor tag settings =
Maybe.andThen (catColor settings) tag.category
catColorString : UiSettings -> String -> String
catColorString settings name =
catColor settings name
|> Maybe.map Data.Color.toString
|> Maybe.withDefault ""
catColorString2 : UiSettings -> String -> String
catColorString2 settings name =
catColor settings name
@@ -297,13 +288,6 @@ catColorFg2 settings name =
|> Maybe.withDefault ""
tagColorString : Tag -> UiSettings -> String
tagColorString tag settings =
tagColor tag settings
|> Maybe.map Data.Color.toString
|> Maybe.withDefault ""
tagColorString2 : Tag -> UiSettings -> String
tagColorString2 tag settings =
tagColor tag settings