4d8757ad7c
- Favorite timeline model and commands. - 4th column navigation bar. - Use of SetView for account selector. - Move timeline views to their own view module. - Handle favorite timeline updates. - Integrate contextual menu in account selector view.
37 lines
1.2 KiB
Elm
37 lines
1.2 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, clients } location =
|
|
{ server = ""
|
|
, currentTime = 0
|
|
, registration = registration
|
|
, clients = clients
|
|
, homeTimeline = Update.Timeline.empty "home-timeline"
|
|
, localTimeline = Update.Timeline.empty "local-timeline"
|
|
, globalTimeline = Update.Timeline.empty "global-timeline"
|
|
, favoriteTimeline = Update.Timeline.empty "favorite-timeline"
|
|
, accountTimeline = Update.Timeline.empty "account-timeline"
|
|
, accountFollowers = Update.Timeline.empty "account-followers"
|
|
, accountFollowing = Update.Timeline.empty "account-following"
|
|
, accountRelationships = []
|
|
, accountRelationship = Nothing
|
|
, notifications = Update.Timeline.empty "notifications"
|
|
, draft = Update.Draft.empty
|
|
, errors = []
|
|
, location = location
|
|
, viewer = Nothing
|
|
, currentView = LocalTimelineView
|
|
, currentUser = Nothing
|
|
, notificationFilter = NotificationAll
|
|
, confirm = Nothing
|
|
}
|
|
! [ Command.initCommands registration (List.head clients) (Util.extractAuthCode location) ]
|