From 12a8b6bb63ab52cd4828f16d26d94079fa576436 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Tue, 18 Feb 2025 00:33:43 -0500 Subject: Add throwshade --- src/Main/Throwshade.purs | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 src/Main/Throwshade.purs (limited to 'src/Main') 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 -- cgit v1.2.3