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

Solution for advanced/part6

Browse Source
This commit is contained in:
Richard Feldman
2018-08-14 03:35:09 -04:00
parent 46870e98bf
commit f744cad4f9
1 changed files with 16 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

51
advanced/part6/src/Page/Home.elm
View File

@@ -155,46 +155,27 @@ viewBanner =
-- TABS -- TABS
{-| TODO: Have viewTabs render all the tabs, using `activeTab` as the
single source of truth for their state.
The specification for how the tabs work is:
1. If the user is logged in, render `yourFeed` as the first tab. Examples:
"Your Feed" "Global Feed"
"Your Feed" "Global Feed" "#dragons"
2. If the user is NOT logged in, do not render `yourFeed` at all. Examples:
"Global Feed"
"Global Feed" "#dragons"
3. If the active tab is a `TagFeed`, render that tab last. Show the tag it contains with a "#" in front.
"Global Feed" "#dragons"
"Your Feed" "Global Feed" "#dragons"
3. If the active tab is NOT a `TagFeed`, do not render a tag tab at all.
"Your Feed" "Global Feed"
"Global Feed"
💡 HINT: The 4 declarations after `viewTabs` may be helpful!
-}
viewTabs : Bool -> FeedTab -> Html Msg viewTabs : Bool -> FeedTab -> Html Msg
viewTabs isLoggedIn activeTab = viewTabs isLoggedIn activeTab =
ul [ class "nav nav-pills outline-active" ] <| ul [ class "nav nav-pills outline-active" ] <|
case activeTab of List.singleton <|
YourFeed -> case activeTab of
[] YourFeed ->
tabBar [] yourFeed [ globalFeed ]
GlobalFeed -> GlobalFeed ->
[] if isLoggedIn then
tabBar [ yourFeed ] globalFeed []
TagFeed tagName -> else
[] tabBar [] globalFeed []
TagFeed tagName ->
if isLoggedIn then
tabBar [ yourFeed, globalFeed ] (tagFeed tagName) []
else
tabBar [ globalFeed ] (tagFeed tagName) []
tabBar : tabBar :