src/Main/Throwshade.purs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

module Main.Throwshade where

import Prelude

import Effect (Effect)
import Effect.Class (liftEffect)
import Effect.Console (log)
import UI (setShader, submitShader)
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
  submit <- byId "lcolonq-throwshade-button-submit"
  listen submit "click" \_ -> do
    s <- getTextArea input
    submitShader s