Label properties with the state of FakeHome

This commit is contained in:
Sven van Heugten 2026-01-18 07:07:22 +01:00
parent da5f7ea4df
commit e5141d528e
2 changed files with 9 additions and 0 deletions

View file

@ -156,3 +156,8 @@ type FakeHome with
this.LightStates
|> Seq.filter (fst >> _.ControlledWithRemote >> (<>) NonRemote)
|> Seq.toList
member this.Label =
this.LightsThatAreOn
|> Seq.map (fun (light, state) -> $"{light.FriendlyName.Get}: {state}")
|> String.concat ", "