Add throwshade

1 files changed, 18 insertions, 0 deletions

diff --git a/src/Main/Throwshade.purs b/src/Main/Throwshade.purs
new file mode 100644
index 0000000..ad1ad2c
--- /dev/null
+++ b/src/Main/Throwshade.purs
@@ -0,0 +1,18 @@
+module Main.Throwshade where
+
+import Prelude
+
+import Effect (Effect)
+import Effect.Class (liftEffect)
+import Effect.Console (log)
+import UI (setShader)
+import Utils (byId, getTextArea, listen)
+
+main :: Effect Unit
+main = do
+  liftEffect $ log "hello it is throwshade"
+  input <- byId "lcolonq-throwshade-textarea"
+  test <- byId "lcolonq-throwshade-button-test"
+  listen test "click" \_ -> do
+    s <- getTextArea input
+    setShader s