[Lisppaste-cvs] CVS lisppaste2

[bmastenbrook]

Update of /project/lisppaste/cvsroot/lisppaste2
In directory clnet:/tmp/cvs-serv16440

Modified Files:
	coloring-types.lisp 
Log Message:
Add autodetection for Erlang syntax coloring


--- /project/lisppaste/cvsroot/lisppaste2/coloring-types.lisp	2006/08/14 21:33:00	1.19
+++ /project/lisppaste/cvsroot/lisppaste2/coloring-types.lisp	2006/08/14 21:34:02	1.20
@@ -520,6 +520,8 @@
 (defparameter *erlang-terminators* '(#\space #\return #\tab #\newline #\. #\; #\, #\/ #\- #\* #\+ #\( #\) #\' #\" #\[ #\] #\< #\> #\{ #\}))
 
 (define-coloring-type :erlang "Erlang"
+  :autodetect (lambda (text)
+                (search "erlang" text :test #'char=))
   :modes (:first-char-on-line :normal :char :comment :word-ish :variable :atom  :paren-ish :string :single-escape :attribute :function :macro)
   :default-mode :first-char-on-line
   :transitions