Implemented literal tag in docbook reader.
commitf78801aa20b06b63d3c6d3d336caf85ce3614d9e
authorJohn MacFarlane <fiddlosopher@gmail.com>
dateSat 14 Apr 2012, 21:55 (15 years ago)
parente5c4d70
src/Text/Pandoc/Readers/DocBook.hs+1
@@ -106,6 +106,7 @@ parseInline (Elem e) =
106106 return $ if qt == SingleQuote
107107 then singleQuoted contents
108108 else doubleQuoted contents
109+ "literal" -> return $ code $ strContent e -- TODO attrs
109110 "ulink" -> link
110111 (fromMaybe "" (lookupAttrBy (\attr -> qName attr == "url")
111112 (elAttribs e))) "" <$> innerInlines