Skip to content

Instantly share code, notes, and snippets.

View AdrianRibao's full-sized avatar

Adrián Ribao AdrianRibao

20 followers · 27 following
View GitHub Profile
@AdrianRibao
AdrianRibao / render_content.elm
Created June 8, 2018 10:24
renderTabContent : Tabs -> Html Msg
renderTabContent currentTab =
case currentTab of
Step1 ->
div [] [ text "Content for tab1" ]
Step2 ->
div [] [ text "Content for tab2" ]
Step3 ->
@AdrianRibao
AdrianRibao / tabs_msg.elm
Created June 8, 2018 10:44
type Msg
= ChangeTab Tabs
@AdrianRibao
AdrianRibao / update_tab.elm
Created June 8, 2018 10:45
update : Msg -> Model -> Model
update msg model =
case msg of
ChangeTab tab ->
{ model | currentTab = tab }
@AdrianRibao
AdrianRibao / render_headers_click.elm
Created June 8, 2018 10:47
enderHeaders : Tabs -> Html Msg
renderHeaders currentTab =
ul [ class "nav nav-tabs" ]
[ li [ class "nav-item" ]
[ a
[ class "nav-link"
, onClick (ChangeTab Step1)
]
[ text "Step 1" ]
]
@AdrianRibao
AdrianRibao / final_view_function.elm
Created June 8, 2018 10:59
renderHeaders : Tabs -> Html Msg
renderHeaders currentTab =
ul [ class "nav nav-tabs" ]
[ li [ class "nav-item" ]
[ a
[ class "nav-link"
, onClick (ChangeTab Step1)
, classList [ ( "active", currentTab == Step1 ) ]
]
[ text "Step 1" ]