noredink-ui/styleguide-app/Examples/Page.elm
Jasper Woudenberg fa34fd7bd4 Pull in new changes from the monolith
Also add a `noPermission` page.
2018-05-03 14:32:26 +02:00

60 lines
1.3 KiB
Elm

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