Text.Xournal.Parse.Conduit

utils

dropWhile :: (Show a, Monad m) => (a -> Bool) -> Sink a m ()

flipap :: a -> (a -> b) -> b

unit :: Monad m => m ()

skipspace :: Text -> Text

many0event :: Monad m => (Text, Text) -> (Event -> Sink Event m (Either String a)) -> Sink Event m (Either String [a])

many1event :: Monad m => (Text, Text) -> (Event -> Sink Event m (Either String a)) -> Sink Event m (Either String [a])

many1eventWrkr :: Monad m => (Text, Text) -> ([a] -> [a]) -> (Event -> Sink Event m (Either String a)) -> Sink Event m (Either String [a])

drop2NextStartOrEnd :: Monad m => Sink Event m (Either (Text, Event) Text)

parsers

pXournal :: Monad m => Sink Event m (Either String Xournal)

parse whole xournal file

pPage :: Monad m => Event -> Sink Event m (Either String Page)

parse one page

pTitle :: Monad m => Sink Event m (Either String ByteString)

pBkg :: Monad m => Sink Event m (Either String Background)

pLayer :: Monad m => Event -> Sink Event m (Either String Layer)

pStroke :: Monad m => Event -> Sink Event m (Either String Stroke)

for each event

getStrokeContent :: ([Pair Double Double] -> [Pair Double Double]) -> Text -> Either String [Pair Double Double]

getStroke :: Event -> Either String (Stroke, StrokeWidth)

data StrokeWidth

Constructors

SingleWidth Double

VarWidth [Double]

Instances

Show StrokeWidth

getWidth :: ([Double] -> [Double]) -> Text -> Either String StrokeWidth

getBackground :: Event -> Either String Background

getDimension :: Event -> Either String Dimension

getContent :: Event -> Either String Text

get Content

predicates

isEventStartEnd :: Event -> Bool

isStart :: Text -> Event -> Bool

check start of element with name txt

isEnd :: Text -> Event -> Bool

check end of element with name txt

driver routines

parseXmlFile :: (MonadThrow m, MonadIO m) => Handle -> Sink Event m a -> m a

generic xml file driver

parseXojFile :: FilePath -> IO (Either String Xournal)

for xournal

parseXojGzFile :: FilePath -> IO (Either String Xournal)

parseXournal :: FilePath -> IO (Either String Xournal)

iterPrint :: (Show s, MonadIO m) => Sink s m ()

printing for debug