Layout tweaks to make github link not cover up information and hopefu…

…lly not be bigger than the viewport on mobile

main.sass

@@ -117,11 +117,11 @@ ul
         font-weight: bold
         @media speech
             display: none
-    .srcLink
-        max-width: 6rem
-        position: absolute
-        right: 3px
-        background-color: white
+
+.srcLink
+    max-width: 6rem
+    float: right
+    background-color: white
 
 .horizontalStack
     display: flex

src/Main.fs

@@ -15,13 +15,6 @@ let Router() =
     React.router [
         router.onUrlChanged updateUrl
         router.children [
-            class' "header" Html.div [
-                classP' "srcLink" Html.a [
-                    prop.href "https://github.com/MaxWilson/ShiningSword/"
-                    prop.children [Html.img [prop.ariaLabel "GitHub"; prop.src "img/GitHub_Logo.png"]]
-                    prop.target "_blank"
-                    ]
-                ]
             let lookup = [
                 "priestSpells", "Priest Spells by Sphere", (fun () -> UI.PriestSpellsView.View())
                 ]

src/UI/CommonUI.fs

@@ -16,6 +16,12 @@ let divWrap (className: string) element =
 let normalizeCRLF (str: string) = str.Replace("\r\n", "\n").Replace("\r", "\n")
 exception UserFacingException of msg:string
 let informUserOfError msg = UserFacingException msg |> raise
+let srcLink =
+    classP' "srcLink" Html.a [
+        prop.href "https://github.com/MaxWilson/ShiningSword/"
+        prop.children [Html.img [prop.ariaLabel "GitHub"; prop.src "img/GitHub_Logo.png"]]
+        prop.target "_blank"
+        ]
 
 type React =
     static member inline useElmishSimple (init: _ -> 'model) (update: 'msg -> 'model -> 'model) =

src/UI/Components/PriestSpellsView.fs

@@ -36,7 +36,8 @@ let View() =
                             ]
                 ]
             ]
-        Html.div [
+        class' "scrollable" Html.div [
+            srcLink
             Html.h2 "Gods"
             Html.ul [
                 for deity in filteredDeities filter model do