svenvanheugten/night-light
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make the Right button toggle the living room lights

Browse source
This commit is contained in:
Sven van Heugten 2026-03-15 11:49:27 +01:00
parent 1dc1faa16a
commit 48c58b610c
3 changed files with 17 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

5
NightLight.Core/Models.fs
View file

@ -87,6 +87,11 @@ type internal State =
| On
| Off
member this.Invert() =
match this with
| On -> Off
| Off -> On
type internal Brightness =
| Brightness of int

8
NightLight.Core/NightLightStateMachine.fs
View file

@ -49,6 +49,10 @@ let internal withStateFor (light: Light) (state: State) (oldNightLightState: Nig
{ oldNightLightState with
LightToManualState = Map.add light state oldNightLightState.LightToManualState }
let internal withInvertedStateFor (light: Light) (oldNightLightState: NightLightState) =
oldNightLightState
|> withStateFor light (oldNightLightState.LightToManualState[light].Invert())
let internal withAlarmOff (oldNightLightState: NightLightState) =
{ oldNightLightState with
Alarm = false }
@ -105,8 +109,8 @@ type NightLightStateMachine private (maybeState: NightLightState option) =
|> withStateFor LeftBedroomLamp On
| PressedRight ->
currentState
|> withStateFor LivingRoomWallLamp Off
|> withStateFor LivingRoomFloorLamp Off
|> withInvertedStateFor LivingRoomWallLamp
|> withInvertedStateFor LivingRoomFloorLamp
NightLightStateMachine(Some newNightLightState),
generateZigbeeCommandsForDifference (Some currentState) newNightLightState