From 85b0ec9e560681f8cb347aa27e505d0aa47f63e3 Mon Sep 17 00:00:00 2001
From: Anthony Cicchetti <me@anthonycicchetti.com>
Date: Sun, 29 Sep 2019 16:07:12 -0400
Subject: [PATCH] Prettified with Bootstrap

---
 justfile            |  7 ++++--
 src/Leaderboard.elm | 56 ++++++++++++++++++++++++++-------------------
 2 files changed, 37 insertions(+), 26 deletions(-)

diff --git a/justfile b/justfile
index 42ceaec..0e6e6fc 100644
--- a/justfile
+++ b/justfile
@@ -11,9 +11,12 @@ install:
 debug:
     elm-live src/Leaderboard.elm --open -- --debug --output=leaderboard.js
 
-build_release:
+build_release: format
 	elm make src/Leaderboard.elm --optimize --output=leaderboard.opt.js
 	uglifyjs leaderboard.opt.js --compress "pure_funcs=[F2,F3,F4,F5,F6,F7,F8,F9,A2,A3,A4,A5,A6,A7,A8,A9],pure_getters,keep_fargs=false,unsafe_comps,unsafe" | uglifyjs --mangle --output=leaderboard.js
 
 deploy: build_release
-	rsync index.html leaderboard.js anthonycicchetti.com:/var/www/crossword.anthonycicchetti.com/public
\ No newline at end of file
+	rsync index.html leaderboard.js anthonycicchetti.com:/var/www/crossword.anthonycicchetti.com/public
+
+format:
+	elm-format --yes src
\ No newline at end of file
diff --git a/src/Leaderboard.elm b/src/Leaderboard.elm
index 6ae57be..3bfbb60 100644
--- a/src/Leaderboard.elm
+++ b/src/Leaderboard.elm
@@ -1,5 +1,11 @@
 module Leaderboard exposing (main)
 
+import Bootstrap.Form.Input as Input
+import Bootstrap.Form.InputGroup as InputGroup
+import Bootstrap.Grid as Grid
+import Bootstrap.Grid.Col as Col
+import Bootstrap.Grid.Row as Row
+import Bootstrap.ListGroup as ListGroup
 import Browser
 import Date
 import Debug exposing (toString)
@@ -84,7 +90,6 @@ update msg model =
             ( { model | entries = List.sortBy .score newEntries }, Cmd.none )
 
         NewEntries (Err err) ->
-            -- ( { model | alertMessage = Just (toString err) }, Cmd.none)
             ( model, Cmd.none )
 
 
@@ -109,38 +114,41 @@ getScores newDate =
 --- VIEW
 
 
-viewDate : String -> Html Msg
-viewDate date =
-    h2 []
-        [ text date ]
+viewEntry : Entry -> ListGroup.Item Msg
+viewEntry entry =
+    ListGroup.li []
+        [ div [] [ text entry.name ]
+        , div [] [ text entry.score ]
+        ]
 
 
 viewEntryList : List Entry -> Html Msg
 viewEntryList entries =
-    ul []
-        (List.map
-            (\entry ->
-                li []
-                    [ div [] [ text entry.name ]
-                    , div [] [ text entry.score ]
-                    ]
+    div [ class "container-fluid" ]
+        [ ListGroup.ul
+            (List.map viewEntry entries)
+        ]
+
+
+viewDatePicker : Model -> Grid.Column Msg
+viewDatePicker model =
+    Grid.col []
+        [ InputGroup.config
+            (InputGroup.date
+                [ Input.placeholder model.date
+                , Input.onInput NewDate
+                , Input.value model.date
+                ]
             )
-            entries
-        )
+            |> InputGroup.predecessors [ InputGroup.span [] [ text "Date: " ] ]
+            |> InputGroup.view
+        ]
 
 
 view : Model -> Html Msg
 view model =
-    div []
-        [ div [] 
-              [ input 
-                [ type_ "date"
-                , placeholder model.date
-                , onInput NewDate
-                , value model.date
-              ]
-              []
-            ]
+    Grid.containerFluid []
+        [ Grid.row [] [ viewDatePicker model ]
         , viewEntryList model.entries
         , text (Maybe.withDefault "" model.alertMessage)
         ]