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

Add second remote

Browse source
This commit is contained in:
Sven van Heugten 2026-03-15 17:31:50 +01:00
parent 48c58b610c
commit 8cde891ba2
8 changed files with 51 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

9
NightLight.Core/ZigbeeEvents.fs
View file

@ -9,6 +9,8 @@ type Action =
| PressedOff
| PressedLeft
| PressedRight
| PressedLivingRoomOn
| PressedLivingRoomOff
type ZigbeeEvent =
| DeviceAnnounce of DeviceFriendlyName
@ -41,5 +43,12 @@ let parseZigbeeEvent (message: Message) =
| Some(JsonValue.String "arrow_right_click") -> Ok(ButtonPress PressedRight)
| Some _ -> Error InvalidActionField
| None -> Error MissingActionField
| "zigbee2mqtt/Living Room Remote" ->
return!
match jsonValue.TryGetProperty "action" with
| Some(JsonValue.String "on") -> Ok(ButtonPress PressedLivingRoomOn)
| Some(JsonValue.String "off") -> Ok(ButtonPress PressedLivingRoomOff)
| Some _ -> Error InvalidActionField
| None -> Error MissingActionField
| _ -> return! Error <| UnknownTopic message.Topic
}