diff --git a/src/App.fsproj b/src/App.fsproj
index 052c53a..e0636f5 100644
--- 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
index b9d2ce0..22b6034 100644
--- 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
new file mode 100644
index 0000000..d104f86
--- /dev/null
+++ b/src/UI/DFRPG/ChargenView.fs
@@ -0,0 +1,5 @@
+module UI.DFRPG.ChargenView
+open Feliz
+
+let View() =
+    Html.div "placeholder"
\ No newline at end of file