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