Commit 31ed43ed authored by Cédric F.'s avatar Cédric F.

Always upcase event initial

parent f1744e4f
......@@ -153,3 +153,8 @@ partialDate model year =
, toString <| DateExtra.monthToInt <| Date.month model.birthDate
, toString <| Date.day model.birthDate
]
eventInitial : Event -> String
eventInitial event =
event.label |> String.left 1 |> String.toUpper
......@@ -237,9 +237,7 @@ week model year week =
|> Maybe.andThen
(\overlay ->
Just
(overlay.label
|> String.left 1
|> String.toUpper
(eventInitial overlay
|> Text.fromString
|> Text.monospace
|> Text.height weekWidth
......
......@@ -334,7 +334,7 @@ events model =
]
[ text <|
if event.overlay then
String.left 1 event.label
eventInitial event
else
""
]
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment