From 638bdddeb10b18dd35af5a6de2950aaa3c8a5e44 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Tue, 10 Dec 2024 14:28:30 -0500 Subject: Initial mrgreen activities --- src/Main/Menu.purs | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 src/Main/Menu.purs (limited to 'src/Main/Menu.purs') diff --git a/src/Main/Menu.purs b/src/Main/Menu.purs new file mode 100644 index 0000000..58364b6 --- /dev/null +++ b/src/Main/Menu.purs @@ -0,0 +1,22 @@ +module Main.Menu where + +import Prelude + +import Data.Foldable (for_) +import Effect (Effect) +import Effect.Aff (launchAff_) +import Effect.Class (liftEffect) +import Effect.Console (log) +import UI as UI +import Utils (listen, queryAll) +import Web.Event.Event as Ev + +main :: Effect Unit +main = launchAff_ do + liftEffect $ log "hello from menu" + textareas <- queryAll "textarea" + for_ textareas \ta -> listen ta "click" Ev.stopPropagation + boxes <- queryAll ".lcolonq-menu-box" + for_ boxes \box -> do + listen box "click" \_ev -> do + UI.submitRedeem box -- cgit v1.2.3