Adding routing so event instances are accessable directly.

This commit is contained in:
Vidir Valberg Gudmundsson 2017-07-16 18:22:19 +02:00
parent 543347aaff
commit b0086d6a81
2 changed files with 108 additions and 39 deletions

View file

@ -1,18 +1,21 @@
module Main exposing (..) module Main exposing (..)
import Html exposing (Html, Attribute, div, input, text, li, ul, a, h4, label, i, span, hr, small, p) import Html exposing (Html, Attribute, div, input, text, li, ul, a, h4, label, i, span, hr, small, p)
import Html.Attributes exposing (class, classList, id, type_, for, style) import Html.Attributes exposing (class, classList, id, type_, for, style, href)
import Html.Events exposing (onClick) import Html.Events exposing (onClick)
import WebSocket exposing (listen) import WebSocket exposing (listen)
import Json.Decode exposing (int, string, float, list, bool, Decoder) import Json.Decode exposing (int, string, float, list, bool, Decoder)
import Json.Encode import Json.Encode
import Json.Decode.Pipeline exposing (decode, required, optional, hardcoded) import Json.Decode.Pipeline exposing (decode, required, optional, hardcoded)
import Markdown import Markdown
import Navigation exposing (Location)
import UrlParser exposing ((</>))
main : Program Flags Model Msg main : Program Flags Model Msg
main = main =
Html.programWithFlags Navigation.programWithFlags
OnLocationChange
{ init = init { init = init
, view = view , view = view
, update = update , update = update
@ -26,6 +29,34 @@ scheduleServer =
-- ROUTING
type Route
= OverviewRoute
| EventInstanceRoute EventInstanceId
| NotFoundRoute
matchers : UrlParser.Parser (Route -> a) a
matchers =
UrlParser.oneOf
[ UrlParser.map OverviewRoute UrlParser.top
, UrlParser.map EventInstanceRoute (UrlParser.s "event" </> UrlParser.int)
]
parseLocation : Location -> Route
parseLocation location =
case UrlParser.parseHash matchers location of
Just route ->
route
Nothing ->
NotFoundRoute
-- MODEL -- MODEL
@ -37,7 +68,7 @@ type alias Model =
, flags : Flags , flags : Flags
, activeDay : Day , activeDay : Day
, filter : Filter , filter : Filter
, activeEventInstance : Maybe EventInstance , route : Route
} }
@ -60,9 +91,13 @@ type alias Speaker =
} }
type alias EventInstanceId =
Int
type alias EventInstance = type alias EventInstance =
{ title : String { title : String
, id : Int , id : EventInstanceId
, url : String , url : String
, abstract : String , abstract : String
, eventSlug : String , eventSlug : String
@ -80,6 +115,26 @@ type alias EventInstance =
} }
emptyEventInstance =
{ title = "This should not happen!"
, id = 0
, url = ""
, abstract = ""
, eventSlug = ""
, eventType = ""
, backgroundColor = ""
, forgroundColor = ""
, from = ""
, to = ""
, timeslots = 0.0
, location = ""
, locationIcon = ""
, speakers = []
, videoRecording = False
, videoUrl = ""
}
type alias EventLocation = type alias EventLocation =
{ name : String { name : String
, slug : String , slug : String
@ -108,9 +163,9 @@ allDaysDay =
Day "All Days" "" "" Day "All Days" "" ""
init : Flags -> ( Model, Cmd Msg ) init : Flags -> Location -> ( Model, Cmd Msg )
init flags = init flags location =
( Model [] [] [] [] flags allDaysDay (Filter [] []) Nothing, sendInitMessage flags.camp_slug ) ( Model [] [] [] [] flags allDaysDay (Filter [] []) (parseLocation location), sendInitMessage flags.camp_slug )
sendInitMessage : String -> Cmd Msg sendInitMessage : String -> Cmd Msg
@ -135,8 +190,7 @@ type Msg
| MakeActiveday Day | MakeActiveday Day
| ToggleEventTypeFilter EventType | ToggleEventTypeFilter EventType
| ToggleEventLocationFilter EventLocation | ToggleEventLocationFilter EventLocation
| OpenEventInstanceDetail EventInstance | OnLocationChange Location
| CloseEventInstanceDetail
update : Msg -> Model -> ( Model, Cmd Msg ) update : Msg -> Model -> ( Model, Cmd Msg )
@ -150,7 +204,7 @@ update msg model =
newModel = newModel =
case Json.Decode.decodeString initDataDecoder str of case Json.Decode.decodeString initDataDecoder str of
Ok m -> Ok m ->
m model.flags allDaysDay (Filter [] []) Nothing m model.flags allDaysDay (Filter [] []) model.route
Err error -> Err error ->
model model
@ -192,11 +246,12 @@ update msg model =
in in
{ model | filter = newFilter } ! [] { model | filter = newFilter } ! []
OpenEventInstanceDetail eventInstance -> OnLocationChange location ->
{ model | activeEventInstance = Just eventInstance } ! [] let
newRoute =
CloseEventInstanceDetail -> parseLocation location
{ model | activeEventInstance = Nothing } ! [] in
{ model | route = newRoute } ! []
@ -265,7 +320,7 @@ eventTypeDecoder =
|> required "light_text" bool |> required "light_text" bool
initDataDecoder : Decoder (Flags -> Day -> Filter -> Maybe EventInstance -> Model) initDataDecoder : Decoder (Flags -> Day -> Filter -> Route -> Model)
initDataDecoder = initDataDecoder =
decode Model decode Model
|> required "days" (list dayDecoder) |> required "days" (list dayDecoder)
@ -300,20 +355,32 @@ view model =
(List.map (\day -> dayButton day model.activeDay) (allDaysDay :: model.days)) (List.map (\day -> dayButton day model.activeDay) (allDaysDay :: model.days))
] ]
, hr [] [] , hr [] []
, case model.activeEventInstance of , case model.route of
Just eventInstance -> OverviewRoute ->
eventInstanceDetailView eventInstance
Nothing ->
scheduleOverviewView model scheduleOverviewView model
EventInstanceRoute eventInstanceId ->
eventInstanceDetailView eventInstanceId model.eventInstances
NotFoundRoute ->
div [] [ text "Not found!" ]
] ]
eventInstanceDetailView : EventInstance -> Html Msg eventInstanceDetailView : EventInstanceId -> List EventInstance -> Html Msg
eventInstanceDetailView eventInstance = eventInstanceDetailView eventInstanceId eventInstances =
let
eventInstance =
case List.head (List.filter (\e -> e.id == eventInstanceId) eventInstances) of
Just eventInstance ->
eventInstance
Nothing ->
emptyEventInstance
in
div [ class "row" ] div [ class "row" ]
[ div [ class "col-sm-9" ] [ div [ class "col-sm-9" ]
[ div [ onClick CloseEventInstanceDetail ] [ a [ href "#" ]
[ text "Back" [ text "Back"
] ]
, h4 [] [ text eventInstance.title ] , h4 [] [ text eventInstance.title ]
@ -397,7 +464,7 @@ dayEventInstanceView : EventInstance -> Html Msg
dayEventInstanceView eventInstance = dayEventInstanceView eventInstance =
a a
[ class "event" [ class "event"
, onClick (OpenEventInstanceDetail eventInstance) , href ("#event/" ++ (toString eventInstance.id))
, style , style
[ ( "background-color", eventInstance.backgroundColor ) [ ( "background-color", eventInstance.backgroundColor )
, ( "color", eventInstance.forgroundColor ) , ( "color", eventInstance.forgroundColor )

View file

@ -11,8 +11,10 @@
"NoRedInk/elm-decode-pipeline": "3.0.0 <= v < 4.0.0", "NoRedInk/elm-decode-pipeline": "3.0.0 <= v < 4.0.0",
"elm-lang/core": "5.1.1 <= v < 6.0.0", "elm-lang/core": "5.1.1 <= v < 6.0.0",
"elm-lang/html": "2.0.0 <= v < 3.0.0", "elm-lang/html": "2.0.0 <= v < 3.0.0",
"elm-lang/navigation": "2.1.0 <= v < 3.0.0",
"elm-lang/websocket": "1.0.2 <= v < 2.0.0", "elm-lang/websocket": "1.0.2 <= v < 2.0.0",
"evancz/elm-markdown": "3.0.2 <= v < 4.0.0" "evancz/elm-markdown": "3.0.2 <= v < 4.0.0",
"evancz/url-parser": "2.0.1 <= v < 3.0.0"
}, },
"elm-version": "0.18.0 <= v < 0.19.0" "elm-version": "0.18.0 <= v < 0.19.0"
} }