add license notice, links to source and license in footer

6 files changed, 168 insertions, 27 deletions

diff --git a/src/Base.elm b/src/Base.elm
index 1d19723..e619939 100644
--- a/src/Base.elm
+++ b/src/Base.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 Base exposing (..)
 
 import Array exposing (Array)
diff --git a/src/Data.elm b/src/Data.elm
index 244f149..4708ca1 100644
--- a/src/Data.elm
+++ b/src/Data.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 Data exposing (defaultConfig, randomParagraph)
 
 import Base exposing (Config)
@@ -12,7 +30,7 @@ defaultConfig =
 
 textData : List String
 textData =
-    "the of to and a in is it you that he was for on are with as I his they be at one have this from or had by not word but what some we can out other were all there when up use your how said an each she which do their time if will way about many then them write would like so these her long make thing see him two has look more day could go come did number sound no most people my over know water than call first who may down side been now find any new work part take get place made live where after back little only round man year came show every good me give our under name very through just form sentence great think say help low line differ turn cause much mean before move right boy old too same tell does set three want air well also play small end put home read hand port large spell add even land here must big high such follow act why ask men change went light kind off need house picture try us again animal point mother world near build self earth father head stand own page should country found answer school grow study still learn plant cover food sun four between state keep eye never last let thought city tree cross farm hard start might story saw far sea draw left late run don't while press close night real life few north open seem together next white children begin got walk example ease paper group always music those both mark often letter until mile river car feet care second book carry took science eat room friend began idea fish mountain stop once base hear horse cut sure watch color face wood main enough plain girl usual young ready above ever red list though feel talk bird soon body dog family direct pose leave song measure door product black short numeral class wind question happen complete ship area half rock order fire south problem piece told knew pass since top whole king space heard best hour better true during hundred five remember step early hold west ground interest reach fast verb sing listen six table travel less morning ten simple several vowel toward war lay against pattern slow center love person money serve appear road map rain rule govern pull cold notice voice unit power town fine certain fly fall lead cry dark machine note wait plan figure star box noun field rest correct able pound done beauty drive stood contain front teach week final gave green oh quick develop ocean warm free minute strong special mind behind clear tail produce fact street inch multiply nothing course stay wheel full force blue object decide surface deep moon island foot system busy test record boat common gold possible plane stead dry wonder laugh thousand ago ran check game shape equate hot miss brought heat snow tire bring yes distant fill east paint language among grand ball yet wave drop heart am present heavy dance engine position arm wide sail material size vary settle speak weight general ice matter circle pair include divide syllable felt perhaps pick sudden count square reason length represent art subject region energy hunt probable bed brother egg ride cell believe fraction forest sit race window store summer train sleep prove lone leg exercise wall catch mount wish sky board joy winter sat written wild instrument kept glass grass cow job edge sign visit past soft fun bright gas weather month million bear finish happy hope flower clothe strange gone jump baby eight village meet root buy raise solve metal whether push seven paragraph third shall held hair describe cook floor either result burn hill safe cat century consider type law bit coast copy phrase silent tall sand soil roll temperature finger industry value fight lie beat excite natural view sense ear else quite broke case middle kill son lake moment scale loud spring observe child straight consonant nation dictionary milk speed method organ pay age section dress cloud surprise quiet stone tiny climb cool design poor lot experiment bottom key iron single stick flat twenty skin smile crease hole trade melody trip office receive row mouth exact symbol die least trouble shout except wrote seed tone join suggest clean break lady yard rise bad blow oil blood touch grew cent mix team wire cost lost brown wear garden equal sent choose fell fit flow fair bank collect save control decimal gentle woman captain practice separate difficult doctor please protect noon whose locate ring character insect caught period indicate radio spoke atom human history effect electric expect crop modern element hit student corner party supply bone rail imagine provide agree thus capital won't chair danger fruit rich thick soldier process operate guess necessary sharp wing create neighbor wash bat rather crowd corn compare poem string bell depend meat rub tube famous dollar stream fear sight thin triangle planet hurry chief colony clock mine tie enter major fresh search send yellow gun allow print dead spot desert suit current lift rose continue block chart hat sell success company subtract event particular deal swim term opposite wife shoe shoulder spread arrange camp invent cotton born determine quart nine truck noise level chance gather shop stretch throw shine property column molecule select wrong gray repeat require broad prepare salt nose plural anger claim continent oxygen sugar death pretty skill women season solution magnet silver thank branch match suffix especially fig afraid huge sister steel discuss forward similar guide experience score apple bought led pitch coat mass card band rope slip win dream evening condition feed tool total basic smell valley nor double seat arrive master track parent shore division sheet substance favor connect post spend chord fat glad original share station dad bread charge proper bar offer segment slave duck instant market degree populate chick dear enemy reply drink occur support speech nature range steam motion path liquid log meant quotient teeth shell neck"
+    "the of to and a in is it you that he was for on are with as I his they be at one have this from or had by not word but what some we can out other were all there when up use your how said an each she which do their time if will way about many then them write would like so these her long make thing see him two has look more day could go come did number sound no most people my over know water than call first who may down side been now find any new work part take get place made live where after back little only round man year came show every good me give our under name very through just form sentence great think say help low line differ turn cause much mean before move right boy old too same tell does set three want air well also play small end put home read hand port large spell add even land here must big high such follow act why ask men change went light kind off need house picture try us again animal point mother world near build self earth father head stand own page should country found answer school grow study still learn plant cover food sun four between state keep eye never last let thought city tree cross farm hard start might story saw far sea draw left late run don't while press close night real life few north open seem together next white children begin got walk example ease paper group always music those both mark often letter until mile river car feet care second book carry took science eat room friend began idea fish mountain stop once base hear horse cut sure watch color face wood main enough plain girl usual young ready above ever red list though feel talk bird soon body dog family direct pose leave song measure door product black short numeral class wind question happen complete ship area half rock order fire south problem piece told knew pass since top whole king space heard best hour better true during hundred five remember step early hold west ground interest reach fast verb sing listen six table travel less morning ten simple several vowel toward war lay against pattern slow center love person money serve appear road map rain rule govern pull cold notice voice unit power town fine certain fly fall lead cry dark machine note wait plan figure star box noun field rest correct able pound done beauty drive stood contain front teach week final gave green oh quick develop ocean warm free minute strong special mind behind clear tail produce fact street inch multiply nothing course stay wheel full force blue object decide surface deep moon island foot system busy test record boat common gold possible plane stead dry wonder laugh thousand ago ran check game shape equate hot miss brought heat snow tire bring yes distant fill east paint language among"
         |> String.split " "
 
 
