noredink-ui/styleguide-app/Examples/Page.elm
Luke Westby c1ff19f0d0
Add Html.Styled versions for everything (#139)
* make html.styled versions of remaining widgets

* upgrade all the examples

* change license name
2018-10-23 09:55:30 -07:00

47 lines
1.2 KiB
Elm

module Examples.Page exposing (example)
{-|
@docs example, styles
-}
import Css
import Css.Foreign exposing (Snippet, adjacentSiblings, children, class, descendants, each, everything, media, selector, withClass)
import Headings
import Html.Styled as Html exposing (Html)
import ModuleExample as ModuleExample exposing (Category(..), ModuleExample)
import Nri.Ui.Page.V2 as Page
{-| -}
example : msg -> ModuleExample msg
example noOp =
{ filename = "Nri/Ui/Page/V1.elm"
, category = Pages
, content =
[ Css.Foreign.global
[ Css.Foreign.selector "[data-page-container]"
[ Css.displayFlex
, Css.flexWrap Css.wrap
]
]
, Headings.h3 [ Html.text "Pages for problems" ]
, Headings.h4 [ Html.text "Page: Not Found" ]
, Page.notFound
{ link = noOp
, name = "The Main Page"
}
, Headings.h4 [ Html.text "Page: Broken" ]
, Page.broken
{ link = noOp
, name = "The Main Page"
}
, Headings.h4 [ Html.text "Page: No Permission" ]
, Page.noPermission
{ link = noOp
, name = "The Main Page"
}
]
}