Add screencast videos and update docs

This commit is contained in:
Eike Kettner
2020-08-09 10:16:40 +02:00
parent a5681a4390
commit cd6bee03ca
6 changed files with 91 additions and 0 deletions

View File

@ -2,6 +2,7 @@ module Main exposing (..)
import Browser exposing (Document)
import Browser.Navigation exposing (Key)
import Demo
import ExtraAttr exposing (..)
import Feature exposing (Feature)
import GetStarted
@ -126,6 +127,13 @@ view model =
]
)
]
, demoHero
, section [ class "section" ]
[ div [ class "container" ]
[ Demo.demo Demo.navigateDemo
, Demo.demo Demo.processDemo
]
]
, getStartedHero model
, div [ class "section" ]
(GetStarted.getStarted model.flags.version)
@ -193,6 +201,24 @@ getStartedHero _ =
]
demoHero : Html msg
demoHero =
section
[ id "demos"
, class "hero is-info is-bold"
]
[ div
[ class "hero-body"
]
[ div [ class "container" ]
[ h2 [ class "title" ]
[ text "Demo"
]
]
]
]
featureHero : Model -> Html Msg
featureHero model =
section
@ -307,6 +333,12 @@ mainHero model =
]
[ text "Features"
]
, a
[ class "button is-info is-medium"
, href "#demos"
]
[ text "Screencast"
]
]
]
]