noredink-ui/styleguide-app/Examples/Tooltip.elm

module Examples.Tooltip exposing (example, State, Msg)

{-|

@docs example, State, Msg

-}

import Accessibility.Styled as Html exposing (Html)
import AtomicDesignType exposing (AtomicDesignType(..))
import Category exposing (Category(..))
import Css
import Debug.Control as Control exposing (Control)
import Example exposing (Example)
import Html.Styled.Attributes as Attributes exposing (css, href)
import KeyboardSupport exposing (Direction(..), Key(..))
import Nri.Ui.Colors.V1 as Colors
import Nri.Ui.Heading.V2 as Heading
import Nri.Ui.Svg.V1 as Svg
import Nri.Ui.Text.V4 as Text
import Nri.Ui.Tooltip.V2 as Tooltip
import Nri.Ui.UiIcon.V1 as UiIcon


example : Example State Msg
example =
    { name = "Nri.Ui.Tooltip.V2"
    , categories = [ Widgets ]
    , atomicDesignType = Molecule
    , keyboardSupport = []
    , state = init
    , update = update
    , subscriptions = \_ -> Sub.none
    , view = view
    }


type alias State =
    { openTooltip : Maybe TooltipType
    , staticExampleSettings : Control StaticExampleSettings
    }


init : State
init =
    { openTooltip = Nothing
    , staticExampleSettings = initStaticExampleSettings
    }


type TooltipType
    = PrimaryLabelOnClick
    | PrimaryLabelOnHover
    | AuxillaryDescription
    | ToggleTipTop
    | ToggleTipRight
    | ToggleTipBottom
    | ToggleTipLeft


type Msg
    = ToggleTooltip TooltipType Bool
    | SetStaticExampleSettings (Control StaticExampleSettings)


update : Msg -> State -> ( State, Cmd Msg )
update msg model =
    case msg of
        ToggleTooltip type_ isOpen ->
            if isOpen then
                ( { model | openTooltip = Just type_ }, Cmd.none )

            else
                ( { model | openTooltip = Nothing }, Cmd.none )

        SetStaticExampleSettings settings ->
            ( { model | staticExampleSettings = settings }, Cmd.none )


view : State -> List (Html Msg)
view model =
    [ Heading.h2 [] [ Html.text "Static Examples" ]
    , viewStaticExamples model.staticExampleSettings
    , Heading.h2 [] [ Html.text "Interactive Examples" ]
    , Text.mediumBody [ Html.text "These tooltips look similar, but serve different purposes when reading them via a screen-reader." ]
    , Heading.h3 [] [ Html.text "primaryLabel" ]
    , Text.smallBody
        [ Html.text "A primary label is used when the tooltip content serves as the main label for its trigger content"
        , Html.br []
        , Html.text "e.g. when the trigger content is an icon with no text."
        ]
    , Tooltip.view
        { triggerHtml = Html.text "Primary Label - OnClick Trigger"
        , id = "primary label tooltip"
        }
        [ Tooltip.html [ Html.text "Tooltip ", Html.a [ href "/" ] [ Html.text "Links work!" ] ]
        , Tooltip.primaryLabel
        , Tooltip.onClick (ToggleTooltip PrimaryLabelOnClick)
        , Tooltip.open (model.openTooltip == Just PrimaryLabelOnClick)
        ]
    , Html.br [ css [ Css.marginBottom (Css.px 20) ] ]
    , Tooltip.view
        { triggerHtml = Html.text "Primary Label - OnHover Trigger"
        , id = "primary label tooltip"
        }
        [ Tooltip.html [ Html.text "Tooltip ", Html.a [ href "/" ] [ Html.text "Links work!" ] ]
        , Tooltip.primaryLabel
        , Tooltip.onHover (ToggleTooltip PrimaryLabelOnHover)
        , Tooltip.open (model.openTooltip == Just PrimaryLabelOnHover)
        ]
    , Html.br [ css [ Css.marginBottom (Css.px 20) ] ]
    , Heading.h3 [] [ Html.text "auxillaryDescription" ]
    , Text.smallBody
        [ Html.text "An auxillary description is used when the tooltip content provides supplementary information about its trigger content"
        , Html.br []
        , Html.text "e.g. when the trigger content is a word in the middle of a body of text that requires additional explanation."
        ]
    , Tooltip.view
        { triggerHtml = Html.text "Auxillary Description Trigger"
        , id = "Auxillary description"
        }
        [ Tooltip.plaintext "Tooltip"
        , Tooltip.onClick (ToggleTooltip AuxillaryDescription)
        , Tooltip.auxillaryDescription
        , Tooltip.open (model.openTooltip == Just AuxillaryDescription)
        ]
    , Html.br [ css [ Css.marginBottom (Css.px 20) ] ]
    , Heading.h3 [] [ Html.text "toggleTip" ]
    , Text.smallBody [ Html.text "A Toggle Tip is triggered by the \"?\" icon and provides supplemental information for the page." ]
    , Html.div [ css [ Css.displayFlex, Css.alignItems Css.center ] ]
        [ Tooltip.toggleTip
            { label = "More info"
            }
            [ Tooltip.html
                [ Html.text "Tooltip On Top! "
                , Html.a [ href "/" ] [ Html.text "Links work!" ]
                ]
            , Tooltip.onHover (ToggleTooltip ToggleTipTop)
            , Tooltip.open (model.openTooltip == Just ToggleTipTop)
            ]
        , Text.mediumBody
            [ Html.text "This toggletip will open on top"
            ]
        ]
    , Html.div [ css [ Css.displayFlex, Css.alignItems Css.center ] ]
        [ Tooltip.toggleTip
            { label = "More info"
            }
            [ Tooltip.html
                [ Html.text "Tooltip On Left! "
                , Html.a [ href "/" ] [ Html.text "Links work!" ]
                ]
            , Tooltip.onLeft
            , Tooltip.onHover (ToggleTooltip ToggleTipLeft)
            , Tooltip.open (model.openTooltip == Just ToggleTipLeft)
            ]
        , Text.mediumBody
            [ Html.text "This toggletip will open on the left"
            ]
        ]
    ]


