~jaro/balkon

ref: ff8e9d3d0ef7236b5dbbc566203645483c56a9b9 balkon/src/Data/Text/ParagraphLayout/Internal/ProtoRun.hs -rw-r--r-- 461 bytes
ff8e9d3d — Jaro Make RTL text overflow the left paragraph edge. 1 year, 3 months ago 
                                                                                
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
module Data.Text.ParagraphLayout.Internal.ProtoRun (ProtoRun (..))
where

import Data.Text.ParagraphLayout.Internal.BiDiLevels
import Data.Text.ParagraphLayout.Internal.Script
import Data.Text.ParagraphLayout.Internal.Zipper

-- | Intermediate structure for creating
-- `Data.Text.ParagraphLayout.Internal.Run.Run` values.
data ProtoRun = ProtoRun
    { zipper :: Zipper
    , followingLevels :: TextLevels
    , level :: Level
    , script :: ScriptCode
    }