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)
    }