Allow text operators to take an unbracketed argument.

Closes #276.

Author: jgm

src/Text/TeXMath/Readers/TeX.hs

@@ -662,14 +662,19 @@ cancel c = do
     "\\xcancel" -> ECancel XSlash <$> texToken
     _           -> mzero
 
+textContents :: (Text -> Exp) -> TP [Exp]
+textContents op = char '{' *> manyTill chunk (char '}')
+ where
+   chunk = (op . T.concat <$> many1 textual)
+            <|> (char '{' *> (asGroup <$> manyTill chunk (char '}')))
+            <|> innermath
+
 text :: Text -> TP Exp
 text c = do
   op <- maybe mzero return $ M.lookup c textOps
-  char '{'
-  let chunk = ((op . T.concat) <$> many1 textual)
-            <|> (char '{' *> (asGroup <$> manyTill chunk (char '}')))
-            <|> innermath
-  contents <- manyTill chunk (char '}')
+  contents <- textContents op
+           <|> ((:[]) . op <$> textCommand)
+           <|> ((:[]) . op . T.singleton <$> noneOf "\n\t\r \\{}")
   spaces
   case contents of
        []   -> return (op "")

test/regression/276.test

@@ -0,0 +1,9 @@
+<<< tex
+x = y\text.x
+>>> native
+[ EIdentifier "x"
+, ESymbol Rel "="
+, EIdentifier "y"
+, EText TextNormal "."
+, EIdentifier "x"
+]