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

Naively move construction of lightToState to first TimeChanged

Browse source
This commit is contained in:
Sven van Heugten 2026-01-17 11:50:55 +01:00
parent 78a692bd43
commit 4d8fc44bee
1 changed files with 41 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

56
NightLight.Core/NightLightStateMachine.fs
View file

@ -26,19 +26,24 @@ let internal generateZigbeeCommandsToFixLight state partOfDay (light: Light) =
yield generateBrightnessCommand light brightness
}
type NightLightStateMachine private (maybeTime: DateTime option, lightToState: Map<Light, State>) =
new() = NightLightStateMachine(None, lights |> Seq.map (fun light -> light, On) |> Map.ofSeq)
type internal NightLightState =
{ Time: DateTime
LightToState: Map<Light, State> }
type NightLightStateMachine private (maybeState: NightLightState option) =
new() = NightLightStateMachine None
member this.OnEventReceived(event: Event) : Result<NightLightStateMachine * Message seq, OnEventReceivedError> =
result {
let maybePartOfDay = maybeTime |> Option.map getPartOfDay
let updateLightStateForRemoteControlledLights desiredLightState =
let updateLightStateForRemoteControlledLights oldLightToState desiredLightState =
remoteControlledLights
|> Seq.fold (fun acc key -> Map.add key desiredLightState acc) lightToState
|> Seq.fold (fun acc key -> Map.add key desiredLightState acc) oldLightToState
match event, maybePartOfDay with
| ReceivedZigbeeEvent payload, Some partOfDay ->
match event, maybeState with
| ReceivedZigbeeEvent payload,
Some { Time = time
LightToState = lightToState } ->
let partOfDay = time |> getPartOfDay
let! zigbeeEvent = parseZigbeeEvent payload |> Result.mapError ParseZigbeeEventError
return
@ -53,31 +58,48 @@ type NightLightStateMachine private (maybeTime: DateTime option, lightToState: M
| ButtonPress action ->
let newLightToState =
match action with
| PressedOn -> updateLightStateForRemoteControlledLights On
| PressedOff -> updateLightStateForRemoteControlledLights Off
| PressedOn -> updateLightStateForRemoteControlledLights lightToState On
| PressedOff -> updateLightStateForRemoteControlledLights lightToState Off
| PressedLeft ->
updateLightStateForRemoteControlledLights Off
updateLightStateForRemoteControlledLights lightToState Off
|> Map.add
(remoteControlledLights
|> Seq.find (fun light -> light.ControlledWithRemote = RemoteLeft))
On
NightLightStateMachine(maybeTime, newLightToState),
NightLightStateMachine(
Some
<| { Time = time
LightToState = newLightToState }
),
remoteControlledLights
|> Seq.collect (fun light ->
generateZigbeeCommandsToFixLight newLightToState[light] partOfDay light)
| TimeChanged newTime, maybePartOfDay ->
| TimeChanged newTime, maybeState ->
let newPartOfDay = getPartOfDay newTime
let partOfDayChanged = maybePartOfDay <> Some newPartOfDay
let partOfDayChanged =
let maybePreviousPartOfDay =
maybeState |> Option.map _.Time |> Option.map getPartOfDay
maybePreviousPartOfDay <> Some newPartOfDay
let newLightToState =
maybeState
|> Option.map _.LightToState
|> Option.map (fun lightToState ->
if partOfDayChanged && newPartOfDay = Day then
updateLightStateForRemoteControlledLights On
updateLightStateForRemoteControlledLights lightToState On
else
lightToState
lightToState)
|> Option.defaultValue (lights |> Seq.map (fun light -> light, On) |> Map.ofSeq)
let newState = NightLightStateMachine(Some newTime, newLightToState)
let newState =
NightLightStateMachine(
Some
<| { Time = newTime
LightToState = newLightToState }
)
return
newState,