Label properties with the state of FakeHome
This commit is contained in:
parent
da5f7ea4df
commit
e5141d528e
2 changed files with 9 additions and 0 deletions
|
|
@ -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 ", "
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue