Quick buttons

src/HomeAssistant/Controller/Bedroom.hs

@@ -4,11 +4,9 @@ module HomeAssistant.Controller.Bedroom where
 
 import HomeAssistant.Controller
 import qualified Data.Text as T
-import AFRP (Event (..), (>>|), toEvent, lMerge, duration, edge)
+import AFRP (Event (..), lMerge, duration, edge)
 import Data.Aeson (Value, object, (.=))
 import Control.Arrow ((>>>), returnA, arr, Arrow (..))
-import Control.Lens ((^?), to, traversed)
-import Data.Aeson.Lens (key, _String)
 import Data.Bool (bool)
 import Data.Time (NominalDiffTime)
 import qualified AFRP
@@ -30,13 +28,6 @@ createBedroomScene = Service
   }
 
 
-activateScene :: T.Text -> Service
-activateScene sceneId = Service
-  { serviceDomain="scene"
-  , serviceName= "turn_on"
-  , serviceTarget= [EntityId sceneId]
-  , serviceData = Nothing
-  }
 
 -- Bedroom presence
 bedroomPresence :: HASS (Event Value) (Event Presence)
@@ -50,36 +41,6 @@ bedroomPresenceController = proc x -> do
        Event Occupied -> callService (activateScene "scene.makuuhuone_lights_snapshot") -< ()
        _ -> returnA -< ()
 
-data IkeaGesture
-  = ShortClick
-  | ShortRelease
-  | DoubleClick
-  | LongClick
-  deriving Show
-data IkeaButton a = OnButton !a | OffButton !a
-  deriving Show
-
-
-toIkeaQuickButton :: T.Text -> Maybe (IkeaButton IkeaGesture)
-toIkeaQuickButton = \case
-  -- 1 is on, 2 is off side of the button
-  "1_initial_press" -> Just $ OnButton ShortClick
-  "1_short_release" -> Just $ OnButton ShortRelease
-  "1_double_press" -> Just $ OnButton DoubleClick
-  "1_long_press" -> Just $ OnButton LongClick
-  "2_initial_press" -> Just $ OffButton ShortClick
-  "2_short_release" -> Just $ OffButton ShortRelease
-  "2_double_press" -> Just $ OffButton DoubleClick
-  "2_long_press" -> Just $ OffButton LongClick
-  _ -> Nothing
-
-ikeaQuickButton :: T.Text -> HASS (Event Value) (Event (IkeaButton IkeaGesture))
-ikeaQuickButton entityId =
-  entityChangeEvent' entityId
-  >>| arr (maybe (Left ()) Right . eventType)
-  >>> toEvent
-  where
-    eventType v = v ^? key "event" . key "variables" . key "trigger" . key "to_state" . key "attributes" . key "event_type" . _String . to toIkeaQuickButton . traversed
 
 
 data BedroomControls