45 lines
1.5 KiB
FSharp
45 lines
1.5 KiB
FSharp
module NightLight.Core
|
|
|
|
open NightLight.PartsOfDay
|
|
open NightLight.ZigbeeEvents
|
|
open NightLight.ZigbeeCommands
|
|
open NightLight.Moods
|
|
open NightLight.Lights
|
|
open NightLight.Configuration
|
|
open FsToolkit.ErrorHandling
|
|
|
|
let internal tryFindLight friendlyName =
|
|
Seq.tryFind (fun light -> light.FriendlyName = friendlyName) lights
|
|
|
|
let internal generateZigbeeCommandToFixLight partOfDay light =
|
|
let color, brightness =
|
|
getDesiredMood light.Room partOfDay |> getDesiredColorAndBrightness light.Bulb
|
|
|
|
generateZigbeeCommand light.FriendlyName color brightness
|
|
|
|
type Event =
|
|
| ReceivedZigbeeEvent of payload: string
|
|
| PartOfDayChanged of newPartOfDay: PartOfDay
|
|
|
|
type State = { PartOfDay: PartOfDay }
|
|
|
|
let onEventReceived (state: State) (event: Event) =
|
|
result {
|
|
let partOfDay = state.PartOfDay
|
|
|
|
match event with
|
|
| ReceivedZigbeeEvent payload ->
|
|
let! zigbeeEvent = parseZigbeeEvent payload
|
|
|
|
return
|
|
state,
|
|
match zigbeeEvent with
|
|
| DeviceAnnounce friendlyName ->
|
|
let maybeLight = tryFindLight friendlyName
|
|
|
|
match maybeLight with
|
|
| Some light -> generateZigbeeCommandToFixLight partOfDay light |> Seq.singleton
|
|
| None -> Seq.empty
|
|
| PartOfDayChanged newPartOfDay ->
|
|
return { PartOfDay = newPartOfDay }, lights |> Seq.map (generateZigbeeCommandToFixLight partOfDay)
|
|
}
|