Triggers instead of full state events

2026-08-25 13:13:50 +03:00
parent 771d702abd
commit 2730657952
11 changed files with 180 additions and 66 deletions
@@ -79,7 +79,7 @@ ikeaQuickButton entityId =
  >>| arr (maybe (Left ()) Right . eventType)
  >>> toEvent
  where
-    eventType v = v ^? key "event" . key "data" . key "new_state" . key "attributes" . key "event_type" . _String . to toIkeaQuickButton . traversed
+    eventType v = v ^? key "event" . key "variables" . key "trigger" . key "to_state" . key "attributes" . key "event_type" . _String . to toIkeaQuickButton . traversed


 data BedroomControls