Improve lamp names
This commit is contained in:
parent
4a53489003
commit
1e313ca4ab
5 changed files with 35 additions and 35 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue