aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Text/Pandoc/Readers/Man.hs33
1 files changed, 23 insertions, 10 deletions
diff --git a/src/Text/Pandoc/Readers/Man.hs b/src/Text/Pandoc/Readers/Man.hs
index 8bc834292..41f9ba8b5 100644
--- a/src/Text/Pandoc/Readers/Man.hs
+++ b/src/Text/Pandoc/Readers/Man.hs
@@ -573,16 +573,29 @@ parseInline = try $ do
tok <- mtoken
case tok of
MLine lparts -> return $ linePartsToInlines lparts
- MMacro "UR" args -> parseLink args
- MMacro "MT" args -> parseEmailLink args
- MMacro "B" args -> parseBold args
- MMacro "I" args -> parseItalic args
- MMacro "BI" args -> parseAlternatingFonts [strong, emph] args
- MMacro "IB" args -> parseAlternatingFonts [emph, strong] args
- MMacro "IR" args -> parseAlternatingFonts [emph, id] args
- MMacro "RI" args -> parseAlternatingFonts [id, emph] args
- MMacro "BR" args -> parseAlternatingFonts [strong, id] args
- MMacro "RB" args -> parseAlternatingFonts [id, strong] args
+ MMacro mname args ->
+ case mname of
+ "UR" -> parseLink args
+ "MT" -> parseEmailLink args
+ "B" -> parseBold args
+ "I" -> parseItalic args
+ "br" -> return linebreak
+ "BI" -> parseAlternatingFonts [strong, emph] args
+ "IB" -> parseAlternatingFonts [emph, strong] args
+ "IR" -> parseAlternatingFonts [emph, id] args
+ "RI" -> parseAlternatingFonts [id, emph] args
+ "BR" -> parseAlternatingFonts [strong, id] args
+ "RB" -> parseAlternatingFonts [id, strong] args
+ "SY" -> return $ strong $ mconcat $ intersperse B.space
+ $ map linePartsToInlines args
+ "YS" -> return mempty
+ "OP" -> case args of
+ (x:ys) -> return $ B.space <> str "[" <> B.space <>
+ mconcat (strong (linePartsToInlines x) :
+ map ((B.space <>) . linePartsToInlines) ys)
+ <> B.space <> str "]"
+ [] -> return mempty
+ _ -> mzero
_ -> mzero
parseBold :: PandocMonad m => [Arg] -> ManParser m Inlines