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/part1/src/Page/Profile.elm
View File

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

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

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

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

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

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

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

19
intro/part5/src/Page/Profile.elm
View File

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

19
intro/part6/src/Page/Profile.elm
View File

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

19
intro/part7/src/Page/Profile.elm
View File

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

19
intro/part8/src/Page/Profile.elm
View File

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

19
intro/part9/src/Page/Profile.elm
View File

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