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 -> (fun state interaction ->
match state, interaction with match state, interaction with
| _, RemotePressedOffButton -> BothOff | _, RemotePressedOffButton -> BothOff
| _, RemotePressedOnButton -> BothOn | BothOff, RemotePressedOnButton -> BothOn
| BothOn, RemotePressedOnButton -> LeftOn
| LeftOn, RemotePressedOnButton -> RightOn
| RightOn, RemotePressedOnButton -> BothOn
| _, RemotePressedLeftButton -> LeftOn) | _, RemotePressedLeftButton -> LeftOn)
BothOn BothOn

9
NightLight.Core/NightLightStateMachine.fs
View file

@ -95,8 +95,13 @@ type NightLightStateMachine private (maybeState: NightLightState option) =
| PressedOn -> | PressedOn ->
currentState currentState
|> withAlarmOff |> withAlarmOff
|> withStateFor RightBedroomLamp On |> match
|> withStateFor LeftBedroomLamp On 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 -> | PressedOff ->
currentState currentState
|> withAlarmOff |> withAlarmOff