from mode import Fundamental
from point import Point
from lex import Grammar, PatternRule, RegionRule, OverridePatternRule
from mode.lisp import Lisp, LispTabber

class StringGrammar(Grammar):
    rules = [
        PatternRule('octal', r'\\[0-7]{3}'),
        PatternRule('escaped', r'\\.'),
        PatternRule('data', r'[^\\"]+'),
    ]

chr1 = '[a-zA-Z_]'
chr2 = '[a-zA-Z0-9-_]'
symb = chr1 + chr2 + '*'

class ELispGrammar(Grammar):
    rules = [
        PatternRule('comment', ';.*$'),
        PatternRule('delimiter', '[()]'),
        PatternRule('spaces', ' +'),
        PatternRule('eol', r'\n'),
        PatternRule('elisp_reserved', r'(?:t|nil)(?![^\"\' \t()])'),
        PatternRule('keyword', r'(?:while|when|unless|setq-default|setq|setcar|require|provide|or|not|mapcar|list|let\*|let|lambda|if|exists|equal|defvar|defun|defstruct|defface|defalias|count|cons|c[ad]+r|apply|and)(?![^\"\' \t()])'),
        PatternRule('elisp_symbol', "'" + symb),
        PatternRule('delimiter', r"'"),
        PatternRule('elisp_type', ":" + symb),
        PatternRule('attribute', "&" + symb),
        PatternRule("integer", r"(?<![\.0-9a-zA-Z_])(?:0|-?[1-9][0-9]*|0[0-7]+|0[xX][0-9a-fA-F]+)[lL]?(?![\.0-9a-zA-Z_])"),
        PatternRule("float", r"(?<![\.0-9a-zA-Z_])(?:[0-9]+\.[0-9]*|\.[0-9]+|(?:[0-9]|[0-9]+\.[0-9]*|\.[0-9]+)[eE][\+-]?[0-9]+)(?![\.0-9a-zA-Z_])"),
        PatternRule("imaginary", r"(?<![\.0-9a-zA-Z_])(?:[0-9]+|(?:[0-9]+\.[0-9]*|\.[0-9]+|(?:[0-9]|[0-9]+\.[0-9]*|\.[0-9]+)[eE][\+-]?[0-9]+)[jJ])(?![\.0-9a-zA-Z_])"),
        PatternRule('elisp_word', r"[^\"' \t()]+"),
        RegionRule('string', r'"', StringGrammar, r'"'),
        PatternRule('eol', r'\n$'),
    ]

class ELisp(Lisp):
    name        = 'ELisp'
    basenames   = ['.emacs']
    extensions  = ['.el']
    grammar     = ELispGrammar
    opentokens  = ('delimiter',)
    opentags    = {'(': ')', '[': ']', '{': '}'}
    closetokens = ('delimiter',)
    closetags   = {')': '(', ']': '[', '}': '{'}
    colors      = {
        'elisp_reserved': ('blue', 'default', 'bold'),
        'elisp_symbol':   ('magenta', 'default', 'bold'),
        'elisp_type':     ('blue', 'default', 'bold'),
        'elisp_word':     ('default', 'default'),
    }

install = ELisp.install