@@ -30,7 +48,7 @@ randomWord : Config -> Random.Generator ( Int, Bool, Bool )
 randomWord config =
     let
         idx =
-            Random.int 0 999
+            Random.int 0 499
 
         punct =
             if config.punctuation then
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 ]
         ]
 
 
diff --git a/src/Styles.elm b/src/Styles.elm
index db5b0ce..7b2eea7 100644
--- a/src/Styles.elm
+++ b/src/Styles.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 Styles exposing (..)
 
 import Base exposing (WordStatus(..))
@@ -16,7 +34,7 @@ styledButton =
         , paddingTop (px 12)
         , paddingBottom (px 12)
         , paddingLeft (px 0)
-        , paddingRight (px 12)
+        , paddingRight (px 0)
         , fontFamily monospace
         , border (px 0)
         , backgroundColor (hex "#fff")
@@ -68,6 +86,15 @@ styledUnorderedList =
         ]
 
 
+styledExternalLink : List (Attribute msg) -> List (Html msg) -> Html msg
+styledExternalLink =
+    styled
+        a
+        [ textDecoration underline
+        , color (hex "#666")
+        ]
+
+
 styledTextBox : List (Attribute msg) -> List (Html msg) -> Html msg
 styledTextBox =
     styled
diff --git a/src/Utils.elm b/src/Utils.elm
index 83e025b..6228696 100644
--- a/src/Utils.elm
+++ b/src/Utils.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 Utils exposing (..)
 
 import Array as A exposing (..)
diff --git a/src/Views.elm b/src/Views.elm
index b54fc93..3a8afed 100644
--- a/src/Views.elm
+++ b/src/Views.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 Views exposing (..)
 
 import Array exposing (..)
@@ -5,9 +23,9 @@ import Base exposing (..)
 import Css exposing (..)
 import Html
 import Html.Styled exposing (..)
-import Html.Styled.Attributes exposing (css)
+import Html.Styled.Attributes exposing (css, href)
 import Html.Styled.Events exposing (onClick)
-import Styles exposing (styledButton, styledListItem, styledUnorderedList)
+import Styles exposing (..)
 import Time exposing (Posix, toHour, toMinute, toSecond, utc)
 import Utils exposing (diffDuration, isNothing, wordCountWith)
 
@@ -122,3 +140,21 @@ viewStats model =
     in
     p []
         [ text (Maybe.withDefault "" stats) ]
+
+
+viewFooter : Html Msg
+viewFooter =
+    let
+        footerItems =
+            [ ( "src", "https://git.peppe.rs/web/typers/about" )
+            , ( "license", "https://git.peppe.rs/web/typers/tree/COPYING" )
+            ]
+    in
+    styledUnorderedList []
+        (List.map
+            (\( inner, hr ) ->
+                styledListItem []
+                    [ styledExternalLink [ href hr ] [ text inner ] ]
+            )
+            footerItems
+        )