Implement fading alarm

NightLight.Core/Models.fs

@@ -79,7 +79,12 @@ type internal State =
     | On
     | Off
 
-type internal Brightness = Brightness of int
+type internal Brightness =
+    | Brightness of int
+
+    member this.Scale(b: float) =
+        match this with
+        | Brightness brightness -> Brightness <| int (float brightness * b)
 
 type internal Color =
     | ColorByCoordinates of float * float

NightLight.Core/NightLightStateMachine.fs

@@ -48,7 +48,11 @@ let internal createOrUpdateNightLightState
 
             light,
             { Color = color
-              Brightness = brightness
+              Brightness =
+                if alarm && light.ControlledWithRemote <> NonRemote then
+                    brightness.Scale(getAlarmWeight time)
+                else
+                    brightness
               State = if alarm then On else previousState })
         |> Map.ofSeq
 

NightLight.Core/PartsOfDay.fs

@@ -6,11 +6,21 @@ type PartOfDay =
     | Day
     | Night
 
+let private startOfDay = TimeSpan.FromHours 6
+let private endOfDay = TimeSpan.FromHours 20.5
+
 let getPartOfDay (dateTime: DateTime) =
     match dateTime with
-    | _ when
+    | _ when dateTime.TimeOfDay >= startOfDay && dateTime.TimeOfDay < endOfDay -> Day
-        dateTime.TimeOfDay >= TimeSpan.FromHours 6
-        && dateTime.TimeOfDay < TimeSpan.FromHours 20.5
-        ->
-        Day
     | _ -> Night
+
+let getAlarmWeight (dateTime: DateTime) =
+    let currentTime = dateTime.TimeOfDay
+    let alarmEnd = startOfDay + TimeSpan(0, 15, 0)
+    let totalSeconds = (alarmEnd - startOfDay).TotalSeconds
+
+    if startOfDay <= currentTime && currentTime <= alarmEnd then
+        let elapsedSeconds = (currentTime - startOfDay).TotalSeconds
+        elapsedSeconds / totalSeconds
+    else
+        1.0