support RGBA hex notation in CSS

Author: ap

autoload/css_color.vim

@@ -144,8 +144,8 @@ function! s:create_syn_match()
 		let rgb_color
 			\ = funcname == 'rgb' ? s:rgb2color(submatch(3),submatch(4),submatch(5))
 			\ : funcname == 'hsl' ? s:hsl2color(submatch(3),submatch(4),submatch(5))
-			\ : strlen(hex) == 6  ? tolower(hex)
-			\ : strlen(hex) == 3  ? tolower(hex[0].hex[0].hex[1].hex[1].hex[2].hex[2])
+			\ : strlen(hex) >= 6  ? tolower(hex[0:5])
+			\ : strlen(hex) >= 3  ? tolower(hex[0].hex[0].hex[1].hex[1].hex[2].hex[2])
 			\ : ''
 
 		if rgb_color == '' | throw 'css_color: create_syn_match invoked on bad match data' | endif
@@ -199,13 +199,14 @@ function! s:create_matches()
 endfunction
 
 let s:_hexcolor   = '#\(\x\{3}\%(\>\|\x\{3}\>\)\)' " submatch 1
+let s:_rgbacolor  = '#\(\x\{3}\%(\>\|\x\%(\>\|\x\{2}\%(\>\|\x\{2}\>\)\)\)\)' " submatch 1
 let s:_funcname   = '\(rgb\|hsl\)a\?' " submatch 2
 let s:_ws_        = '\s*'
 let s:_numval     = s:_ws_ . '\(\d\{1,3}%\?\)' " submatch 3,4,5
 let s:_listsep    = s:_ws_ . ','
 let s:_otherargs_ = '\%(,[^)]*\)\?'
 let s:_funcexpr   = s:_funcname . '[(]' . s:_numval . s:_listsep . s:_numval . s:_listsep . s:_numval . s:_ws_ . s:_otherargs_ . '[)]'
-let s:_csscolor   = s:_hexcolor . '\|' . s:_funcexpr
+let s:_csscolor   = s:_rgbacolor . '\|' . s:_funcexpr
 " N.B. sloppy heuristic constants for performance reasons:
 "      a) start somewhere left of screen in case of partially visible colorref
 "      b) take some multiple of &columns to handle multibyte chars etc