git.iko.soy/rowtype-yoga/psfp
on 6828f8e help sign in
rowtype-yoga/psfp/src/Typography/Paragraph.purs
32 lines 810 B history raw
1module Typography.Paragraph where
3import Prelude
5import CSS.Safer (cssSafer)
6import Effect (Effect)
7import React.Basic.DOM as R
8import React.Basic.Hooks (ReactComponent, component)
9import React.Basic.Hooks as React
10import Theme.Styles (makeStyles)
11import Theme.Types (CSSTheme)
13mkP ∷ Effect (ReactComponent { text ∷ String })
14mkP = do
15 useStyles <-
16 makeStyles \(theme ∷ CSSTheme) ->
17 { p:
18 cssSafer
19 { color: theme.textColour
20 , fontFamily: theme.textFontFamily
21 , fontSize: "1em"
22 , margin: "0.67em 0 0.33em 0"
23 , padding: "0.67em 0 0.33em 0"
24 }
25 }
26 component "paragraph" \{ text } -> React.do
27 classes <- useStyles
28 pure
29 $ R.p
30 { className: classes.p
31 , children: [ R.text text ]
32 }