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

Re-order light list

Browse source
This commit is contained in:
Sven van Heugten 2026-02-27 18:25:34 +01:00
parent 5728da8e6c
commit b9fc8bfaea
1 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

16
NightLight.Core/Models.fs
View file

@ -42,10 +42,10 @@ type DeviceFriendlyName =
| DeviceFriendlyName deviceFriendlyName -> deviceFriendlyName | DeviceFriendlyName deviceFriendlyName -> deviceFriendlyName
type Light = type Light =
| RightBedroomLamp | BathroomCeilingLamp
| LivingRoomWallLamp | LivingRoomWallLamp
| LivingRoomFloorLamp | LivingRoomFloorLamp
| BathroomCeilingLamp | RightBedroomLamp
| LeftBedroomLamp | LeftBedroomLamp
type LightProps = type LightProps =
@ -55,9 +55,9 @@ type LightProps =
let lightProps light = let lightProps light =
match light with match light with
| RightBedroomLamp -> | BathroomCeilingLamp ->
{ FriendlyName = DeviceFriendlyName "Vardagsrum - Fönsterlampa" { FriendlyName = DeviceFriendlyName "Badrum - Taklampa"
Room = Bedroom Room = Bathroom
Bulb = IkeaBulb } Bulb = IkeaBulb }
| LivingRoomWallLamp -> | LivingRoomWallLamp ->
{ FriendlyName = DeviceFriendlyName "Vardagsrum - Vägglampa" { FriendlyName = DeviceFriendlyName "Vardagsrum - Vägglampa"
@ -67,9 +67,9 @@ let lightProps light =
{ FriendlyName = DeviceFriendlyName "Vardagsrum - Golvlampa" { FriendlyName = DeviceFriendlyName "Vardagsrum - Golvlampa"
Room = LivingRoom Room = LivingRoom
Bulb = PaulmannBulb } Bulb = PaulmannBulb }
| BathroomCeilingLamp -> | RightBedroomLamp ->
{ FriendlyName = DeviceFriendlyName "Badrum - Taklampa" { FriendlyName = DeviceFriendlyName "Vardagsrum - Fönsterlampa"
Room = Bathroom Room = Bedroom
Bulb = IkeaBulb } Bulb = IkeaBulb }
| LeftBedroomLamp -> | LeftBedroomLamp ->
{ FriendlyName = DeviceFriendlyName "Sovrum - Nattduksbordlampa" { FriendlyName = DeviceFriendlyName "Sovrum - Nattduksbordlampa"