Show documentation page v2

dev/DocsDisplay.elm

@@ -86,12 +86,18 @@ bfs queue acc =
                 DocsInt ->
                     bfs tail acc
                 
+                DocsIntDict d ->
+                    bfs (d :: tail) acc
+
                 DocsLazy f ->
                     bfs (f () :: tail) acc
 
                 DocsList d ->
                     bfs (d :: tail) acc
                 
+                DocsListWithOne d ->
+                    bfs (d :: tail) acc
+
                 DocsMap { content } ->
                     bfs (content :: tail) acc
 
@@ -110,6 +116,9 @@ bfs queue acc =
                 DocsRiskyMap { content } ->
                     bfs (content :: tail) acc
                 
+                DocsSet d ->
+                    bfs (d :: tail) acc
+
                 DocsString ->
                     bfs tail acc
 
@@ -285,12 +294,18 @@ getFunctionBFS docs acc =
         DocsInt ->
             acc
         
+        DocsIntDict d ->
+            getFunctionBFS d acc
+
         DocsLazy f ->
             getFunctionBFS (f ()) acc
 
         DocsList d ->
             getFunctionBFS d acc
         
+        DocsListWithOne d ->
+            getFunctionBFS d acc
+
         DocsMap { name, description, content } ->
             getFunctionBFS
                 content
@@ -307,6 +322,9 @@ getFunctionBFS docs acc =
                 content
                 (List.append acc [ { name = name, description = description } ])
         
+        DocsSet d ->
+            getFunctionBFS d acc
+
         DocsString ->
             acc
 
@@ -338,6 +356,13 @@ toString =
                 DocsInt ->
                     [ Element.text "int" ]
                 
+                DocsIntDict d ->
+                    List.concat
+                        [ [ Element.text "{int:" ]
+                        , go d
+                        , [ Element.text "}" ]
+                        ]
+
                 DocsLazy f ->
                     go (f ())
 
@@ -348,6 +373,13 @@ toString =
                         , [ Element.text "]" ]
                         ]
                 
+                DocsListWithOne d ->
+                    List.concat
+                        [ [ Element.text "[" ]
+                        , go d
+                        , [ Element.text "]" ]
+                        ]
+
                 DocsMap { name, content } ->
                     List.concat
                         [ [ Element.text name, Element.text "(" ]
@@ -372,6 +404,13 @@ toString =
                         , [ Element.text ")" ]
                         ]
                     
+                DocsSet content ->
+                    List.concat
+                        [ [ Element.text "set(" ]
+                        , go content
+                        , [ Element.text ")" ]
+                        ]
+
                 DocsString ->
                     [ Element.text "string" ]
 

dev/Main.elm

@@ -22,6 +22,7 @@ import Internal.Values.Envelope
 import Internal.Values.Event
 import Internal.Values.Settings
 import Internal.Values.StateManager
+import Internal.Values.Timeline
 import Json.Decode as D
 import Route exposing (Route(..))
 import Task
@@ -52,6 +53,7 @@ coders =
         , ( "Mashdict", shapeCoder <| Internal.Tools.Mashdict.coder .stateKey Internal.Values.Event.coder )
         , ( "Settings", shapeCoder <| Internal.Values.Settings.coder )
         , ( "StateManager", shapeCoder <| Internal.Values.StateManager.coder )
+        , ( "Timeline", shapeCoder <| Internal.Values.Timeline.coder )
         , ( "Timestamp", shapeCoder <| Internal.Tools.Timestamp.coder )
         ]
 

elm-dev.json

@@ -17,6 +17,7 @@
             "elm/time": "1.0.0",
             "elm/url": "1.0.0",
             "mdgriffith/elm-ui": "1.1.8",
+            "micahhahn/elm-safe-recursion": "2.0.0",
             "miniBill/elm-fast-dict": "1.1.0"
         },
         "indirect": {