-----------------------------------------------------------------------------
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE ExistentialQuantification  #-}
{-# LANGUAGE DerivingStrategies         #-}
{-# LANGUAGE RecordWildCards            #-}
{-# LANGUAGE OverloadedStrings          #-}
{-# LANGUAGE LambdaCase                 #-}
-----------------------------------------------------------------------------
module Miso.UI.Table
  ( -- ** Component
    table_
  ) where
-----------------------------------------------------------------------------
import           Miso
import qualified Miso.Html.Element as H
import qualified Miso.Html.Property as P
-----------------------------------------------------------------------------
table_ :: Component parent model action
table_ :: forall parent model action. Component parent model action
table_ = 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.class_ MisoString
"overflow-x-auto" ]
    [ [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.table_
        [ MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.class_ MisoString
"table" ]
        [ [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.caption_ [] [ View model action
"A list of your recent invoices." ]
        , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.thead_ []
            [ [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.tr_ []
                [ [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.th_ [][ View model action
"Invoice" ]
                , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.th_ [][ View model action
"Status" ]
                , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.th_ [][ View model action
"Method" ]
                , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.th_ [][ View model action
"Amount" ]
                ]
            ]
        , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.tbody_ []
            [ [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.tr_ []
                [ [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.td_
                    [ MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.class_ MisoString
"font-medium" ][ View model action
"INV001" ]
                , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.td_ [][ View model action
"Paid" ]
                , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.td_ [][ View model action
"Credit Card" ]
                , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.td_
                    [ MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.class_ MisoString
"text-right" ][ View model action
"$250.00" ]
                ]
            , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.tr_ []
                [ [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.td_
                    [ MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.class_ MisoString
"font-medium" ][ View model action
"INV002" ]
                , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.td_ [][ View model action
"Pending" ]
                , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.td_ [][ View model action
"PayPal" ]
                , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.td_
                    [ MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.class_ MisoString
"text-right" ][ View model action
"$150.00" ]
                ]
            , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.tr_ []
                [ [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.td_
                    [ MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.class_ MisoString
"font-medium" ][ View model action
"INV003" ]
                , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.td_ [][ View model action
"Unpaid" ]
                , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.td_ [][ View model action
"Bank Transfer" ]
                , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.td_
                    [ MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.class_ MisoString
"text-right" ][ View model action
"$350.00" ]
                ]
            , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.tr_ []
                [ [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.td_
                    [ MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.class_ MisoString
"font-medium" ][ View model action
"INV004" ]
                , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.td_ [][ View model action
"Paid" ]
                , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.td_ [][ View model action
"Paypal" ]
                , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.td_
                    [ MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.class_ MisoString
"text-right" ][ View model action
"$450.00" ]
                ]
            , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.tr_ []
                [ [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.td_
                    [ MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.class_ MisoString
"font-medium" ][ View model action
"INV005" ]
                , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.td_ [][ View model action
"Paid" ]
                , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.td_ [][ View model action
"Credit Card" ]
                , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.td_
                    [ MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.class_ MisoString
"text-right" ][ View model action
"$550.00" ]
                ]
            , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.tr_ []
                [ [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.td_
                    [ MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.class_ MisoString
"font-medium" ][ View model action
"INV006" ]
                , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.td_ [][ View model action
"Pending" ]
                , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.td_ [][ View model action
"Bank Transfer" ]
                , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.td_
                    [ MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.class_ MisoString
"text-right" ][ View model action
"$200.00" ]
                ]
            , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.tr_ []
                [ [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.td_
                    [ MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.class_ MisoString
"font-medium" ][ View model action
"INV007" ]
                , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.td_ [][ View model action
"Unpaid" ]
                , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.td_ [][ View model action
"Credit Card" ]
                , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.td_
                    [ MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.class_ MisoString
"text-right" ][ View model action
"$300.00" ]
                ]
            ]
        , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.tfoot_ []
            [ [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.tr_ []
                [ [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.td_
                    [ MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.colspan_ MisoString
"3" ][ View model action
"Total" ]
                , [Attribute action] -> [View model action] -> View model action
forall action model.
[Attribute action] -> [View model action] -> View model action
H.td_
                    [ MisoString -> Attribute action
forall action. MisoString -> Attribute action
P.class_ MisoString
"text-right" ][ View model action
"$2,500.00" ]
                ]
            ]
        ]
    ]