1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
module Data.Text.ParagraphLayout.ParagraphData
(czechHelloParagraph
,emptyParagraph
,emptySpanParagraph
,mixedLanguageLTRParagraph
,mixedScriptSerbianParagraph
,trivialParagraph
)
where
import Data.Text.ParagraphLayout.ParagraphConstruction
import Data.Text.ParagraphLayout.Plain (Paragraph, ParagraphOptions)
emptyParagraph :: ParagraphOptions -> Paragraph
emptyParagraph = "" |<>| ""
emptySpanParagraph :: ParagraphOptions -> Paragraph
emptySpanParagraph = "" |< "en"~"" >| ""
trivialParagraph :: ParagraphOptions -> Paragraph
trivialParagraph = "" |< "en"~"a" >| ""
czechHelloParagraph :: ParagraphOptions -> Paragraph
czechHelloParagraph = "" |< "cs"~"Ahoj, světe!" >| ""
mixedScriptSerbianParagraph :: ParagraphOptions -> Paragraph
mixedScriptSerbianParagraph = "" |< "sr"~"Vikipedija (Википедија)" >| ""
mixedLanguageLTRParagraph :: ParagraphOptions -> Paragraph
mixedLanguageLTRParagraph = "Tak " |< "cs"~"jsem tady, " >|< "ja"~"世界!" >| ""