From b31fd7881f8da11dbdd1cc259907b535d96a47a4 Mon Sep 17 00:00:00 2001
From: LLLL Colonq <llll@colonq>
Date: Tue, 15 Apr 2025 21:10:01 -0400
Subject: Add gizmo page

---
 src/Utils.purs | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'src/Utils.purs')

diff --git a/src/Utils.purs b/src/Utils.purs
index 7be7be8..cee8f70 100644
--- a/src/Utils.purs
+++ b/src/Utils.purs
@@ -26,7 +26,9 @@ import Web.Event.EventTarget as Ev.Tar
 import Web.HTML as HTML
 import Web.HTML.HTMLDocument as HTML.Doc
 import Web.HTML.HTMLInputElement as HTML.Input
+import Web.HTML.HTMLSelectElement as HTML.Select
 import Web.HTML.HTMLTextAreaElement as HTML.TextArea
+import Web.HTML.HTMLIFrameElement as HTML.IFrame
 import Web.HTML.Window as HTML.Win
 
 maybeToArray :: forall a. Maybe a -> Array a
@@ -102,6 +104,11 @@ getValue e = case HTML.Input.fromElement e of
   Just inp -> liftEffect $ HTML.Input.value inp
   Nothing -> liftEffect $ throw "element is not an input"
 
+getSelectValue :: forall m. MonadEffect m => DOM.Element -> m String
+getSelectValue e = case HTML.Select.fromElement e of
+  Just inp -> liftEffect $ HTML.Select.value inp
+  Nothing -> liftEffect $ throw "element is not a select"
+
 addClass :: forall m. MonadEffect m => String -> DOM.Element -> m Unit
 addClass c e = do
   cl <- liftEffect $ DOM.El.classList e
@@ -120,6 +127,11 @@ toggleClass c e = do
   _ <- liftEffect $ DOM.DTL.toggle cl c
   pure unit
 
+setIFrameSrc :: forall m. MonadEffect m => String -> DOM.Element -> m Unit
+setIFrameSrc src e = case HTML.IFrame.fromElement e of
+  Just iframe -> liftEffect $ HTML.IFrame.setSrc src iframe
+  Nothing -> liftEffect $ throw "element is not an iframe"
+
 checkAuth :: AuthInfo -> Aff String
 checkAuth auth = do
   { text: resp } <-
-- 
cgit v1.2.3