Add soundboard

1 files changed, 24 insertions, 0 deletions

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