import commands, os.path, sets, string, sys, traceback
import color, completer, default, mode, method, regex, tab
from point import Point
from lex import Grammar, PatternRule, RegionRule, OverridePatternRule
from mode.lisp import LispTabber, LispCommentRegion, LispUncommentRegion

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

class ELispGrammar(Grammar):
    rules = [
        PatternRule(r'comment', r';.*$'),
        PatternRule(r'delimiter', r'[()]'),
        PatternRule(r'elisp_reserved', r'(?:nil)(?![a-zA-Z0-9_])'),
        PatternRule(r'elisp_keyword', r'(?:while|when|unless|setq|require|or|not|mapcar|list|let|lambda|if|exists|equal|defvar|defun|defalias|count|cons|cdr|car|apply|and)(?![a-zA-Z0-9_])'),
        PatternRule(r'elisp_symbol', r"'[a-zA-Z_][a-zA-Z0-9-_]*"),
        PatternRule(r'elisp_type', r":[a-zA-Z_][a-zA-Z0-9-_]*"),
        PatternRule(r'attribute', r"&[a-zA-Z_][a-zA-Z0-9-_]*"),
        PatternRule(r'bareword', r"[a-zA-Z_][a-zA-Z0-9-_]*"),
        PatternRule(r"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(r"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(r"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_])"),
        RegionRule(r'string', r'"', StringGrammar, r'"'),
        PatternRule(r'eol', r'\n$'),
    ]

#class ELispTabber(tab.StackTabber):
#    pass

class ELisp(mode.Fundamental):
    modename    = 'ELisp'
    tabwidth    = 2
    basenames   = ['.emacs']
    extensions  = ['.el']
    tabbercls   = LispTabber
    grammar     = ELispGrammar
    opentokens  = ('delimiter',)
    opentags    = {'(': ')', '[': ']', '{': '}'}
    closetokens = ('delimiter',)
    closetags   = {')': '(', ']': '[', '}': '{'}
    colors      = {
        'elisp_keyword':  ('cyan', 'default', 'bold'),
        'elisp_reserved': ('blue', 'default', 'bold'),
        'elisp_symbol':   ('magenta', 'default', 'bold'),
        'elisp_type':     ('blue', 'default', 'bold'),
    }
    def __init__(self, w):
        mode.Fundamental.__init__(self, w)
        self.add_bindings('close-paren', (')',))
        self.add_bindings('close-brace', ('}',))
        self.add_bindings('close-bracket', (']',))
        self.add_bindings('lisp-comment-region', ('C-c #',))
        self.add_bindings('lisp-uncomment-region', ('C-u C-C #',))

install = ELisp.install