Get basic graph display

2025-07-27 14:07:15 -07:00
parent 3efa7b4339
commit 833fbf27d7
3 changed files with 66 additions and 2 deletions
--- a/index.html
+++ b/index.html
@@ -0,0 +1,8 @@
+<html>
+    <head>
+    </head>
+    <body>
+        <div id="svgContainer" class="my-class"></div>
+    </body>
+    <script src="index.js"></script>
+</html>
--- a/spago.dhall
+++ b/spago.dhall
@@ -15,12 +15,17 @@ to generate this file without the comments in this block.
  [ "arrays"
  , "console"
  , "effect"
+  , "either"
+  , "exceptions"
  , "integers"
  , "lists"
  , "maybe"
  , "numbers"
  , "prelude"
  , "tuples"
+  , "web-dom"
+  , "web-dom-parser"
+  , "web-html"
  ]
 , packages = ./packages.dhall
 , sources = [ "src/**/*.purs", "test/**/*.purs" ]
--- a/src/Main.purs
+++ b/src/Main.purs
@@ -1,10 +1,61 @@
 module Main where

+import Prelude
+
+import Data.Maybe (Maybe(..))
+import Data.Either (Either(..))
 import Effect (Effect)
 import Effect.Console (log)
+import Effect.Class (liftEffect)
+import Effect.Exception (throw)
 import TernaryGraph (ternaryGraph)
-import Prelude (($), Unit)
+import Web.DOM.Document (contentType
+  , getElementsByClassName
+  , importNode
+  , toNode
+  , toNonElementParentNode
+  , toParentNode
+  , url
+  )
+import Web.DOM.DOMParser (makeDOMParser, parseSVGFromString)
+import Web.DOM.Element (toNode) as Element
+import Web.DOM.HTMLCollection (length)
+import Web.DOM.Node (appendChild, nodeName, setTextContent)
+import Web.DOM.NonElementParentNode (getElementById)
+import Web.DOM.ParentNode (firstElementChild)
+import Web.HTML (window)
+import Web.HTML.HTMLDocument (toDocument)
+import Web.HTML.HTMLMetaElement (setContent)
+import Web.HTML.HTMLDivElement (fromElement)
+import Web.HTML.Window (document)
+
+-- Consider DOM.Simple.Types

 main :: Effect Unit
 main = do
-  log $ ternaryGraph 100.0 50.0 50.0 10
+  w <- window
+  d <- document w
+  let dd = toDocument d
+  dUrl <- url dd
+  let containerID = "svgContainer"
+  domParser <- makeDOMParser
+  let mySVG = ternaryGraph 100.0 50.0 50.0 10
+  svgDoc <- parseSVGFromString mySVG domParser
+  maybeElement <- getElementById containerID $ toNonElementParentNode dd
+  case maybeElement of
+    Nothing -> do 
+      throw $ "Unable to find " <> containerID 
+    Just e -> do 
+      let node = Element.toNode e
+      case svgDoc of
+        Left error -> throw error
+        Right doc -> do
+          log $ nodeName (toNode doc)
+          elMay <- firstElementChild $ toParentNode doc
+          case elMay of
+            Nothing -> throw "oops"
+            Just el -> do
+              let svgNode = Element.toNode el
+              log $ nodeName svgNode 
+              newNode <- importNode svgNode true dd
+              appendChild newNode node