mirror of
https://github.com/NoRedInk/noredink-ui.git
synced 2024-12-23 21:52:05 +03:00
364 lines
13 KiB
Elm
364 lines
13 KiB
Elm
module Examples.Menu exposing (Msg, State, example)
|
|
|
|
{-|
|
|
|
|
@docs Msg, State, example
|
|
|
|
-}
|
|
|
|
import Accessibility.Styled as Html exposing (..)
|
|
import Browser.Dom as Dom
|
|
import Category exposing (Category(..))
|
|
import Css
|
|
import Debug.Control as Control exposing (Control)
|
|
import Example exposing (Example)
|
|
import Html.Styled.Attributes exposing (css)
|
|
import KeyboardSupport exposing (Direction(..), Key(..))
|
|
import Nri.Ui.ClickableSvg.V2 as ClickableSvg
|
|
import Nri.Ui.ClickableText.V3 as ClickableText
|
|
import Nri.Ui.Heading.V2 as Heading
|
|
import Nri.Ui.Menu.V3 as Menu
|
|
import Nri.Ui.Svg.V1 as Svg exposing (Svg)
|
|
import Nri.Ui.Tooltip.V2 as Tooltip
|
|
import Nri.Ui.UiIcon.V1 as UiIcon
|
|
import Set exposing (Set)
|
|
import Task
|
|
|
|
|
|
{-| -}
|
|
example : Example State Msg
|
|
example =
|
|
{ name = "Menu"
|
|
, version = 3
|
|
, state = init
|
|
, update = update
|
|
, subscriptions = \_ -> Sub.none
|
|
, categories = [ Widgets ]
|
|
, keyboardSupport =
|
|
[ { keys = [ Space ], result = "Opens the menu" }
|
|
, { keys = [ Enter ], result = "Opens the menu" }
|
|
, { keys = [ Tab ], result = "Takes focus out of the menu to the next focusable element & closes the menu." }
|
|
, { keys = [ Tab, Shift ], result = "Takes focus out of the menu to the previous focusable element & closes the menu." }
|
|
, { keys = [ Arrow KeyboardSupport.Up ]
|
|
, result = "If menu is closed, opens the menu & selects the last menu item.\nIf menu is open, moves the focus to the previous menu item."
|
|
}
|
|
, { keys = [ Arrow KeyboardSupport.Down ]
|
|
, result = "If menu is closed, opens the menu & selects the first menu item.\nIf menu is open, moves the focus to the next menu item."
|
|
}
|
|
, { keys = [ Esc ], result = "Closes the menu" }
|
|
]
|
|
, preview = []
|
|
, view = view
|
|
}
|
|
|
|
|
|
view : State -> List (Html Msg)
|
|
view state =
|
|
let
|
|
viewConfiguration =
|
|
Control.currentValue state.viewConfiguration
|
|
|
|
viewCustomConfiguration =
|
|
Control.currentValue state.viewCustomConfiguration
|
|
|
|
isOpen name =
|
|
case state.openMenu of
|
|
Just open ->
|
|
open == name
|
|
|
|
Nothing ->
|
|
False
|
|
in
|
|
[ div [ css [ Css.displayFlex, Css.flexWrap Css.wrap ] ]
|
|
[ Html.h3 [ css [ Css.width (Css.pct 100) ] ] [ Html.text "Nri.Menu.button" ]
|
|
, viewControl SetViewConfiguration state.viewConfiguration
|
|
, Menu.view
|
|
(List.filterMap identity
|
|
[ Just <| Menu.buttonId "1stPeriodEnglish__button"
|
|
, Just <| Menu.menuId "1stPeriodEnglish__menu"
|
|
, Just <| Menu.alignment viewConfiguration.alignment
|
|
, Just <| Menu.isDisabled viewConfiguration.isDisabled
|
|
, Maybe.map Menu.menuWidth viewConfiguration.menuWidth
|
|
]
|
|
)
|
|
{ isOpen = isOpen "1stPeriodEnglish"
|
|
, focusAndToggle = FocusAndToggle "1stPeriodEnglish"
|
|
, entries =
|
|
[ Menu.entry "hello-button" <|
|
|
\attrs ->
|
|
ClickableText.button "Hello"
|
|
[ ClickableText.onClick (ConsoleLog "Hello")
|
|
, ClickableText.small
|
|
, ClickableText.custom attrs
|
|
]
|
|
, Menu.group "Menu group"
|
|
[ Menu.entry "gift-button" <|
|
|
\attrs ->
|
|
ClickableText.button "Gift"
|
|
[ ClickableText.onClick (ConsoleLog "Gift")
|
|
, ClickableText.small
|
|
, ClickableText.custom attrs
|
|
, ClickableText.icon UiIcon.gift
|
|
]
|
|
, Menu.entry "null-button" <|
|
|
\attrs ->
|
|
ClickableText.button "Nope!"
|
|
[ ClickableText.onClick (ConsoleLog "Nope!")
|
|
, ClickableText.small
|
|
, ClickableText.custom attrs
|
|
, ClickableText.icon UiIcon.null
|
|
]
|
|
, Menu.entry "no-icon-button" <|
|
|
\attrs ->
|
|
ClickableText.button "Skip"
|
|
[ ClickableText.onClick (ConsoleLog "Skip")
|
|
, ClickableText.small
|
|
, ClickableText.custom attrs
|
|
]
|
|
]
|
|
, Menu.entry "performance-button" <|
|
|
\attrs ->
|
|
ClickableText.button "Performance"
|
|
[ ClickableText.onClick (ConsoleLog "Performance")
|
|
, ClickableText.small
|
|
, ClickableText.custom attrs
|
|
]
|
|
]
|
|
, button =
|
|
Menu.button
|
|
(List.filterMap identity
|
|
[ Just <| Menu.hasBorder viewConfiguration.hasBorder
|
|
, Just <| Menu.wrapping viewConfiguration.wrapping
|
|
, Maybe.map Menu.icon viewConfiguration.icon
|
|
, Maybe.map Menu.buttonWidth viewConfiguration.buttonWidth
|
|
]
|
|
)
|
|
"1st Period English with Mx. Trainer"
|
|
}
|
|
]
|
|
, div
|
|
[ css [ Css.displayFlex, Css.flexWrap Css.wrap ] ]
|
|
[ Html.h3 [ css [ Css.width (Css.pct 100) ] ] [ Html.text "Nri.Menu.custom" ]
|
|
, viewControl SetIconButtonWithMenuConfiguration state.viewCustomConfiguration
|
|
, Menu.view
|
|
(List.filterMap identity
|
|
[ Just <| Menu.buttonId "icon-button-with-menu__button"
|
|
, Just <| Menu.menuId "icon-button-with-menu__menu"
|
|
, Just <| Menu.alignment viewCustomConfiguration.alignment
|
|
, Just <| Menu.isDisabled viewCustomConfiguration.isDisabled
|
|
, Maybe.map Menu.menuWidth viewCustomConfiguration.menuWidth
|
|
]
|
|
)
|
|
{ entries =
|
|
[ Menu.entry "see-more-button" <|
|
|
\attrs ->
|
|
ClickableText.button "See more"
|
|
[ ClickableText.onClick (ConsoleLog "See more")
|
|
, ClickableText.small
|
|
, ClickableText.custom attrs
|
|
, ClickableText.icon UiIcon.seeMore
|
|
]
|
|
]
|
|
, isOpen = isOpen "icon-button-with-menu"
|
|
, focusAndToggle = FocusAndToggle "icon-button-with-menu"
|
|
, button =
|
|
Menu.custom <|
|
|
\buttonAttributes ->
|
|
Tooltip.view
|
|
{ trigger =
|
|
\attrs ->
|
|
ClickableSvg.button "Menu.viewCustom: Click me!"
|
|
viewCustomConfiguration.icon
|
|
[ ClickableSvg.disabled viewCustomConfiguration.isDisabled
|
|
, ClickableSvg.custom (attrs ++ buttonAttributes)
|
|
, ClickableSvg.exactWidth 25
|
|
, ClickableSvg.exactHeight 25
|
|
, ClickableSvg.css [ Css.marginLeft (Css.px 10) ]
|
|
]
|
|
, id = "viewCustom-example-tooltip"
|
|
}
|
|
[ Tooltip.plaintext "Menu.viewCustom: Click me!"
|
|
, Tooltip.primaryLabel
|
|
, Tooltip.onHover (ShowTooltip "viewCustom")
|
|
, Tooltip.open (Set.member "viewCustom" state.openTooltips)
|
|
, Tooltip.smallPadding
|
|
, Tooltip.fitToContent
|
|
]
|
|
}
|
|
]
|
|
]
|
|
|
|
|
|
viewControl : (Control a -> Msg) -> Control a -> Html Msg
|
|
viewControl setControl control =
|
|
code
|
|
[ css [ Css.minWidth (Css.px 300), Css.marginRight (Css.px 20) ] ]
|
|
[ Control.view setControl control
|
|
|> fromUnstyled
|
|
]
|
|
|
|
|
|
{-| -}
|
|
init : State
|
|
init =
|
|
{ openMenu = Nothing
|
|
, checkboxChecked = False
|
|
, openTooltips = Set.empty
|
|
, viewConfiguration = initViewConfiguration
|
|
, viewCustomConfiguration = initIconButtonWithMenuConfiguration
|
|
}
|
|
|
|
|
|
{-| -}
|
|
type alias State =
|
|
{ openMenu : Maybe Id
|
|
, checkboxChecked : Bool
|
|
, openTooltips : Set String
|
|
, viewConfiguration : Control ViewConfiguration
|
|
, viewCustomConfiguration : Control IconButtonWithMenuConfiguration
|
|
}
|
|
|
|
|
|
type alias ViewConfiguration =
|
|
{ isDisabled : Bool
|
|
, hasBorder : Bool
|
|
, alignment : Menu.Alignment
|
|
, wrapping : Menu.TitleWrapping
|
|
, buttonWidth : Maybe Int
|
|
, menuWidth : Maybe Int
|
|
, icon : Maybe Svg
|
|
}
|
|
|
|
|
|
initViewConfiguration : Control ViewConfiguration
|
|
initViewConfiguration =
|
|
Control.record ViewConfiguration
|
|
|> Control.field "isDisabled" (Control.bool False)
|
|
|> Control.field "hasBorder" (Control.bool True)
|
|
|> Control.field "alignment"
|
|
(Control.choice
|
|
[ ( "Right", Control.value Menu.Right )
|
|
, ( "Left", Control.value Menu.Left )
|
|
]
|
|
)
|
|
|> Control.field "wrapping"
|
|
(Control.choice
|
|
[ ( "WrapAndExpandTitle", Control.value Menu.WrapAndExpandTitle )
|
|
, ( "TruncateTitle", Control.value Menu.TruncateTitle )
|
|
]
|
|
)
|
|
|> Control.field "buttonWidth"
|
|
(Control.maybe False (Control.choice [ ( "220", Control.value 220 ) ]))
|
|
|> Control.field "menuWidth"
|
|
(Control.maybe False (Control.choice [ ( "180", Control.value 220 ) ]))
|
|
|> Control.field "icon"
|
|
(Control.maybe False
|
|
(Control.choice
|
|
[ ( "gift", Control.value UiIcon.gift )
|
|
, ( "hat", Control.value UiIcon.hat )
|
|
, ( "star", Control.value UiIcon.star )
|
|
]
|
|
)
|
|
)
|
|
|
|
|
|
type alias IconButtonWithMenuConfiguration =
|
|
{ isDisabled : Bool
|
|
, alignment : Menu.Alignment
|
|
, menuWidth : Maybe Int
|
|
, icon : Svg
|
|
}
|
|
|
|
|
|
initIconButtonWithMenuConfiguration : Control IconButtonWithMenuConfiguration
|
|
initIconButtonWithMenuConfiguration =
|
|
Control.record IconButtonWithMenuConfiguration
|
|
|> Control.field "isDisabled" (Control.bool False)
|
|
|> Control.field "alignment"
|
|
(Control.choice
|
|
[ ( "Left", Control.value Menu.Left )
|
|
, ( "Right", Control.value Menu.Right )
|
|
]
|
|
)
|
|
|> Control.field "menuWidth"
|
|
(Control.maybe False (Control.choice [ ( "180", Control.value 220 ) ]))
|
|
|> Control.field "icon"
|
|
(Control.choice
|
|
[ ( "edit", Control.value UiIcon.edit )
|
|
, ( "share", Control.value UiIcon.share )
|
|
, ( "gear", Control.value UiIcon.gear )
|
|
]
|
|
)
|
|
|
|
|
|
{-| -}
|
|
type Msg
|
|
= ShowTooltip String Bool
|
|
| ConsoleLog String
|
|
| SetViewConfiguration (Control ViewConfiguration)
|
|
| SetIconButtonWithMenuConfiguration (Control IconButtonWithMenuConfiguration)
|
|
| FocusAndToggle String { isOpen : Bool, focus : Maybe String }
|
|
| Focused (Result Dom.Error ())
|
|
| NoOp
|
|
|
|
|
|
{-| -}
|
|
update : Msg -> State -> ( State, Cmd Msg )
|
|
update msg state =
|
|
case msg of
|
|
ShowTooltip key isOpen ->
|
|
( { state
|
|
| openTooltips =
|
|
if isOpen then
|
|
Set.insert key state.openTooltips
|
|
|
|
else
|
|
Set.remove key state.openTooltips
|
|
}
|
|
, Cmd.none
|
|
)
|
|
|
|
ConsoleLog message ->
|
|
let
|
|
_ =
|
|
Debug.log "Menu Example" message
|
|
in
|
|
( state, Cmd.none )
|
|
|
|
SetViewConfiguration configuration ->
|
|
( { state | viewConfiguration = configuration }, Cmd.none )
|
|
|
|
SetIconButtonWithMenuConfiguration configuration ->
|
|
( { state | viewCustomConfiguration = configuration }, Cmd.none )
|
|
|
|
FocusAndToggle id { isOpen, focus } ->
|
|
( { state
|
|
| openMenu =
|
|
if isOpen then
|
|
Just id
|
|
|
|
else
|
|
Nothing
|
|
}
|
|
, Maybe.map (\idString -> Task.attempt Focused (Dom.focus idString)) focus
|
|
|> Maybe.withDefault Cmd.none
|
|
)
|
|
|
|
Focused _ ->
|
|
( state, Cmd.none )
|
|
|
|
NoOp ->
|
|
( state, Cmd.none )
|
|
|
|
|
|
|
|
-- INTERNAL
|
|
|
|
|
|
type alias Id =
|
|
String
|
|
|
|
|
|
type alias Value =
|
|
String
|