Improve lamp names

This commit is contained in:
Sven van Heugten 2026-02-27 18:20:31 +01:00
parent 4a53489003
commit 1e313ca4ab
5 changed files with 35 additions and 35 deletions

View file

@ -48,7 +48,7 @@ let internal createOrUpdateNightLightState
light,
{ Color = color
Brightness =
if alarm && (light = VardagsrumFonsterlampa || light = SovrumNattduksbordlampa) then
if alarm && (light = RightBedroomLamp || light = LeftBedroomLamp) then
brightness.Scale(getAlarmWeight time)
else
brightness
@ -105,18 +105,18 @@ type NightLightStateMachine private (maybeState: NightLightState option) =
| PressedOn ->
currentState
|> withAlarmOff
|> withStateFor VardagsrumFonsterlampa On
|> withStateFor SovrumNattduksbordlampa On
|> withStateFor RightBedroomLamp On
|> withStateFor LeftBedroomLamp On
| PressedOff ->
currentState
|> withAlarmOff
|> withStateFor VardagsrumFonsterlampa Off
|> withStateFor SovrumNattduksbordlampa Off
|> withStateFor RightBedroomLamp Off
|> withStateFor LeftBedroomLamp Off
| PressedLeft ->
currentState
|> withAlarmOff
|> withStateFor VardagsrumFonsterlampa Off
|> withStateFor SovrumNattduksbordlampa On
|> withStateFor RightBedroomLamp Off
|> withStateFor LeftBedroomLamp On
NightLightStateMachine(Some newNightLightState),
generateZigbeeCommandsForDifference (Some currentState) newNightLightState