lib/rouge/lexers/tcl.rb in rouge-0.0.6 vs lib/rouge/lexers/tcl.rb in rouge-0.0.7

@@ -1,8 +1,16 @@
 module Rouge
   module Lexers
-    class TCLLexer < RegexLexer
+    class TCL < RegexLexer
       tag 'tcl'
+      filenames '*.tcl'
+      mimetypes 'text/x-tcl', 'text/x-script.tcl', 'application/x-tcl'
+
+      def self.analyze_text(text)
+        return 1 if text.shebang? 'tclsh'
+        return 1 if text.shebang? 'wish'
+        return 1 if text.shebang? 'jimsh'
+      end
 
       KEYWORDS = %w(
         after apply array break catch continue elseif else error
         eval expr for foreach global if namespace proc rename return
         set switch then trace unset update uplevel upvar variable