Merge pull request #1496 from mpickering/master

Org Writer: Write anchor elements
This commit is contained in:
John MacFarlane 2014-08-07 16:29:20 -07:00
commit 08bed142ba

View file

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