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