Commit e9218907 authored by Cédric F.'s avatar Cédric F.

Don't blink current week

parent 5182edf7
Pipeline #5412472 (#) passed with stage
in 1 minute and 11 seconds
......@@ -19,4 +19,4 @@ main =
subscriptions : Model.Model -> Sub Model.Msg
subscriptions model =
Time.every (Time.second * 5) Model.Tick
Time.every (Time.second * 10) Model.Tick
......@@ -227,10 +227,7 @@ week model year week =
Collage.square (weekWidth - weekBorder) |> Collage.outlined lineStyle
in
if isCurrentWeek model time then
if isEvenSecond model then
filled Color.black
else
outlined
filled Color.black |> Collage.alpha 0.5
else
case weekColor of
Nothing ->
......@@ -332,8 +329,3 @@ lineStyle =
Collage.defaultLine
in
{ default | width = weekBorder }
isEvenSecond : Model -> Bool
isEvenSecond model =
truncate (model.now / Time.second) % 2 == 0
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