Add placeholder for DFRPG templates

MaxWilson · Dec 5, 2023 · 5a2fe9b · 5a2fe9b
1 parent c808a10
commit 5a2fe9b
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 1 deletion.
diff --git a/src/App.fsproj b/src/App.fsproj
@@ -10,6 +10,7 @@
         <Compile Include="Core\Packrat.fs" />
         <Compile Include="UI\CommonUI.fs" />
         <Compile Include="UI\LocalStorage.fs" />
+        <Compile Include="UI\DFRPG\ChargenView.fs" />
         <Compile Include="UI\Components\PriestSpells.fs" />
         <Compile Include="UI\Components\PriestSpellsView.fs" />
         <Compile Include="UI\Components.fs" />

diff --git a/src/Main.fs b/src/Main.fs
@@ -17,6 +17,7 @@ let Router() =
         router.children [
             let lookup = [
                 "priestSpells", "Priest Spells by Sphere", (fun () -> UI.PriestSpellsView.View())
+                "dfrpgChargen", "Create a character for Dungeon Fantasy RPG", (fun () -> UI.DFRPG.ChargenView.View())
                 ]
             let (|Segment|_|) segment =
                 lookup |> List.tryFind (fun (s, _, _) -> s = segment)
@@ -26,7 +27,7 @@ let Router() =
                 class' "mainPage" Html.div [
                     Html.h1 "Shining Sword RPG apps"
                     for (segment, name, _) in lookup do
-                        Html.a [prop.text name; prop.href ("#" + segment)]
+                        Html.a [prop.text name; prop.href ("#" + segment)] |> List.singleton |> Html.div
                     ]
             ]
         ]

diff --git a/src/UI/DFRPG/ChargenView.fs b/src/UI/DFRPG/ChargenView.fs
@@ -0,0 +1,5 @@
+module UI.DFRPG.ChargenView
+open Feliz
+
+let View() =
+    Html.div "placeholder"