Add srcLink to main page and chargen page

MaxWilson · Jan 5, 2024 · 04a3983 · 04a3983
1 parent 73c49e2
commit 04a3983
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/src/Main.fs b/src/Main.fs
@@ -25,6 +25,7 @@ let Router() =
             | [ Segment (_, _, view) ] -> view()
             | otherwise ->
                 class' "mainPage" Html.div [
+                    srcLink
                     Html.h1 "Shining Sword RPG apps"
                     for (segment, name, _) in lookup do
                         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
@@ -7,4 +7,7 @@ let View() =
     let model, dispatch = React.useElmishSimple init update
     let profession = swash
     let output = run profession (model.currentOutput |> Option.defaultWith (fun _ -> OfferOutput<_>.fresh DFRPGCharacter.fresh [])) (RefreshedOutput >> dispatch)
-    output.toReactElements()
+    Html.div [
+        srcLink
+        output.toReactElements()
+        ]