nicer erlang syntax highlighting

erlang.jsf

@@ -1,26 +1,32 @@
 # JOE syntax highlight file for Erlang
 
 =Idle
-=Comment	green
+=Comment	fg_030
-=Constant	cyan
+=String		fg_110
-=Escape		bold cyan
+=Int		fg_033
+=Record		fg_530
+=Recatt		fg_530
+=Fun		fg_115
+=Module		fg_101
 =Keyword	bold
-=Bad		bold red
+=Brace		fg_555 bold
-=Brace		magenta
+=Brack		fg_222
 
 =Variable	fg_310
-=Attribute	magenta
+=Attribute	fg_505
 
 :idle Idle
 	*		idle
-	"A-Z"		variable	noeat
+	"A-Z_"		variable	noeat
 	"%"		line_comment	noeat
 	"\""		string		recolor=-1
 	"'"		quoted_atom	recolor=-1
 	"0-9"		decimal		recolor=-1
-	"{[]}"		brace		recolor=-1
+        "[]"            brack           recolor=-1
+	"{}"		brace		recolor=-1
 	"-"		maybe_attribute	mark
-	"a-z"		atom		buffer
+	"a-z"		atom		buffer mark noeat
+	"#"		record		recolor=-1
 
 :line_comment Comment
 	*		line_comment
@@ -28,28 +34,40 @@
 
 :variable Variable
 	*		idle		noeat
-	"a-zA-Z"	variable
+	"a-zA-Z0-9_"	variable
 
-:string Constant
+:record Record
+	*		idle		noeat
+	"a-zA-z_"	record
+	"."		recatt		recolor=-1
+
+:recatt Recatt
+	*		idle		noeat
+	"a-zA-Z_"	recatt
+
+:string String
 	*		string
 	"\""		idle
 
-:decimal Constant
+:decimal Int
 	*		idle		noeat
 	"0-9"		decimal
 	"."		float
 
-:float Constant
+:float Int
 	*		idle		noeat
 	"0-9"		float
 
 :brace Brace
 	*		idle		noeat
 
+:brack Brack
+	*		idle		noeat
+
 :maybe_attribute Idle
 	*		idle		noeat
-	"a-z"		maybe_attribute
+	"a-z_"		maybe_attribute
-	"("		attribute	recolormark
+	"(."		attribute	recolormark noeat
 
 :attribute Attribute
 	*		idle		noeat
@@ -84,9 +102,17 @@
 	"try"		kw
 	"when"		kw
 	"xor"		kw
-done
+done 
+	"("		function	recolormark noeat
+	":"		module		recolormark noeat
 	"a-zA-Z0-9_@"	atom
 
+:module Module
+	*		idle		noeat
+
+:function Fun
+	*		idle		noeat
+
 :kw Keyword
 	*		idle		noeat
 

ftyperc

@@ -895,6 +895,32 @@
 *.erl
 -syntax erlang
 -autoindent
+-tab 4
+
+*.eterm
+-syntax erlang
+-autoindent
+-tab 4
+
+*.app.src
+-syntax erlang
+-autoindent
+-tab 4
+
+*rebar.config
+-syntax erlang
+-autoindent
+-tab 4
+
+*.hrl
+-syntax erlang
+-autoindent
+-tab 4
+
+*.erlang
+-syntax erlang
+-autoindent
+-tab 4
 
  Sieve (ManageSieve)
 *.sieve