pandocz-0.0.2: Lenses for Pandoc
Safe HaskellSafe-Inferred
LanguageHaskell2010

Text.Pandoc.Z.Readers

Synopsis

Documentation

>>> import Text.Pandoc.Z.Util

convertReader :: Functor f => (a -> b -> f Pandoc) -> a -> b -> f Pandoc Source #

readCSV :: (PandocMonad m, ToSources a) => ReaderOptions -> a -> m Pandoc Source #

>>> readPandocExtensions readCSV "abc,def,\"ghi\""
Right (Pandoc (Meta (fromList [])) [TableBlock (Table (Attr "" [] []) (Caption Nothing []) [ColSpec AlignDefault ColWidthDefault,ColSpec AlignDefault ColWidthDefault,ColSpec AlignDefault ColWidthDefault] (TableHead (Attr "" [] []) [Row (Attr "" [] []) [Cell (Attr "" [] []) AlignDefault (RowSpan (RowSpan 1)) (ColSpan (ColSpan 1)) [Plain [Str "abc"]],Cell (Attr "" [] []) AlignDefault (RowSpan (RowSpan 1)) (ColSpan (ColSpan 1)) [Plain [Str "def"]],Cell (Attr "" [] []) AlignDefault (RowSpan (RowSpan 1)) (ColSpan (ColSpan 1)) [Plain [Str "ghi"]]]]) [TableBody (Attr "" [] []) (RowHeadColumns (RowHeadColumns 0)) [] []] (TableFoot (Attr "" [] []) []))])
>>> readPandocExtensions readCSV "abc,def,\"ghi\"\njkl,mno,pqr\n"
Right (Pandoc (Meta (fromList [])) [TableBlock (Table (Attr "" [] []) (Caption Nothing []) [ColSpec AlignDefault ColWidthDefault,ColSpec AlignDefault ColWidthDefault,ColSpec AlignDefault ColWidthDefault] (TableHead (Attr "" [] []) [Row (Attr "" [] []) [Cell (Attr "" [] []) AlignDefault (RowSpan (RowSpan 1)) (ColSpan (ColSpan 1)) [Plain [Str "abc"]],Cell (Attr "" [] []) AlignDefault (RowSpan (RowSpan 1)) (ColSpan (ColSpan 1)) [Plain [Str "def"]],Cell (Attr "" [] []) AlignDefault (RowSpan (RowSpan 1)) (ColSpan (ColSpan 1)) [Plain [Str "ghi"]]]]) [TableBody (Attr "" [] []) (RowHeadColumns (RowHeadColumns 0)) [] [Row (Attr "" [] []) [Cell (Attr "" [] []) AlignDefault (RowSpan (RowSpan 1)) (ColSpan (ColSpan 1)) [Plain [Str "jkl"]],Cell (Attr "" [] []) AlignDefault (RowSpan (RowSpan 1)) (ColSpan (ColSpan 1)) [Plain [Str "mno"]],Cell (Attr "" [] []) AlignDefault (RowSpan (RowSpan 1)) (ColSpan (ColSpan 1)) [Plain [Str "pqr"]]]]] (TableFoot (Attr "" [] []) []))])

readTSV :: (PandocMonad m, ToSources a) => ReaderOptions -> a -> m Pandoc Source #

>>> readPandocExtensions readTSV "abc\tdef\t,\"ghi\""
Right (Pandoc (Meta (fromList [])) [TableBlock (Table (Attr "" [] []) (Caption Nothing []) [ColSpec AlignDefault ColWidthDefault,ColSpec AlignDefault ColWidthDefault] (TableHead (Attr "" [] []) [Row (Attr "" [] []) [Cell (Attr "" [] []) AlignDefault (RowSpan (RowSpan 1)) (ColSpan (ColSpan 1)) [Plain [Str "abc",Space,Str "def",Space]],Cell (Attr "" [] []) AlignDefault (RowSpan (RowSpan 1)) (ColSpan (ColSpan 1)) [Plain [Str "ghi"]]]]) [TableBody (Attr "" [] []) (RowHeadColumns (RowHeadColumns 0)) [] []] (TableFoot (Attr "" [] []) []))])

readHtml :: (PandocMonad m, ToSources a) => ReaderOptions -> a -> m Pandoc Source #

>>> readPandocExtensions readHtml "abc"
Right (Pandoc (Meta (fromList [])) [Plain [Str "abc"]])
>>> readPandocExtensions readHtml "<p><div>abc</div></p>"
Right (Pandoc (Meta (fromList [])) [DivBlock (Div (Attr "" [] []) [Plain [Str "abc"]]),RawBlock (Raw (Format (Format "html")) "</p>")])
>>> readPandocExtensions readHtml "<b><p><div>abc</div></p></b>"
Right (Pandoc (Meta (fromList [])) [Plain [Strong []],DivBlock (Div (Attr "" [] []) [Plain [Str "abc"]]),RawBlock (Raw (Format (Format "html")) "</p>"),Plain [RawInline (Raw (Format (Format "html")) "</b>")]])

readMarkdown :: (PandocMonad m, ToSources a) => ReaderOptions -> a -> m Pandoc Source #

>>> readPandocExtensions readMarkdown "abc"
Right (Pandoc (Meta (fromList [])) [Para [Str "abc"]])
>>> readPandocExtensions readMarkdown "**abc** _def_"
Right (Pandoc (Meta (fromList [])) [Para [Strong [Str "abc"],Space,Emph [Str "def"]]])
>>> readPandocExtensions readMarkdown "  abc   def   ghi\n  ----- ----- -----\n  jkl   mno   pqr\n"
Right (Pandoc (Meta (fromList [])) [TableBlock (Table (Attr "" [] []) (Caption Nothing []) [ColSpec AlignLeft ColWidthDefault,ColSpec AlignLeft ColWidthDefault,ColSpec AlignLeft ColWidthDefault] (TableHead (Attr "" [] []) [Row (Attr "" [] []) [Cell (Attr "" [] []) AlignDefault (RowSpan (RowSpan 1)) (ColSpan (ColSpan 1)) [Plain [Str "abc"]],Cell (Attr "" [] []) AlignDefault (RowSpan (RowSpan 1)) (ColSpan (ColSpan 1)) [Plain [Str "def"]],Cell (Attr "" [] []) AlignDefault (RowSpan (RowSpan 1)) (ColSpan (ColSpan 1)) [Plain [Str "ghi"]]]]) [TableBody (Attr "" [] []) (RowHeadColumns (RowHeadColumns 0)) [] [Row (Attr "" [] []) [Cell (Attr "" [] []) AlignDefault (RowSpan (RowSpan 1)) (ColSpan (ColSpan 1)) [Plain [Str "jkl"]],Cell (Attr "" [] []) AlignDefault (RowSpan (RowSpan 1)) (ColSpan (ColSpan 1)) [Plain [Str "mno"]],Cell (Attr "" [] []) AlignDefault (RowSpan (RowSpan 1)) (ColSpan (ColSpan 1)) [Plain [Str "pqr"]]]]] (TableFoot (Attr "" [] []) []))])