-----------------------------------------------------------------------------
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE ExistentialQuantification  #-}
{-# LANGUAGE DerivingStrategies         #-}
{-# LANGUAGE RecordWildCards            #-}
{-# LANGUAGE OverloadedStrings          #-}
{-# LANGUAGE LambdaCase                 #-}
-----------------------------------------------------------------------------
module Miso.UI.Breadcrumb
  ( -- ** Component
    breadcrumb_
  ) where
-----------------------------------------------------------------------------
import           Miso
import           Miso.Html
import qualified Miso.Svg as S
import qualified Miso.Svg.Property as SP
import qualified Miso.Html.Element as H
import qualified Miso.Html.Property as P
-- import           Miso.Lens
-----------------------------------------------------------------------------
breadcrumb_ :: Component parent model action
breadcrumb_ :: forall parent model action. Component parent model action
breadcrumb_ = model
-> (action -> Effect parent model action)
-> (model -> View model action)
-> Component parent model action
forall model action parent.
model
-> (action -> Effect parent model action)
-> (model -> View model action)
-> Component parent model action
component model
forall a. HasCallStack => a
undefined action -> Effect parent model action
forall action parent model. action -> Effect parent model action
noop (View model action -> model -> View model action
forall a b. a -> b -> a
const View model action
forall model action. View model action
view_)
-----------------------------------------------------------------------------
view_ :: View model action
view_ :: forall model action. View model action
view_ = [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.ol_
    [ MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.class_
        MisoString
"text-muted-foreground flex flex-wrap items-center gap-1.5 text-sm break-words sm:gap-2.5"
    ]
    [ [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.li_
        [ MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.class_ MisoString
"inline-flex items-center gap-1.5"]
        [ [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.a_
            [ MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.class_ MisoString
"hover:text-foreground transition-colors"
            , MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.href_ MisoString
"#"
            ]
            [View model action
"Home"]
        ]
    , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.li_
        []
        [ [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.svg_
            [ MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.class_ MisoString
"size-3.5"
            , MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.strokeWidth_ MisoString
"2"
            , MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.strokeLinecap_ MisoString
"round" 
            , MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.strokeLinejoin_ MisoString
"round"
            , MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.stroke_ MisoString
"currentColor"
            , MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.fill_ MisoString
"none"
            , MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.viewBox_ MisoString
"0 0 24 24"
            , MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.height_ MisoString
"24"
            , MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.width_ MisoString
"24"
            , MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.xmlns_ MisoString
"http://www.w3.org/2000/svg"
            ]
            [[Attribute action] -> View model action
forall action model. [Attribute action] -> View model action
S.path_ [MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.d_ MisoString
"m9 18 6-6-6-6"]]
        ]
    , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.li_
        [MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.class_ MisoString
"inline-flex items-center gap-1.5"]
        [ [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.div_
            [ MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.class_ MisoString
"dropdown-menu"
            , MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.id_ MisoString
"demo-breadcrumb-menu"
            ]
            [ [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.button_
                [ MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.class_
                    MisoString
"flex size-9 items-center justify-center h-4 w-4 hover:text-foreground cursor-pointer"
                , MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
P.aria_ MisoString
"expanded" MisoString
"false"
                , MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
P.aria_ MisoString
"controls" MisoString
"demo-breadcrumb-menu-menu"
                , MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
P.aria_ MisoString
"haspopup" MisoString
"menu"
                , MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.id_ MisoString
"demo-breadcrumb-menu-trigger"
                , MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.type_ MisoString
"button"
                ]
                [ [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.svg_
                    [ MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.strokeWidth_ MisoString
"2"
                    , MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.strokeLinecap_ MisoString
"round" 
                    , MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.strokeLinejoin_ MisoString
"round"
                    , MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.stroke_ MisoString
"currentColor"
                    , MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.fill_ MisoString
"none"
                    , MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.viewBox_ MisoString
"0 0 24 24"
                    , MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.height_ MisoString
"24"
                    , MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.width_ MisoString
"24"
                    , MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.xmlns_ MisoString
"http://www.w3.org/2000/svg"
                    ]
                    [ [Attribute action] -> View model action
forall action model. [Attribute action] -> View model action
S.circle_ [MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.r_ MisoString
"1", MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.cy_ MisoString
"12", MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.cx_ MisoString
"12"]
                    , [Attribute action] -> View model action
forall action model. [Attribute action] -> View model action
S.circle_ [MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.r_ MisoString
"1", MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.cy_ MisoString
"12", MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.cx_ MisoString
"19"]
                    , [Attribute action] -> View model action
forall action model. [Attribute action] -> View model action
S.circle_ [MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.r_ MisoString
"1", MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.cy_ MisoString
"12", MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.cx_ MisoString
"5"]
                    ]
                ]
            , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.div_
                [ MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
P.aria_ MisoString
"hidden" MisoString
"true"
                , MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
P.data_ MisoString
"popover" MisoString
""
                , MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.id_ MisoString
"demo-breadcrumb-menu-popover"
                ]
                [ [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
div_
                    [ MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
P.aria_ MisoString
"labelledby" MisoString
"demo-breadcrumb-menu-trigger"
                    , MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.id_ MisoString
"demo-breadcrumb-menu-menu"
                    , MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.role_ MisoString
"menu"
                    ]
                    [ [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
nav_
                        [MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.role_ MisoString
"menu"]
                        [ [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.button_
                            [MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.role_ MisoString
"menuitem", MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.type_ MisoString
"button"]
                            [View model action
"Documentation"]
                        , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.button_
                            [MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.role_ MisoString
"menuitem", MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.type_ MisoString
"button"]
                            [View model action
"Themes"]
                        , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.button_
                            [MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.role_ MisoString
"menuitem", MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.type_ MisoString
"button"]
                            [View model action
"GitHub"]
                        ]
                    ]
                ]
            ]
        ]
    , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.li_
        []
        [ [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.svg_
            [ MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.class_ MisoString
"size-3.5"
            , MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.strokeWidth_ MisoString
"2"
            , MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.strokeLinecap_ MisoString
"round" 
            , MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.strokeLinejoin_ MisoString
"round"
            , MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.stroke_ MisoString
"currentColor"
            , MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.fill_ MisoString
"none"
            , MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.viewBox_ MisoString
"0 0 24 24"
            , MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.height_ MisoString
"24"
            , MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.width_ MisoString
"24"
            , MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.xmlns_ MisoString
"http://www.w3.org/2000/svg"
            ]
            [[Attribute action] -> View model action
forall action model. [Attribute action] -> View model action
S.path_ [MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.d_ MisoString
"m9 18 6-6-6-6"]]
        ]
    , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.li_
        [MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.class_ MisoString
"inline-flex items-center gap-1.5"]
        [ [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.a_
            [ MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.class_ MisoString
"hover:text-foreground transition-colors"
            , MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.href_ MisoString
"#"
            ]
            [View model action
"Components"]
        ]
    , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.li_
        []
        [ [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.svg_
            [ MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.class_ MisoString
"size-3.5"
            , MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.strokeWidth_ MisoString
"2"
            , MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.strokeLinecap_ MisoString
"round" 
            , MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.strokeLinejoin_ MisoString
"round"
            , MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.stroke_ MisoString
"currentColor"
            , MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.fill_ MisoString
"none"
            , MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.viewBox_ MisoString
"0 0 24 24"
            , MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.height_ MisoString
"24"
            , MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.width_ MisoString
"24"
            , MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.xmlns_ MisoString
"http://www.w3.org/2000/svg"
            ]
            [[Attribute action] -> View model action
forall action model. [Attribute action] -> View model action
S.path_ [MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.d_ MisoString
"m9 18 6-6-6-6"]]
        ]
    , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.li_
        [MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.class_ MisoString
"inline-flex items-center gap-1.5"]
        [ [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.span_
            [MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.class_ MisoString
"text-foreground font-normal"]
            [View model action
"Breadcrumb"]
        ]
    ]