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

Make yourFeed the default

Browse Source
This commit is contained in:
Richard Feldman
2018-05-05 08:38:14 -04:00
parent ca4ffa26c3
commit edbbcacb7c
7 changed files with 29 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
part8/src/Page/Home.elm
View File

@@ -33,7 +33,7 @@ init session =
if session.user == Nothing then
SelectList.singleton globalFeed
else
SelectList.fromLists [] yourFeed [ globalFeed ]
SelectList.fromLists [] globalFeed [ yourFeed ]
loadTags =
Request.Article.tags

49
part8/src/Page/Profile.elm
View File

@@ -134,34 +134,31 @@ update session msg model =
Just user ->
let
-- TODO
-- 1) head over to the Request.Profile module and look up
-- what arguments the `toggleFollow` function takes.
--
-- 2) call Request.Profile.toggleFollow here,
-- to get back a Request.
--
-- 3) pass that Request to Http.send to get a Cmd.
-- Use that Cmd here.
--
-- Here's the documentation for Http.send:
-- http://package.elm-lang.org/packages/elm-lang/http/1.0.0/Http#send
--
-- Here are some hepful values that are in scope:
--
-- user.token : Maybe AuthToken
--
-- profile : Profile [look in the Data.Profile module!]
--
-- FollowCompleted : Result Http.Error Profile -> Msg
--
{-
TODO
1) head over to the src/Request/Profile.elm and look up
what arguments the `toggleFollow` function takes.
2) call `Request.Profile.toggleFollow` here,
to get back a `Http.Request`.
3) pass that `Http.Request` to `Http.send` to get a `Cmd`.
Use that `Cmd` here.
Here's the documentation for Http.send:
http://package.elm-lang.org/packages/elm-lang/http/1.0.0/Http#send
Here are some hepful values that are in scope:
user.token : Maybe AuthToken
profile : Profile [look in the src/Data/Profile.elm module!]
FollowCompleted : Result Http.Error Profile -> Msg
-}
cmd : Cmd Msg
cmd =
Request.Profile.toggleFollow
profile.username
profile.following
user.token
|> Http.send FollowCompleted
Cmd.none
in
( model, cmd )