@@ -40,7 +40,7 @@ import Control.Monad (liftM, void, mzero, guard)
4040import Control.Monad.Except (throwError)
4141import Text.Pandoc.Class
4242 (getResourcePath, readFileFromDirs, PandocMonad(..), report)
43−import Data.Char (isHexDigit, chr, ord, isAscii, isAlphaNum)
43+import Data.Char (isHexDigit, chr, ord, isAscii, isAlphaNum, isSpace)
4444import Data.Default (Default)
4545import Data.Maybe (catMaybes)
4646import qualified Data.Map as M
@@ -293,7 +293,7 @@ lexMacro = do
293293 pos <- getPosition
294294 char '.' <|> char '\''
295295 many spacetab
296− macroName <- many (letter <|> oneOf ['\\', '"', '&', '.'])
296+ macroName <- many (satisfy (not . isSpace))
297297 args <- lexArgs
298298
299299 case macroName of
@@ -301,6 +301,7 @@ lexMacro = do
301301 "\\\"" -> return mempty
302302 "\\#" -> return mempty
303303 "de" -> lexMacroDef args
304+ "de1" -> lexMacroDef args
304305 "ds" -> lexStringDef args
305306 "ds1" -> lexStringDef args
306307 "sp" -> return $ singleTok MEmptyLine