diff options
author | John MacFarlane <jgm@berkeley.edu> | 2014-08-07 16:29:20 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2014-08-07 16:29:20 -0700 |
commit | 08bed142bac5b245d72810f08c2170df671cba5c (patch) | |
tree | fecad6ef3790a4b7c2a7598a87df0d548b08ca4b /src | |
parent | 17e48ba81e4bb339b7bc08aed9b42c592bdbcd01 (diff) | |
parent | 07bb41d6da2c4c3566acb447413da3fbcc6c0949 (diff) | |
download | pandoc-08bed142bac5b245d72810f08c2170df671cba5c.tar.gz |
Merge pull request #1496 from mpickering/master
Org Writer: Write anchor elements
Diffstat (limited to 'src')
-rw-r--r-- | src/Text/Pandoc/Writers/Org.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Writers/Org.hs b/src/Text/Pandoc/Writers/Org.hs index 87046537c..414883b29 100644 --- a/src/Text/Pandoc/Writers/Org.hs +++ b/src/Text/Pandoc/Writers/Org.hs @@ -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 |