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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
module Data.Text.ParagraphLayout.Internal.Span
(Span(..)
,SpanLayout(..)
,SpanOptions(..)
,spanFragments
,spanRects
)
where
import Data.Int (Int32)
import Data.Text.ParagraphLayout.Internal.Fragment
import Data.Text.ParagraphLayout.Internal.Rect
-- | A paragraph is broken into spans by the caller.
--
-- Each span could have a different font family, size, style, text decoration,
-- colour, language, etc.
data Span = Span
{ spanLength :: Int
-- ^ Byte offset to the next span or the end of the paragraph text.
, spanOptions :: SpanOptions
-- ^ Options applying to this specific span.
}
deriving (Eq, Read, Show)
-- TODO: Add all relevant attributes.
data SpanOptions = SpanOptions
{ spanLanguage :: String
-- ^ IETF BCP 47 language tag, such as the value expected to be found in
-- the HTML @lang@ attribute, specifying the primary language for the
-- span's text content. An empty string explicitly means "language unknown".
--
-- Used for selecting the appropriate glyphs and line breaking rules,
-- primarily in East Asian languages.
}
deriving (Eq, Read, Show)
-- | The resulting layout of each span, which may include multiple fragments if
-- broken over multiple lines.
data SpanLayout = SpanLayout [Fragment]
-- TODO: Consider merging fragments created by script changes.
deriving (Eq, Read, Show)
-- | Return all fragments of shaped text from the given span.
spanFragments :: SpanLayout -> [Fragment]
spanFragments (SpanLayout frags) = frags
spanRects :: SpanLayout -> [Rect Int32]
spanRects sl = map fragmentRect $ spanFragments sl