dd5d234 · typeable/pandoc

git.iko.soy/typeable/pandoc

Muse reader: do not allow code markup to be followed by digit

commitdd5d234c6a0be60d313863b08c8d12bdb97fff8f authorAlexander Krotov <ilabdsf@gmail.com> dateFri 21 Sep 2018, 13:07 (8 years ago) parentca0bb51

2 files changed+6−2

unifiedsplit

src/Text/Pandoc/Readers/Muse.hs+2−2

@@ -43,7 +43,7 @@ import Prelude

4343import Control.Monad

4444import Control.Monad.Except (throwError)

4545import Data.Bifunctor

46−import Data.Char (isLetter, isDigit)

46+import Data.Char (isLetter, isDigit, isAlphaNum)

4747import Data.Default

4848import Data.List (intercalate)

4949import Data.List.Split (splitOn)

@@ -913,7 +913,7 @@ code = try $ do

913913 guard $ not $ null contents

914914 guard $ head contents `notElem` " \t\n"

915915 guard $ last contents `notElem` " \t\n"

916− notFollowedBy $ satisfy isLetter

916+ notFollowedBy $ satisfy isAlphaNum

917917 return $ return $ B.code contents

918918

919919-- | Parse @\<code>@ tag.

test/Tests/Readers/Muse.hs+4

@@ -150,6 +150,10 @@ tests =

150150 "Foo =bar=, baz" =?>

151151 para (text "Foo " <> code "bar" <> text ", baz")

152152

153+ , "Not code if followed by digit" =:

154+ "Foo =bar=0 baz" =?>

155+ para (text "Foo =bar=0 baz")

156+

153157 , "One character code" =: "=c=" =?> para (code "c")

154158

155159 , "Three = characters is not a code" =: "===" =?> para "==="