Use Maybe.withDefault some more. Do not show anything before finishing loading data.

schedule/src/Decoders.elm

@@ -60,13 +60,10 @@ eventDecoder =
 dateDecoder : Decoder Date
 dateDecoder =
     let
-        unpacked x =
+        unpacked isoString =
-            case Date.Extra.fromIsoString x of
+            isoString
-                Just value ->
+                |> Date.Extra.fromIsoString
-                    value
+                |> Maybe.withDefault (Date.Extra.fromParts 1970 Jan 1 0 0 0 0)
-
-                Nothing ->
-                    Date.Extra.fromParts 1970 Jan 1 0 0 0 0
     in
         Json.Decode.map unpacked string
 
@@ -108,7 +105,7 @@ eventTypeDecoder =
         |> required "light_text" bool
 
 
-initDataDecoder : Decoder (Flags -> Filter -> Location -> Route -> Model)
+initDataDecoder : Decoder (Flags -> Filter -> Location -> Route -> Bool -> Model)
 initDataDecoder =
     decode Model
         |> required "days" (list dayDecoder)

schedule/src/Main.elm

@@ -12,7 +12,6 @@ import Views exposing (view)
 
 -- External modules
 
-import Html.Lazy exposing (lazy)
 import WebSocket exposing (listen)
 import Navigation exposing (Location)
 
@@ -22,7 +21,7 @@ main =
     Navigation.programWithFlags
         OnLocationChange
         { init = init
-        , view = lazy view
+        , view = view
         , update = update
         , subscriptions = subscriptions
         }
@@ -32,13 +31,13 @@ init : Flags -> Location -> ( Model, Cmd Msg )
 init flags location =
     let
         currentRoute =
-            parseLocation (Debug.log "location" location)
+            parseLocation location
 
         emptyFilter =
             Filter [] [] []
 
         model =
-            Model [] [] [] [] [] flags emptyFilter location currentRoute
+            Model [] [] [] [] [] flags emptyFilter location currentRoute False
     in
         model ! [ sendInitMessage flags.camp_slug flags.websocket_server ]
 

schedule/src/Models.elm

@@ -28,6 +28,7 @@ type alias Model =
     , filter : Filter
     , location : Location
     , route : Route
+    , dataLoaded : Bool
     }
 
 

schedule/src/Routing.elm

@@ -41,9 +41,5 @@ matchers =
 
 parseLocation : Location -> Route
 parseLocation location =
-    case parseHash matchers location of
+    parseHash matchers location
-        Just route ->
+        |> Maybe.withDefault NotFoundRoute
-            route
-
-        Nothing ->
-            NotFoundRoute

schedule/src/Update.elm

@@ -34,7 +34,7 @@ update msg model =
                                 "init" ->
                                     case Json.Decode.decodeString initDataDecoder str of
                                         Ok m ->
-                                            m model.flags model.filter model.location model.route
+                                            m model.flags model.filter model.location model.route True
 
                                         Err error ->
                                             model

schedule/src/Views.elm

@@ -23,6 +23,8 @@ import Date.Extra
 
 view : Model -> Html Msg
 view model =
+    case model.dataLoaded of
+        True ->
             div []
                 [ dayPicker model
                 , hr [] []
@@ -36,12 +38,10 @@ view model =
                     DayRoute dayIso ->
                         let
                             day =
-                        case (List.head (List.filter (\x -> (Date.Extra.toFormattedString "y-MM-dd" x.date) == dayIso) model.days)) of
+                                model.days
-                            Just day ->
+                                    |> List.filter (\x -> (Date.Extra.toFormattedString "y-MM-dd" x.date) == dayIso)
-                                day
+                                    |> List.head
-
+                                    |> Maybe.withDefault (Day "" (Date.Extra.fromParts 1970 Jan 1 0 0 0 0) "")
-                            Nothing ->
-                                Day "" (Date.Extra.fromParts 1970 Jan 1 0 0 0 0) ""
                         in
                             dayView day model
 
@@ -51,3 +51,6 @@ view model =
                     NotFoundRoute ->
                         div [] [ text "Not found!" ]
                 ]
+
+        False ->
+            h4 [] [ text "Loading schedule..." ]

schedule/src/Views/DayView.elm

@@ -146,24 +146,19 @@ renderGroup offset group =
             List.map findLefts sortedGroup
 
         numberInGroup =
-            case List.maximum (List.map (\( _, left ) -> left) lefts) of
+            lefts
-                Just num ->
+                |> List.map (\( _, left ) -> left)
-                    num
+                |> List.maximum
-
+                |> Maybe.withDefault 1
-                Nothing ->
-                    1
 
         fixedLefts =
             if numberInGroup == 0 then
                 List.map
                     (\( instance, x ) ->
                         ( instance
-                        , case List.Extra.elemIndex ( instance, x ) lefts of
+                        , lefts
-                            Just index ->
+                            |> List.Extra.elemIndex ( instance, x )
-                                index
+                            |> Maybe.withDefault 0
-
-                            Nothing ->
-                                0
                         )
                     )
                     lefts
@@ -171,12 +166,10 @@ renderGroup offset group =
                 lefts
 
         fixedNumberInGroup =
-            case List.maximum (List.map (\( _, left ) -> left) fixedLefts) of
+            fixedLefts
-                Just num ->
+                |> List.map (\( _, left ) -> left)
-                    num
+                |> List.maximum
-
+                |> Maybe.withDefault 1
-                Nothing ->
-                    1
     in
         div
             [ style

schedule/src/Views/EventDetail.elm

@@ -19,13 +19,12 @@ eventDetailView : EventSlug -> Model -> Html Msg
 eventDetailView eventSlug model =
     let
         event =
-            case List.head (List.filter (\e -> e.slug == eventSlug) model.events) of
+            model.events
-                Just event ->
+                |> List.filter (\e -> e.slug == eventSlug)
-                    event
+                |> List.head
-
-                Nothing ->
-                    { title = "", slug = "", abstract = "", speakers = [], videoRecording = False, videoUrl = "" }
     in
+        case event of
+            Just event ->
                 div [ class "row" ]
                     [ div [ class "col-sm-9" ]
                         [ a [ onClick BackInHistory, classList [ ( "btn", True ), ( "btn-default", True ) ] ]
@@ -49,6 +48,18 @@ eventDetailView eventSlug model =
                         ]
                     ]
 
+            Nothing ->
+                div [ class "row" ]
+                    [ text
+                        (case model.dataLoaded of
+                            True ->
+                                "Event not found."
+
+                            False ->
+                                "Loading..."
+                        )
+                    ]
+
 
 videoRecordingSidebar : Event -> Html Msg
 videoRecordingSidebar event =