git.iko.soy/typeable/pandoc
on master help sign in
Org reader: mark verbatim code with class "verbatim". (#6998)
57b1094Dimitri Sabadie
src/Text/Pandoc/Readers/Org/Inlines.hs+1−1
compare with master
unifiedsplit
@@ -572,7 +572,7 @@ underline :: PandocMonad m => OrgParser m (F Inlines)
572underline = fmap B.underline <$> emphasisBetween '_'
572underline = fmap B.underline <$> emphasisBetween '_'
573
573
574verbatim :: PandocMonad m => OrgParser m (F Inlines)
574verbatim :: PandocMonad m => OrgParser m (F Inlines)
575−verbatim = return . B.code <$> verbatimBetween '='
575+verbatim = return . B.codeWith ("", ["verbatim"], []) <$> verbatimBetween '='
576
576
577code :: PandocMonad m => OrgParser m (F Inlines)
577code :: PandocMonad m => OrgParser m (F Inlines)
578code = return . B.code <$> verbatimBetween '~'
578code = return . B.code <$> verbatimBetween '~'
test/Tests/Readers/Org/Inline.hs+2−2
@@ -56,7 +56,7 @@ tests =
56
56
57 , "Verbatim" =:
57 , "Verbatim" =:
58 "=Robot.rock()=" =?>
58 "=Robot.rock()=" =?>
59− para (code "Robot.rock()")
59+ para (codeWith ("", ["verbatim"], []) "Robot.rock()")
60
60
61 , "Code" =:
61 , "Code" =:
62 "~word for word~" =?>
62 "~word for word~" =?>
@@ -190,7 +190,7 @@ tests =
190 ])
190 ])
191 , "Verbatim text can contain equal signes (=)" =:
191 , "Verbatim text can contain equal signes (=)" =:
192 "=is_subst = True=" =?>
192 "=is_subst = True=" =?>
193− para (code "is_subst = True")
193+ para (codeWith ("", ["verbatim"], []) "is_subst = True")
194
194
195 , testGroup "Images"
195 , testGroup "Images"
196 [ "Image" =:
196 [ "Image" =: