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

Make the 'On' button cycle between lights

Browse source
This commit is contained in:
Sven van Heugten 2026-03-16 19:56:02 +01:00
parent 6e6a600e3c
commit 451d8b09f1
2 changed files with 11 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
NightLight.Core.Tests/NightLightTests.fs
View file

@ -124,7 +124,10 @@ type NightLightTests() =
(fun state interaction ->
match state, interaction with
| _, RemotePressedOffButton -> BothOff
| _, RemotePressedOnButton -> BothOn
| BothOff, RemotePressedOnButton -> BothOn
| BothOn, RemotePressedOnButton -> LeftOn
| LeftOn, RemotePressedOnButton -> RightOn
| RightOn, RemotePressedOnButton -> BothOn
| _, RemotePressedLeftButton -> LeftOn)
BothOn

9
NightLight.Core/NightLightStateMachine.fs
View file

@ -95,8 +95,13 @@ type NightLightStateMachine private (maybeState: NightLightState option) =
| PressedOn ->
currentState
|> withAlarmOff
|> withStateFor RightBedroomLamp On
|> withStateFor LeftBedroomLamp On
|> match
currentState.LightToManualState[LeftBedroomLamp],
currentState.LightToManualState[RightBedroomLamp]
with
| Off, _ -> withStateFor LeftBedroomLamp On >> withStateFor RightBedroomLamp On
| On, On -> withStateFor LeftBedroomLamp On >> withStateFor RightBedroomLamp Off
| On, Off -> withStateFor LeftBedroomLamp Off >> withStateFor RightBedroomLamp On
| PressedOff ->
currentState
|> withAlarmOff