type alias StaticExampleSettings =
    { content : Tooltip.Attribute Never
    , direction : Tooltip.Attribute Never
    , width : Tooltip.Attribute Never
    , padding : Tooltip.Attribute Never
    }


initStaticExampleSettings : Control StaticExampleSettings
initStaticExampleSettings =
    Control.record StaticExampleSettings
        |> Control.field "content" controlContent
        |> Control.field "direction" controlDirection
        |> Control.field "width" controlWidth
        |> Control.field "padding" controlPadding


controlContent : Control (Tooltip.Attribute Never)
controlContent =
    Control.choice
        [ ( "plaintext"
          , "Song lyrics are literature."
                |> Control.string
                |> Control.map Tooltip.plaintext
          )
        , ( "HTML (short)"
          , [ Html.code [] [ Html.text "git status" ]
            , Html.text " ⇄ "
            , Html.em [] [ Html.text "tries again" ]
            ]
                |> Tooltip.html
                |> Control.value
          )
        , ( "HTML"
          , [ Html.text "Click "
            , Html.a [ href "http://www.noredink.com", Attributes.target "_blank" ]
                [ Html.text "here, yes, HERE, right here on this long tooltip. "
                , Html.div
                    [ css
                        [ Css.display Css.inlineBlock
                        , Css.width (Css.px 20)
                        ]
                    ]
                    [ Svg.toHtml UiIcon.gear ]
                ]
            , Html.text " to check out NoRedInk."
            ]
                |> Tooltip.html
                |> Control.value
          )
        ]


controlDirection : Control (Tooltip.Attribute Never)
controlDirection =
    Control.choice
        [ ( "onTop", Control.value Tooltip.onTop )
        , ( "onBottom", Control.value Tooltip.onBottom )
        , ( "onLeft", Control.value Tooltip.onLeft )
        , ( "onRight", Control.value Tooltip.onRight )
        ]


controlWidth : Control (Tooltip.Attribute Never)
controlWidth =
    Control.choice
        [ ( "exactWidth 320 (default)", Control.value (Tooltip.exactWidth 320) )
        , ( "exactWidth 100", Control.value (Tooltip.exactWidth 100) )
        , ( "exactWidth 400", Control.value (Tooltip.exactWidth 400) )
        , ( "fitToContent", Control.value Tooltip.fitToContent )
        ]


controlPadding : Control (Tooltip.Attribute Never)
controlPadding =
    Control.choice
        [ ( "normalPadding (default)", Control.value Tooltip.normalPadding )
        , ( "smallPadding", Control.value Tooltip.smallPadding )
        , ( "customPadding 40", Control.value (Tooltip.customPadding 40) )
        ]


viewStaticExamples : Control StaticExampleSettings -> Html Msg
viewStaticExamples controlSettings =
    let
        settings =
            Control.currentValue controlSettings

        attributes =
            [ Tooltip.open True
            , settings.content
            , settings.direction
            , settings.width
            , settings.padding
            ]
    in
    Html.div []
        [ Control.view SetStaticExampleSettings controlSettings
            |> Html.fromUnstyled
        , Html.div [ css [ Css.margin (Css.px 150) ] ]
            [ Tooltip.view
                { triggerHtml =
                    UiIcon.arrowTop
                        |> Svg.withColor Colors.azure
                        |> Svg.withWidth (Css.px 20)
                        |> Svg.toHtml
                , id = "my-top-tooltip"
                }
                attributes
                |> Html.map never
            ]
        ]