Initial commit

src/Components/Nav.fs

@@ -0,0 +1,31 @@
+module DOT.Components.Nav
+
+open Sutil
+open type Feliz.length
+
+let view() =
+    Html.div [
+        Attr.style [
+            Css.backgroundColor "oklch(0.2 0 0)"
+            Css.displayFlex
+            Css.justifyContentSpaceAround
+            Css.alignItemsCenter
+            Css.positionFixed
+            Css.zIndex 5
+            Css.top 0
+            Css.height (rem 3)
+            Css.width (vw 100)
+        ]
+
+        Html.div [
+            Html.img [
+                // TODO
+            ]
+        ]
+        Html.div [
+
+        ]
+        Html.div [
+
+        ]
+    ]

src/Pages/About.fs

@@ -0,0 +1,6 @@
+module DOT.Pages.About
+
+open Sutil
+
+let view() =
+    Html.div []

src/Pages/Index.fs

@@ -0,0 +1,6 @@
+module DOT.Pages.Index
+
+open Sutil
+
+let view() =
+    Html.div []

src/Pages/NotFound.fs

@@ -0,0 +1,7 @@
+module DOT.Pages.NotFound
+
+open Sutil
+
+let view() =
+    Html.div []
+

src/Program.fs

@@ -0,0 +1,16 @@
+module DOT.Program
+
+open DOT.Components
+open DOT.Routing
+open Sutil
+open Sutil.CoreElements
+open Sutil.Router
+
+
+let view() =
+    fragment [
+        Nav.view()
+        Router.renderRouter router getHandlerFromUrl
+    ]
+    
+view() |> Program.mount

src/Routing.fs

@@ -0,0 +1,16 @@
+module DOT.Routing
+
+open System
+open System.Reflection
+open Sutil
+open Sutil.Router
+
+let router = Router.createRouter()
+let Link<'a> = Router.Link router []
+let navigate = Router.navigate router
+
+let getHandlerFromUrl(url: string list) =
+    match url with
+    | [] -> Pages.Index.view()
+    | ["about"] -> Pages.About.view()
+    | _ -> Pages.NotFound.view()