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

Update advanced/part6

Browse Source
This commit is contained in:
Richard Feldman
2018-08-14 03:38:42 -04:00
parent ad816cc3ff
commit 9884d245e2
1 changed files with 19 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -197,15 +197,26 @@ viewTabs isLoggedIn activeTab =
[] []
viewTab : Bool -> ( String, msg ) -> Html msg tabBar :
viewTab isActive ( tabName, msg ) = List ( String, msg )
li [ class "nav-item" ] -> ( String, msg )
[ a -> List ( String, msg )
[ classList [ ( "nav-link", True ), ( "active", isActive ) ] -> Html msg
, onClick msg tabBar before selected after =
, href "" ul [ class "nav nav-pills outline-active" ] <|
List.concat
[ List.map (viewTab []) before
, [ viewTab [ class "active" ] selected ]
, List.map (viewTab []) after
] ]
[ text tabName ]
viewTab : List (Attribute msg) -> ( String, msg ) -> Html msg
viewTab attrs ( name, msg ) =
li [ class "nav-item" ]
[ -- Note: The RealWorld CSS requires an href to work properly.
a (class "nav-link" :: onClick msg :: href "" :: attrs)
[ text name ]
] ]