From b31fd7881f8da11dbdd1cc259907b535d96a47a4 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Tue, 15 Apr 2025 21:10:01 -0400 Subject: Add gizmo page --- src/UI.purs | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'src/UI.purs') diff --git a/src/UI.purs b/src/UI.purs index d5913b7..645c346 100644 --- a/src/UI.purs +++ b/src/UI.purs @@ -37,3 +37,15 @@ setShader s = liftEffect $ _setShader s foreign import _submitShader :: String -> String -> Effect Unit submitShader :: forall m. MonadEffect m => String -> m Unit submitShader el = liftEffect $ _submitShader (Config.secureApiServer <> "/redeem") el + +foreign import _addOption :: String -> DOM.El.Element -> Effect Unit +addOption :: forall m. MonadEffect m => String -> DOM.El.Element -> m Unit +addOption o el = liftEffect $ _addOption o el + +foreign import _onInput :: DOM.El.Element -> (String -> Effect Unit) -> Effect Unit +onInput :: forall m. MonadEffect m => DOM.El.Element -> (String -> Effect Unit) -> m Unit +onInput el f = liftEffect $ _onInput el f + +foreign import _startBufferRefresh :: String -> DOM.El.Element -> Effect Unit +startBufferRefresh :: forall m. MonadEffect m => DOM.El.Element -> m Unit +startBufferRefresh el = liftEffect $ _startBufferRefresh (Config.apiServer <> "/gizmo/events") el -- cgit v1.2.3