diff options
Diffstat (limited to 'pygments/lexers/agile.py')
| -rw-r--r-- | pygments/lexers/agile.py | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/pygments/lexers/agile.py b/pygments/lexers/agile.py index 4da93415..88f0d983 100644 --- a/pygments/lexers/agile.py +++ b/pygments/lexers/agile.py @@ -5,7 +5,7 @@ Lexers for agile languages. - :copyright: Copyright 2006-2013 by the Pygments team, see AUTHORS. + :copyright: Copyright 2006-2014 by the Pygments team, see AUTHORS. :license: BSD, see LICENSE for details. """ @@ -1022,7 +1022,6 @@ class PerlLexer(RegexLexer): return True if 'my $' in text: return 0.9 - return 0.1 # who knows, might still be perl! class LuaLexer(RegexLexer): @@ -2302,17 +2301,17 @@ class HyLexer(RegexLexer): aliases = ['hylang'] filenames = ['*.hy'] mimetypes = ['text/x-hy', 'application/x-hy'] - + special_forms = [ 'cond', 'for', '->', '->>', 'car', 'cdr', 'first', 'rest', 'let', 'when', 'unless', 'import', 'do', 'progn', 'get', 'slice', 'assoc', 'with-decorator', - ',', 'list_comp', 'kwapply', '~', 'is', 'in', 'is-not', 'not-in', + ',', 'list_comp', 'kwapply', '~', 'is', 'in', 'is-not', 'not-in', 'quasiquote', 'unquote', 'unquote-splice', 'quote', '|', '<<=', '>>=', - 'foreach', 'while', + 'foreach', 'while', 'eval-and-compile', 'eval-when-compile' ] - + declarations = [ 'def' 'defn', 'defun', 'defmacro', 'defclass', 'lambda', 'fn', 'setv' ] @@ -2401,4 +2400,5 @@ class HyLexer(RegexLexer): } def analyse_text(text): - return '(import' in text or '(defn' in text + if '(import ' in text or '(defn ' in text: + return 0.9 |