From 18ebe6e6ca4299b7f903426502c5a5fb73747c81 Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Mon, 27 Dec 2021 22:32:32 +0100
Subject: ...

---
 src/Util/TonkadurToHtml.elm | 48 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100644 src/Util/TonkadurToHtml.elm

(limited to 'src/Util')

diff --git a/src/Util/TonkadurToHtml.elm b/src/Util/TonkadurToHtml.elm
new file mode 100644
index 0000000..452d6a3
--- /dev/null
+++ b/src/Util/TonkadurToHtml.elm
@@ -0,0 +1,48 @@
+module Util.TonkadurToHtml exposing (..)
+
+-- Elm -------------------------------------------------------------------------
+import List
+import Html
+import Html.Attributes
+
+-- Tonkadur --------------------------------------------------------------------
+import Tonkadur.Types
+
+-- Local Module ----------------------------------------------------------------
+import Struct.Event
+
+--------------------------------------------------------------------------------
+-- TYPES -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+
+--------------------------------------------------------------------------------
+-- LOCAL -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+
+--------------------------------------------------------------------------------
+-- EXPORTED --------------------------------------------------------------------
+--------------------------------------------------------------------------------
+convert : Tonkadur.Types.Value -> (Html.Html Struct.Event.Type)
+convert value =
+   case (Tonkadur.Types.value_to_text_or_string value) of
+      (Tonkadur.Types.AugmentedText text_data) ->
+         (Html.div
+            [
+               (Html.Attributes.class "tonkadur-value")
+               -- TODO: more classes depending on effects.
+            ]
+            (List.map
+               (\v -> (convert (Tonkadur.Types.TextValue v)))
+               text_data.content
+            )
+         )
+
+      (Tonkadur.Types.StringText string) ->
+         (Html.div
+            [
+               (Html.Attributes.class "tonkadur-value")
+            ]
+            [(Html.text string)]
+         )
+
+      Tonkadur.Types.NewlineText -> (Html.br [] [])
-- 
cgit v1.2.3-70-g09d2