Implement fading alarm

2026-01-17 18:01:14 +01:00 · 2026-01-17 18:01:14 +01:00 · 6b73e32cda
commit 6b73e32cda
parent 3e33e489aa
3 changed files with 26 additions and 7 deletions
--- a/NightLight.Core/NightLightStateMachine.fs
+++ b/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