From 04a398330261baa8ccbadc8ca73e52b279b4a905 Mon Sep 17 00:00:00 2001
From: Max Wilson <wilson.max@gmail.com>
Date: Fri, 5 Jan 2024 08:32:39 -0800
Subject: [PATCH] Add srcLink to main page and chargen page

---
 src/Main.fs                 | 1 +
 src/UI/DFRPG/ChargenView.fs | 5 ++++-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/Main.fs b/src/Main.fs
index 29aca8c..ce3b1e9 100644
--- 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
index bb06836..d57e3fd 100644
--- 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()
+        ]
\ No newline at end of file