Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Man reader: allow any nonspace char for macro name.

Browse source
This commit is contained in:
John MacFarlane 2018-10-23 00:49:57 -07:00
parent c6590b193d
commit a7819c6440
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Text/Pandoc/Readers/Man.hs
View file

@ -40,7 +40,7 @@ import Control.Monad (liftM, void, mzero, guard)
import Control.Monad.Except (throwError)
import Text.Pandoc.Class
(getResourcePath, readFileFromDirs, PandocMonad(..), report)
import Data.Char (isHexDigit, chr, ord, isAscii, isAlphaNum)
import Data.Char (isHexDigit, chr, ord, isAscii, isAlphaNum, isSpace)
import Data.Default (Default)
import Data.Maybe (catMaybes)
import qualified Data.Map as M
@ -293,7 +293,7 @@ lexMacro = do
pos <- getPosition
char '.' <|> char '\''
many spacetab
macroName <- many (letter <|> oneOf ['\\', '"', '&', '.'])
macroName <- many (satisfy (not . isSpace))
args <- lexArgs
case macroName of
@ -301,6 +301,7 @@ lexMacro = do
"\\\"" -> return mempty
"\\#" -> return mempty
"de" -> lexMacroDef args
"de1" -> lexMacroDef args
"ds" -> lexStringDef args
"ds1" -> lexStringDef args
"sp" -> return $ singleTok MEmptyLine