55 lines
2.2 KiB
Python
55 lines
2.2 KiB
Python
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'[^\\"]+'),
|
|
]
|
|
|
|
# TODO: a lot of these rules need fixing
|
|
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
|