From 5b4cf834a0ed64694433b8a7c7dafa1dc20b71be Mon Sep 17 00:00:00 2001
From: Nathan McRae <nathanm@electroimpact.com>
Date: Wed, 20 Aug 2025 22:19:14 -0700
Subject: [PATCH] Remove redundant code from main

---
 src/Main.purs | 67 ++++++---------------------------------------------
 1 file changed, 8 insertions(+), 59 deletions(-)

diff --git a/src/Main.purs b/src/Main.purs
index 7a8cf6a..4d4fa71 100644
--- a/src/Main.purs
+++ b/src/Main.purs
@@ -105,14 +105,16 @@ getAllTextDimensions document svgContainer strings = do
 
   pure myMap
 
-update :: Event -> Effect Unit
-update e = do
+updateEvent :: Event -> Effect Unit
+updateEvent _ = do update
+
+update :: Effect Unit
+update = do
   w <- window
   d <- document w
   let document = HTMLDoc.toDocument d
   domParser <- makeDOMParser
 
-  log "update"
   inputElement <- myGetElementById document "ticks"
   inputHTMLElement <- case HTMLInput.fromElement inputElement of
     Nothing -> throw "'ticks' element is not an input tag"
@@ -183,66 +185,13 @@ main = do
   w <- window
   d <- document w
   let dd = HTMLDoc.toDocument d
-  domParser <- makeDOMParser
 
-  svgContainer <- getNodeById dd "svg-container"
-
-  let graphDef = { axis1Label: "axis 1"
-  , axis2Label: "axis 2"
-  , axis3Label: "axis 3"
-  , axis1Start: 0
-  , axis2Start: 1
-  , axis3Start: 20
-  , numTicks: 10
-  , tickTextStyle: { sizePx: 12.0
-    , typeface: "Liberation Sans"
-    }
-  , tickSize: TernaryGraph.Pixels 10.0
-  , axisTitleTextStyle: { sizePx: 16.0
-    , typeface: "Liberation Mono"
-    }
-  }
-
-  let tickText = tickLabelStrings graphDef
-
-  log $ Array.intercalate ",\n" (Set.toUnfoldable tickText)
-
-  let tickTextStyles = Foldable.foldr (\text textStyleArray -> Array.cons (Tup.Tuple text graphDef.tickTextStyle) textStyleArray) [] tickText 
-  let textStyles = tickTextStyles <> [ (Tup.Tuple graphDef.axis1Label graphDef.axisTitleTextStyle)
-    , (Tup.Tuple graphDef.axis2Label graphDef.axisTitleTextStyle)
-    , (Tup.Tuple graphDef.axis3Label graphDef.axisTitleTextStyle)
-  ]
-  textDimensions <- getAllTextDimensions dd svgContainer textStyles
-
-  log $ Foldable.foldr (\dim str -> str <> "\n" <> (toString dim.widthPx) <> ", " <> (toString dim.heightPx)) "" $ Map.values textDimensions
-
-  let mySVGErr = ternaryGraph 100.0 50.0 70.0 graphDef textDimensions
-  mySVG <- case mySVGErr of
-    Left error -> throw error
-    Right svg -> pure svg
-  
-  svgDocMay <- parseSVGFromString mySVG domParser
-  svgDoc <- case svgDocMay of
-    Left error -> throw error
-    Right doc -> pure doc
-
-  elMay <- firstElementChild $ toParentNode svgDoc
-  svgNode <- case elMay of
-    Nothing -> throw "no child in svg doc"
-    Just el -> pure $ Element.toNode el
-  
-  newNode <- importNode svgNode true dd
-  appendChild newNode svgContainer
-
-  listener <- eventListener update
+  listener <- eventListener updateEvent
 
   inputElement <- myGetElementById dd "ticks"
   addEventListener (EventType "input") listener true (Element.toEventTarget inputElement)
 
   tickSizeEl <- myGetElementById dd "tick-size"
   addEventListener (EventType "input") listener true (Element.toEventTarget tickSizeEl)
-  
-  --inputMay <- getElementById "ticks" $ toNonElementParentNode dd
-  --inputNode <- case inputMay of
-    --Nothing -> throw $ "Unable to find " <> containerID 
-    --Just e -> pure $ Element.toNode e
\ No newline at end of file
+
+  update
\ No newline at end of file