Link.example.purs

module Lumi.Components.Examples.Link where

import Prelude
import Data.Maybe (Maybe(..))
import Effect.Console (log)
import Effect.Uncurried (mkEffectFn1)
import Lumi.Components.Column (column_)
import Lumi.Components.Link (link, defaults)
import Lumi.Components.Text (body_)
import Lumi.Components.Example (example)
import React.Basic.Classic (JSX)
import React.Basic.DOM as R
import Web.HTML.History (URL(..))

docs :: JSX
docs =
  column_
    [ example
        $ R.div
            { onClick: mkEffectFn1 \_ -> log "Propagated"
            , style: R.css { display: "flex", flexDirection: "column" }
            , children:
              [ link
                  defaults
                    { href = URL "#/link"
                    , navigate = pure $ log "link clicked"
                    , text = body_ "Click here"
                    }
              , link
                  defaults
                    { href = URL "#/input"
                    , target = Just "_blank"
                    , text = body_ "This should open in a new tab"
                    }
              ]
            }
    ]