Scene transitions

2026-09-29 18:05:51 +03:00
parent 219f75c0e4
commit f4c82df968
2 changed files with 10 additions and 4 deletions
@@ -56,11 +56,13 @@ bedroomPresenceController = proc x -> do
       Event LightsOff -> do
         callService (light bedroomLights Off) -< ()
       Event LightsOn -> do
-         callService (activateScene "scene.makuuhuone_lights_snapshot") -< ()
+         callService (activateSceneWith "scene.makuuhuone_lights_snapshot" transition) -< ()
       Event LightsSleep -> do
         callService createBedroomScene -< ()
-         callService (activateScene "scene.makuuhuone_lepotila") -< ()
+         callService (activateSceneWith "scene.makuuhuone_lepotila" transition) -< ()
       _ -> returnA -< ()
+  where
+    transition = Just $ object ["transition" .= (5 :: Int)]


 data BedroomControls