209 lines
4.2 KiB
Elm
209 lines
4.2 KiB
Elm
import Browser exposing ( element)
|
|
import Html exposing (Html, Attribute, div, h1, input, p, text)
|
|
import Html.Attributes exposing (checked, style, type_)
|
|
import Html.Events exposing (onClick)
|
|
import Html.Lazy exposing (lazy)
|
|
import Table exposing (defaultCustomizations)
|
|
|
|
main =
|
|
Browser.element
|
|
{ init = init missionSights
|
|
, update = update
|
|
, view = view
|
|
, subscriptions = \_ -> Sub.none
|
|
}
|
|
|
|
|
|
|
|
-- MODEL
|
|
|
|
|
|
type alias Model =
|
|
{ sights : List Sight
|
|
, tableState : Table.State
|
|
}
|
|
|
|
type alias TimeSpan =
|
|
{ hours: Float
|
|
, minutes: Float
|
|
}
|
|
|
|
type alias Flags = {}
|
|
|
|
|
|
init : List Sight -> Flags -> ( Model, Cmd Msg )
|
|
init sights _ =
|
|
let
|
|
model =
|
|
{ sights = sights
|
|
, tableState = Table.initialSort "Year"
|
|
}
|
|
in
|
|
( model, Cmd.none )
|
|
|
|
|
|
|
|
-- UPDATE
|
|
|
|
|
|
type Msg
|
|
= ToggleSelected String
|
|
| SetTableState Table.State
|
|
|
|
|
|
update : Msg -> Model -> ( Model, Cmd Msg )
|
|
update msg model =
|
|
case msg of
|
|
ToggleSelected name ->
|
|
( { model | sights = List.map (toggle name) model.sights }
|
|
, Cmd.none
|
|
)
|
|
|
|
SetTableState newState ->
|
|
( { model | tableState = newState }
|
|
, Cmd.none
|
|
)
|
|
|
|
|
|
toggle : String -> Sight -> Sight
|
|
toggle name sight =
|
|
if sight.name == name then
|
|
{ sight | selected = not sight.selected }
|
|
|
|
else
|
|
sight
|
|
|
|
|
|
|
|
-- VIEW
|
|
|
|
|
|
view : Model -> Html Msg
|
|
view { sights, tableState } =
|
|
div []
|
|
[ h1 [] [ text "Trip Planner" ]
|
|
, lazy viewSummary sights
|
|
, Table.view config tableState sights
|
|
]
|
|
|
|
|
|
viewSummary : List Sight -> Html msg
|
|
viewSummary allSights =
|
|
case List.filter .selected allSights of
|
|
[] ->
|
|
p [] [ text "Click the sights you want to see on your trip!" ]
|
|
|
|
sights ->
|
|
let
|
|
time =
|
|
sumTimeSpan (List.map .time sights)
|
|
|
|
price =
|
|
List.sum (List.map .price sights)
|
|
|
|
summary =
|
|
"That is " ++ timeToString time ++ " of fun, costing $" ++ String.fromFloat price
|
|
in
|
|
p [] [ text summary ]
|
|
|
|
sumTimeSpan : List TimeSpan -> TimeSpan
|
|
sumTimeSpan spans =
|
|
{ hours = List.sum (List.map (.hours) spans)
|
|
, minutes = List.sum (List.map (.minutes) spans)
|
|
}
|
|
|
|
timeToString : TimeSpan -> String
|
|
timeToString time =
|
|
let
|
|
hours =
|
|
case floor (time.hours) of
|
|
0 -> ""
|
|
1 -> "1 hour"
|
|
n -> String.fromInt n ++ " hours"
|
|
|
|
minutes =
|
|
case modBy 60 (round (time.minutes)) of
|
|
0 -> ""
|
|
1 -> "1 minute"
|
|
n -> String.fromInt n ++ " minutes"
|
|
in
|
|
hours ++ " " ++ minutes
|
|
|
|
|
|
|
|
-- TABLE CONFIGURATION
|
|
|
|
|
|
config : Table.Config Sight Msg
|
|
config =
|
|
Table.customConfig
|
|
{ toId = .name
|
|
, toMsg = SetTableState
|
|
, columns =
|
|
[ checkboxColumn
|
|
, Table.stringColumn "Name" .name
|
|
, timeColumn
|
|
, Table.floatColumn "Price" .price
|
|
, Table.floatColumn "Rating" .rating
|
|
]
|
|
, customizations =
|
|
{ defaultCustomizations | rowAttrs = toRowAttrs }
|
|
}
|
|
|
|
|
|
toRowAttrs : Sight -> List (Attribute Msg)
|
|
toRowAttrs sight =
|
|
[ onClick (ToggleSelected sight.name)
|
|
, style "backgroundColor" (if sight.selected then "#CEFAF8" else "white")
|
|
]
|
|
|
|
|
|
timeColumn : Table.Column Sight Msg
|
|
timeColumn =
|
|
Table.customColumn
|
|
{ name = "Time"
|
|
, viewData = timeToString << .time
|
|
, sorter = Table.unsortable
|
|
}
|
|
|
|
checkboxColumn : Table.Column Sight Msg
|
|
checkboxColumn =
|
|
Table.veryCustomColumn
|
|
{ name = ""
|
|
, viewData = viewCheckbox
|
|
, sorter = Table.unsortable
|
|
}
|
|
|
|
|
|
viewCheckbox : Sight -> Table.HtmlDetails Msg
|
|
viewCheckbox {selected} =
|
|
Table.HtmlDetails []
|
|
[ input [ type_ "checkbox", checked selected ] []
|
|
]
|
|
|
|
|
|
|
|
-- SIGHTS
|
|
|
|
|
|
type alias Sight =
|
|
{ name : String
|
|
, time : TimeSpan
|
|
, price : Float
|
|
, rating : Float
|
|
, selected : Bool
|
|
}
|
|
|
|
|
|
missionSights : List Sight
|
|
missionSights =
|
|
[ Sight "Eat a Burrito" ( TimeSpan 0 30 ) 7 4.6 False
|
|
, Sight "Buy drugs in Dolores park" ( TimeSpan 1 0 ) 20 4.8 False
|
|
, Sight "Armory Tour" ( TimeSpan 1 30 ) 27 4.5 False
|
|
, Sight "Tartine Bakery" ( TimeSpan 1 0 ) 10 4.1 False
|
|
, Sight "Have Brunch" ( TimeSpan 2 0 ) 25 4.2 False
|
|
, Sight "Get catcalled at BART" ( TimeSpan 0 5 ) 0 1.6 False
|
|
, Sight "Buy a painting at \"Stuff\"" ( TimeSpan 0 45 ) 400 4.7 False
|
|
, Sight "McDonalds at 24th" ( TimeSpan 0 20 ) 5 2.8 False
|
|
]
|