@@ -573,16 +573,29 @@ parseInline = try $ do
573 tok <- mtoken
573 tok <- mtoken
574 case tok of
574 case tok of
575 MLine lparts -> return $ linePartsToInlines lparts
575 MLine lparts -> return $ linePartsToInlines lparts
576+ MMacro mname args ->
576− MMacro "UR" args -> parseLink args
578+ "UR" -> parseLink args
577− MMacro "MT" args -> parseEmailLink args
579+ "MT" -> parseEmailLink args
578− MMacro "B" args -> parseBold args
580+ "B" -> parseBold args
579− MMacro "I" args -> parseItalic args
581+ "I" -> parseItalic args
582+ "br" -> return linebreak
580− MMacro "BI" args -> parseAlternatingFonts [strong, emph] args
583+ "BI" -> parseAlternatingFonts [strong, emph] args
581− MMacro "IB" args -> parseAlternatingFonts [emph, strong] args
584+ "IB" -> parseAlternatingFonts [emph, strong] args
582− MMacro "IR" args -> parseAlternatingFonts [emph, id] args
585+ "IR" -> parseAlternatingFonts [emph, id] args
583− MMacro "RI" args -> parseAlternatingFonts [id, emph] args
586+ "RI" -> parseAlternatingFonts [id, emph] args
584− MMacro "BR" args -> parseAlternatingFonts [strong, id] args
587+ "BR" -> parseAlternatingFonts [strong, id] args
585− MMacro "RB" args -> parseAlternatingFonts [id, strong] args
588+ "RB" -> parseAlternatingFonts [id, strong] args
589+ "SY" -> return $ strong $ mconcat $ intersperse B.space
590+ $ map linePartsToInlines args
591+ "YS" -> return mempty
592+ "OP" -> case args of
593+ (x:ys) -> return $ B.space <> str "[" <> B.space <>
594+ mconcat (strong (linePartsToInlines x) :
595+ map ((B.space <>) . linePartsToInlines) ys)
596+ <> B.space <> str "]"
586 _ -> mzero
599 _ -> mzero
588parseBold :: PandocMonad m => [Arg] -> ManParser m Inlines
601parseBold :: PandocMonad m => [Arg] -> ManParser m Inlines