1 files changed, 46 insertions, 22 deletions

diff --git a/src/Main.elm b/src/Main.elm
index 20443fd..ab10e82 100644
--- a/src/Main.elm
+++ b/src/Main.elm
@@ -1,3 +1,21 @@
+{-
+   - This file is part of `typers`.
+   -
+   - `typers` is free software: you can redistribute it and/or modify
+   - it under the terms of the GNU Affero Public License as published by
+   - the Free Software Foundation, either version 3 of the License, or
+   - (at your option) any later version.
+   -
+   - `typers` is distributed in the hope that it will be useful,
+   - but WITHOUT ANY WARRANTY; without even the implied warranty of
+   - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   - GNU Affero Public License for more details.
+   -
+   - You should have received a copy of the GNU Affero Public License
+   - along with `typers`.  If not, see <https://www.gnu.org/licenses/>.
+-}
+
+
 module Main exposing (..)
 
 import Array exposing (..)
@@ -206,33 +224,39 @@ currentContents model =
 view : Model -> Html Msg
 view model =
     div
-        [ style "width" "95%"
-        , style "max-width" "650px"
-        , style "margin" "auto"
-        , style "padding-top" "15%"
-        ]
+        []
         [ div
-            [ style "width" "100%"
+            [ style "width" "95%"
+            , style "max-width" "650px"
+            , style "margin" "15% auto auto auto"
             ]
-            [ viewWordLengthOptions
-            , div
-                [ style "float" "right" ]
-                [ styledButton [ onClick Redo ] [ text "redo" ] ]
-            ]
-        , div []
-            [ toPara model.words model.currentWord (currentContents model)
+            [ div
+                [ style "width" "100%"
+                ]
+                [ viewWordLengthOptions
+                , div
+                    [ style "float" "right" ]
+                    [ styledButton [ onClick Redo ] [ text "redo" ] ]
+                ]
             , div []
-                [ text "> "
-                , styledInput model.inputCorrect [ onInput handleInputChanged, value model.inputBox ] []
+                [ toPara model.words model.currentWord (currentContents model)
+                , div []
+                    [ text "> "
+                    , styledInput model.inputCorrect [ onInput handleInputChanged, value model.inputBox ] []
+                    ]
                 ]
+            , div [] [ viewStats model ]
+            , global [ selector "li:not(:last-child)::after" [ Css.property "content" "' · '" ] ]
+            , global [ selector "*,*:focus,*:hover" [ Css.property "outline" "none" ] ]
+            , global [ everything [ Css.fontFamily Css.monospace, Css.fontSize (Css.px 18) ] ]
             ]
-        , div [] [ viewStats model ]
-
-        -- , global [ selector "li:not(:last-child)::after" [ Css.property "content" "' · '" ] ]
-        , global [ selector "*,*:focus,*:hover" [ Css.property "outline" "none" ] ]
-        , global [ everything [ Css.fontFamily Css.monospace, Css.fontSize (Css.px 18) ] ]
-
-        -- , global [ body [ Css.backgroundColor (Css.hex "#000"), Css.color (Css.hex "#fff") ] ]
+        , div
+            [ style "position" "absolute"
+            , style "bottom" "0"
+            , style "left" "50%"
+            , style "transform" "translate(-50%)"
+            ]
+            [ viewFooter ]
         ]