36 lines
1.1 KiB
Elm
36 lines
1.1 KiB
Elm
module Init exposing (init)
|
|
|
|
import Command
|
|
import Navigation
|
|
import Types exposing (..)
|
|
import Update.Draft
|
|
import Update.Timeline
|
|
import Util
|
|
|
|
|
|
init : Flags -> Navigation.Location -> ( Model, Cmd Msg )
|
|
init { registration, client } location =
|
|
{ server = ""
|
|
, currentTime = 0
|
|
, registration = registration
|
|
, client = client
|
|
, homeTimeline = Update.Timeline.empty "home-timeline"
|
|
, localTimeline = Update.Timeline.empty "local-timeline"
|
|
, globalTimeline = Update.Timeline.empty "global-timeline"
|
|
, accountTimeline = Update.Timeline.empty "account-timeline"
|
|
, accountFollowers = []
|
|
, accountFollowing = []
|
|
, accountRelationships = []
|
|
, accountRelationship = Nothing
|
|
, notifications = Update.Timeline.empty "notifications"
|
|
, draft = Update.Draft.empty
|
|
, errors = []
|
|
, location = location
|
|
, useGlobalTimeline = False
|
|
, viewer = Nothing
|
|
, currentView = LocalTimelineView
|
|
, currentUser = Nothing
|
|
, notificationFilter = NotificationAll
|
|
}
|
|
! [ Command.initCommands registration client (Util.extractAuthCode location) ]
|