module Data.Text.ParagraphLayout.ParagraphData
    (czechHelloParagraph
    ,emptyParagraph
    ,emptySpanParagraph
    ,mixedLanguageLTRParagraph
    ,mixedScriptSerbianParagraph
    )
where

import Data.Text.ParagraphLayout.ParagraphConstruction
import Data.Text.ParagraphLayout.Plain (Paragraph, ParagraphOptions)

emptyParagraph :: ParagraphOptions -> Paragraph
emptyParagraph = "" |<>| ""

emptySpanParagraph :: ParagraphOptions -> Paragraph
emptySpanParagraph = "" |< "en"~"" >| ""

czechHelloParagraph :: ParagraphOptions -> Paragraph
czechHelloParagraph = "" |< "cs"~"Ahoj, světe!" >| ""

mixedScriptSerbianParagraph :: ParagraphOptions -> Paragraph
mixedScriptSerbianParagraph = "" |< "sr"~"Vikipedija (Википедија)" >| ""

mixedLanguageLTRParagraph :: ParagraphOptions -> Paragraph
mixedLanguageLTRParagraph = "Tak " |< "cs"~"jsem tady, " >|< "ja"~"世界!" >| ""