cerchez07/elm-0.19-workshop
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update Page.Profile

Browse Source
This commit is contained in:
Richard Feldman
2018-08-13 22:19:31 -04:00
parent 0873b78865
commit f674328569
9 changed files with 135 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
advanced/part4/src/Page/Profile.elm
View File

@@ -211,10 +211,15 @@ view model =
Loaded feed ->
div [ class "container" ]
[ div [ class "row" ]
[ div [ class "col-xs-12 col-md-10 offset-md-1" ] <|
div [ class "articles-toggle" ]
[ viewTabs model.feedTab ]
:: (Feed.viewArticles model.timeZone feed |> List.map (Html.map GotFeedMsg))
[ div [ class "col-xs-12 col-md-10 offset-md-1" ]
[ div [ class "articles-toggle" ] <|
List.concat
[ [ viewTabs model.feedTab ]
, Feed.viewArticles model.timeZone feed
|> List.map (Html.map GotFeedMsg)
, [ Feed.viewPagination ClickedFeedPage feed ]
]
]
]
]
@@ -305,6 +310,7 @@ type Msg
| ClickedFollow Cred UnfollowedAuthor
| ClickedUnfollow Cred FollowedAuthor
| ClickedTab FeedTab
| ClickedFeedPage Int
| CompletedFollowChange (Result Http.Error Author)
| CompletedAuthorLoad (Result ( Username, Http.Error ) Author)
| CompletedFeedLoad (Result ( Username, Http.Error ) Feed.Model)
@@ -337,6 +343,11 @@ update msg model =
, fetchFeed model.session tab (currentUsername model) 1
)
ClickedFeedPage page ->
( { model | feedPage = page }
, fetchFeed model.session model.feedTab (currentUsername model) page
)
CompletedFollowChange (Ok newAuthor) ->
( { model | author = Loaded newAuthor }
, Cmd.none