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

Spam a bit less

Browse source
This commit is contained in:
Sven van Heugten 2026-01-10 21:04:20 +01:00
parent c5088ae218
commit 2f6e46960f
2 changed files with 15 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

11
NightLight.Core/ZigbeeCommands.fs
View file

@ -25,10 +25,10 @@ let generateStateCommand state light =
commandObj.ToJsonString() |> toZigbeeCommand light
let generateZigbeeCommand targetColor targetBrightness light =
let internal generateColorCommand light color =
let commandObj = JsonObject()
match targetColor with
match color with
| ColorByCoordinates(x, y) ->
let colorObj = JsonObject()
colorObj["x"] <- x
@ -36,8 +36,13 @@ let generateZigbeeCommand targetColor targetBrightness light =
commandObj["color"] <- colorObj
| ColorByTemperature t -> commandObj["color_temp"] <- t
commandObj.ToJsonString() |> toZigbeeCommand light
let internal generateBrightnessCommand light brightness =
let commandObj = JsonObject()
commandObj["brightness"] <-
match targetBrightness with
match brightness with
| Brightness b -> b
commandObj.ToJsonString() |> toZigbeeCommand light