better mutt mode

--HG--
branch : pmacs2
This commit is contained in:
moculus 2009-05-03 23:47:27 +00:00
parent 9155446878
commit 9674295203
1 changed files with 29 additions and 26 deletions

View File

@ -2,11 +2,9 @@ import re
from mode import Fundamental
from method import WrapParagraph
from mode.text import ContinuedRule, WordRule, TextInsertSpace
from lex import Grammar, PatternRule
from lex import Grammar, PatternRule, RegionRule, PatternMatchRule
class MuttGrammar(Grammar):
rules = [
PatternRule('mutt_header', '^(?:From|To|Cc|Bcc|Subject|Reply-To|In-Reply-To|Delivered-To|Date):'),
PatternRule('quotec', '^ *(?:(?: *>){3})*(?: *>){3}.*$'),
PatternRule('quoteb', '^ *(?:(?: *>){3})*(?: *>){2}.*$'),
PatternRule('quotea', '^ *(?:(?: *>){3})*(?: *>){1}.*$'),
@ -14,10 +12,15 @@ class MuttGrammar(Grammar):
PatternRule('url', r'(?:^|(?<= ))(?:http|https|ftp|sftp|file|smtp|smtps|torrent|news|jabber|irc|telnet)://(?:[^\.\n ]+\.)*[^\.\n ]+'),
ContinuedRule(),
WordRule(),
PatternRule('punct', '[^a-zA-Z0-9_]'),
PatternRule('stuff', '[a-zA-Z0-9_]+'),
PatternRule('punctuation', '[^a-zA-Z0-9_]'),
PatternRule('data', '[a-zA-Z0-9_]+'),
]
class HeaderGrammar(Grammar): rules = [PatternRule('header', '^.+:')] + rules
class BodyGrammar(Grammar): rules = rules
class MuttGrammar(Grammar):
rules = [RegionRule('mutt', '^', HeaderGrammar, '^\n$', BodyGrammar, '')]
class MuttWrapParagraph(WrapParagraph):
limit = 72
empty_re = re.compile('^(?: *>.*| *)$')
@ -28,18 +31,18 @@ class Mutt(Fundamental):
name = 'Mutt'
grammar = MuttGrammar()
colors = {
'mutt_header': ('green', 'default', 'bold'),
'email': ('cyan', 'default', 'bold'),
'url': ('cyan', 'default', 'bold'),
'quotea': ('yellow', 'default', 'bold'),
'quoteb': ('cyan', 'default', 'bold'),
'quotec': ('magenta', 'default', 'bold'),
'misspelled': ('red', 'default', 'bold'),
'cont.start': ('default', 'default', 'bold'),
'cont.end': ('default', 'default', 'bold'),
'word': ('default', 'default', 'bold'),
'punct': ('default', 'default', 'bold'),
'stuff': ('default', 'default', 'bold'),
'mutt.header': ('green', 'default', 'bold'),
'mutt.email': ('cyan', 'default', 'bold'),
'mutt.url': ('cyan', 'default', 'bold'),
'mutt.quotea': ('yellow', 'default', 'bold'),
'mutt.quoteb': ('cyan', 'default', 'bold'),
'mutt.quotec': ('magenta', 'default', 'bold'),
'mutt.misspelled': ('red', 'default', 'bold'),
'mutt.cont.start': ('default', 'default'),
'mutt.cont.end': ('default', 'default'),
'mutt.word': ('default', 'default'),
'mutt.punctuation': ('default', 'default'),
'mutt.data': ('default', 'default'),
}
actions = [MuttInsertSpace, MuttWrapParagraph]
config = {