-----------------------------------------------------------------------------
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE ExistentialQuantification  #-}
{-# LANGUAGE DerivingStrategies         #-}
{-# LANGUAGE RecordWildCards            #-}
{-# LANGUAGE OverloadedStrings          #-}
{-# LANGUAGE LambdaCase                 #-}
-----------------------------------------------------------------------------
module Miso.UI.Combobox
  ( -- ** Component
    combobox_
  ) where
-----------------------------------------------------------------------------
import           Miso
import           Miso.Html
import qualified Miso.Svg.Property as SP
import qualified Miso.Html.Element as H
import qualified Miso.Html.Property as P
-----------------------------------------------------------------------------
combobox_ :: Component parent model action
combobox_ :: forall parent model action. Component parent model action
combobox_ = 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.div_
  [ MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.id_ MisoString
"select-909078"
  , MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.class_ MisoString
"select"
  ]
  [ [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.type_ MisoString
"button"
    , MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.class_ MisoString
"btn-outline justify-between font-normal w-[200px]"
    , MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.id_ MisoString
"select-909078-trigger"
    , MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
P.aria_ MisoString
"haspopup" MisoString
"listbox"
    , 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
"select-909078-listbox"
    ]
    [ [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
"truncate" ][]
    , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
svg_
      [ MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.height_ MisoString
"24"
      , MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.viewBox_ MisoString
"0 0 24 24"
      , MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.fill_ MisoString
"none"
      , MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.stroke_ MisoString
"currentColor"
      , 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
P.class_ MisoString
"lucide lucide-chevrons-up-down-icon lucide-chevrons-up-down text-muted-foreground opacity-50 shrink-0"
      ]
      []
    ]
  , [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.id_ MisoString
"select-909078-popover"
    , MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
P.aria_ MisoString
"hidden" MisoString
"true"
    ]
    [ [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.header_ []
      [ [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.xmlns_ MisoString
"http://www.w3.org/2000/svg"
        , MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.width_ MisoString
"24"
        , MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.height_ MisoString
"24"
        , MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.viewBox_ MisoString
"0 0 24 24"
        , MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.fill_ MisoString
"none"
        , MisoString -> Attribute action
forall action. MisoString -> Attribute action
SP.stroke_ MisoString
"currentColor"
        , 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
P.class_ MisoString
"lucide lucide-search-icon lucide-search"
        ] []
      , [Attribute action] -> View model action
forall action model. [Attribute action] -> View model action
H.input_
        [ MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.type_ MisoString
"text"
        , MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.value_ MisoString
""
        , MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.placeholder_ MisoString
"Search framework..."
        , Bool -> Attribute action
forall action. Bool -> Attribute action
P.autocomplete_ Bool
False
        , Bool -> Attribute action
forall action. Bool -> Attribute action
P.autocorrect_ Bool
False
        , Bool -> Attribute action
forall action. Bool -> Attribute action
P.spellcheck_ Bool
False
        , MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
P.aria_ MisoString
"autocomplete" MisoString
"list"
        , MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.role_ MisoString
"combobox"
        , 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
"select-909078-listbox"
        , MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
P.aria_ MisoString
"labelledby" MisoString
"select-909078-trigger"
        ]
      ]
    , [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.role_ MisoString
"listbox"
      , MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.id_ MisoString
"select-909078-listbox"
      , MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
P.aria_ MisoString
"orientation" MisoString
"vertical"
      , MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
P.aria_ MisoString
"labelledby" MisoString
"select-909078-trigger"
      , MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
P.data_ MisoString
"empty" MisoString
"No framework found."
      ]
      [ [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.role_ MisoString
"option"
        , MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
P.data_ MisoString
"value" MisoString
"Next.js"
        ]
        [ View model action
"Next.js" ]
      , [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.role_ MisoString
"option"
        , MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
P.data_ MisoString
"value" MisoString
"SvelteKit"
        ]
        [ View model action
"SvelteKit" ]
      , [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.role_ MisoString
"option"
        , MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
P.data_ MisoString
"value" MisoString
"Nuxt.js"
        ]
        [ View model action
"Nuxt.js" ]
      , [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.role_ MisoString
"option"
        , MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
P.data_ MisoString
"value" MisoString
"Remix"
        ]
        [ View model action
"Remix" ]
      , [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.role_ MisoString
"option"
        , MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
P.data_ MisoString
"value" MisoString
"Astro"
        ]
        [ View model action
"Astro" ]
      ]
    ]
  , [Attribute action] -> View model action
forall action model. [Attribute action] -> View model action
H.input_
    [ MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.type_ MisoString
"hidden"
    , MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.name_ MisoString
"select-909078-value"
    , MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.value_ MisoString
""
    ]
  ]
-----------------------------------------------------------------------------