noredink-ui/styleguide-app/Examples/Text/Writing.elm

module Examples.Text.Writing exposing (example, State, Msg)

{-|

@docs example, State, Msg

-}

import Category exposing (Category(..))
import Example exposing (Example)
import Html.Styled exposing (text)
import KeyboardSupport exposing (Direction(..), Key(..))
import Nri.Ui.Text.Writing.V1 as TextWriting


{-| -}
type alias State =
    ()


{-| -}
type alias Msg =
    ()


example : Example State Msg
example =
    { name = "Text.Writing"
    , version = 1
    , categories = [ Text ]
    , keyboardSupport = []
    , state = ()
    , update = \_ state -> ( state, Cmd.none )
    , subscriptions = \_ -> Sub.none
    , preview = [ TextWriting.footnote [ text "This is a footnote. " ] ]
    , view =
        \_ ->
            let
                longerBody =
                    """Be on the lookout for a new and improved assignment
                    creation form! Soon, you'll be able to easily see a summary
                    of the content you're assigning, as well as an estimate for
                    how long the assignment will take.
                """
            in
            [ TextWriting.footnote [ text <| "This is a footnote. " ++ longerBody ]
            ]
    }