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

Hard code the lights controlled by the remote

Browse source
This commit is contained in:
Sven van Heugten 2026-02-27 17:59:25 +01:00
parent 50c8a413a6
commit 3855439d82
5 changed files with 40 additions and 37 deletions
Download patch file Download diff file Expand all files Collapse all files

7
NightLight.Core.Tests/FakeHome.fs
View file

@ -149,12 +149,15 @@ type FakeHome with
member this.NonRemotelyControlledLightStates =
this.LightStates
|> Seq.filter (fst >> lightProps >> _.ControlledWithRemote >> (=) NonRemote)
|> Seq.filter (fun (light, _) ->
light = VardagsrumVagglampa
|| light = VardagsrumGolvlampa
|| light = BadrumTaklampa)
|> Seq.toList
member this.RemotelyControlledLightStates =
this.LightStates
|> Seq.filter (fst >> lightProps >> _.ControlledWithRemote >> (<>) NonRemote)
|> Seq.filter (fun (light, _) -> light = VardagsrumFonsterlampa || light = SovrumNattduksbordlampa)
|> Seq.toList
member this.Label =