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