Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Merge pull request #1496 from mpickering/master

Browse source 
Org Writer: Write anchor elements
This commit is contained in:
John MacFarlane 2014-08-07 16:29:20 -07:00
commit 08bed142ba
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Text/Pandoc/Writers/Org.hs
View file

@ -238,6 +238,8 @@ inlineListToOrg lst = mapM inlineToOrg lst >>= return . hcat
-- | Convert Pandoc inline element to Org. -- | Convert Pandoc inline element to Org.
inlineToOrg :: Inline -> State WriterState Doc inlineToOrg :: Inline -> State WriterState Doc
inlineToOrg (Span (uid, [], []) []) =
return $ "<<" <> text uid <> ">>"
inlineToOrg (Span _ lst) = inlineToOrg (Span _ lst) =
inlineListToOrg lst inlineListToOrg lst
inlineToOrg (Emph lst) = do inlineToOrg (Emph lst) = do