Stubs for ribbit development

src/App.fsproj

@@ -9,13 +9,15 @@
     <Compile Include="Core\Coroutine.fs" />
     <Compile Include="Core\Packrat.fs" />
     <Compile Include="Core\Menus.fs" />
+    <Compile Include="Ribbit\RibbitCore.fs" />
     <Compile Include="Domain\ADND\PriestSpells.fs" />
     <Compile Include="Domain\DFRPG\Chargen.Templates.fs" />
     <Compile Include="UI\CommonUI.fs" />
     <Compile Include="UI\LocalStorage.fs" />
     <Compile Include="UI\DFRPG\Chargen.fs" />
     <Compile Include="UI\DFRPG\ChargenView.fs" />
     <Compile Include="UI\ADND\PriestSpellsView.fs" />
+    <Compile Include="UI\Ribbit\RibbitPlaygroundView.fs" />
     <Compile Include="UI\Components.fs" />
     <Compile Include="Main.fs" />
   </ItemGroup>

src/Main.fs

@@ -17,6 +17,7 @@ let Router() =
             let lookup = [
                 "priestSpells", "Priest Spells by Sphere", (fun () -> UI.ADND.PriestSpells.View.View())
                 "dfrpgChargen", "Create a character for Dungeon Fantasy RPG", (fun () -> UI.DFRPG.Chargen.View.View())
+                "playground", "Ribbit Playground (under construction)", (fun () -> UI.Ribbit.PlaygroundView.View())
                 ]
             let (|Segment|_|) segment =
                 lookup |> List.tryFind (fun (s, _, _) -> s = segment)

src/Ribbit/RibbitCore.fs

@@ -0,0 +1,3 @@
+[<AutoOpen>]
+module Ribbit.Core
+

src/UI/Ribbit/RibbitPlaygroundView.fs

@@ -0,0 +1,22 @@
+module UI.Ribbit.PlaygroundView
+open Ribbit
+open Feliz
+open Feliz.UseElmish
+
+type DataKey = string
+type Value = Text of string | Number of int
+type DataBank = Map<DataKey, Value>
+type TODO = Unit
+type Model = { data: DataBank; definitions: TODO }
+    with
+    static member fresh = { data = Map.empty; definitions = () }
+
+type Msg = TODO
+
+let init _ = Model.fresh
+
+let update msg model = model
+
+let View() =
+    let model dispatch = React.useElmishSimple init update
+    Html.div "RibbitPlayground: placeholder"