move name lexing stuff to Quox.Name

lib/Quox/Parser/Lexer.idr

@@ -59,39 +59,9 @@ match t f = Tokenizer.match t (Just . f)
 %hide Tokenizer.match
 
 
-export %inline
-syntaxChars : List Char
-syntaxChars = ['(', ')', '[', ']', '{', '}', '"', '\'', ',', '.', ';']
-
-private
-isSymStart, isSymCont : Char -> Bool
-isSymStart c = not (c `elem` syntaxChars) && isSymChar c
-isSymCont  c = c == '\'' || isSymStart c
-
-private
-idStart, idCont, idEnd, idContEnd : Lexer
-idStart   = pred isIdStart
-idCont    = pred isIdCont
-idEnd     = pred $ \c => c `elem` unpack "?!#"
-idContEnd = idCont <|> idEnd
-
-private
-symStart, symCont : Lexer
-symStart  = pred isSymStart
-symCont   = pred isSymCont
-
-private
-baseNameL : Lexer
-baseNameL = idStart <+> many idCont <+> many idEnd
-        <|> symStart <+> many symCont
-
-private
-nameL : Lexer
-nameL = baseNameL <+> many (is '.' <+> baseNameL)
-
 private
 name : Tokenizer TokenW
-name = match nameL $ Name . fromListP . split (== '.') . normalizeNfc
+name = match name $ Name . fromListP . split (== '.') . normalizeNfc
 
 ||| [todo] escapes other than `\"` and (accidentally) `\\`
 export
@@ -113,7 +83,7 @@ nat = match (some (range '0' '9')) (Nat . cast)
 
 private
 tag : Tokenizer TokenW
-tag = match (is '\'' <+> nameL)     (Tag . drop 1)
+tag = match (is '\'' <+> name)      (Tag . drop 1)
   <|> match (is '\'' <+> stringLit) (Tag . fromStringLit . drop 1)