Add soundboard

2 files changed, 27 insertions, 1 deletions

diff --git a/src/Main/Menu.purs b/src/Main/Menu.purs
index 58364b6..0fc5fe1 100644
--- a/src/Main/Menu.purs
+++ b/src/Main/Menu.purs
@@ -3,6 +3,7 @@ module Main.Menu where
 import Prelude
 
 import Data.Foldable (for_)
+import Data.Tuple (Tuple(..))
 import Effect (Effect)
 import Effect.Aff (launchAff_)
 import Effect.Class (liftEffect)
@@ -19,4 +20,5 @@ main = launchAff_ do
   boxes <- queryAll ".lcolonq-menu-box"
   for_ boxes \box -> do
     listen box "click" \_ev -> do
-      UI.submitRedeem box
+      Tuple redeem inp <- UI.menuRedeemData box
+      UI.submitRedeem redeem inp
diff --git a/src/Main/Soundboard.purs b/src/Main/Soundboard.purs
new file mode 100644
index 0000000..eb9e0b4
--- /dev/null
+++ b/src/Main/Soundboard.purs
@@ -0,0 +1,24 @@
+module Main.Soundboard where
+
+import Prelude
+
+import Data.Maybe (Maybe(..))
+import Effect (Effect)
+import Effect.Aff (launchAff_)
+import Effect.Class (liftEffect)
+import Effect.Console (log)
+import UI as UI
+import Utils (byId, getValue, listen)
+import Web.UIEvent.KeyboardEvent as KbEv
+
+main :: Effect Unit
+main = launchAff_ do
+  liftEffect $ log "hello from soundboard"
+  el <- byId "lcolonq-soundboard-entry"
+  listen el "keydown" \ev -> launchAff_ do
+    case KbEv.fromEvent ev of
+      Just kbev -> do
+        when ("Enter" == KbEv.code kbev) do
+          inp <- getValue el
+          UI.submitRedeem "sound board" inp
+      Nothing -> pure unit