git.iko.soy/rowtype-yoga/psfp
on 133b502 help sign in
rowtype-yoga/psfp/stories/TypographyStories.purs
39 lines 1.7 kB history raw
1module TypographyStories where
3import Prelude hiding (add)
5import Data.Maybe (Maybe(..))
6import Decorator.FullScreen (fullScreenDecorator)
7import Effect (Effect)
8import Storybook.React (Storybook, add, addDecorator, storiesOf)
9import Typography.Header (HeadingLevel(..), mkH)
11stories ∷ Effect Storybook
12stories =
13 storiesOf "Typography" do
14 addDecorator fullScreenDecorator
15 add "All" mkH
16 [ { text: "A first level heading", level: H1, className: Nothing }
17 , { text: "Second level", level: H2, className: Nothing }
18 , { text: "A long third level heading", level: H3, className: Nothing }
19 , { text: "Finally, a pretty long h4 heading", level: H4, className: Nothing }
20 , { text: "A subheading", level: Subheading, className: Nothing }
21 ]
22 add "H1" mkH
23 [ { text: "Purescript (H1)", level: H1, className: Nothing } ]
24 add "H2" mkH
25 [ { text: "Purescript (H2)", level: H2, className: Nothing } ]
26 add "H3" mkH
27 [ { text: "Purescript (H3)", level: H3, className: Nothing } ]
28 add "H4" mkH
29 [ { text: "Purescript (H4)", level: H4, className: Nothing } ]
30 add "H5" mkH
31 [ { text: "Purescript (H5)", level: Subheading, className: Nothing } ]
33loremIpsum ∷ String
34loremIpsum =
35 """PureScript is a strongly-typed, purely-functional programming language that compiles""" <>
36 """to JavaScript. It can be used to develop web applications, server side apps, and als""" <>
37 """o desktop applications with use of Electron. Its syntax is mostly comparable to that""" <>
38 """of Haskell. In addition, it introduces row polymorphism and extensible records.[2] A""" <>
39 """lso, contrary to Haskell, PureScript adheres to a strict evaluation strategy."""