|
|
" xterm16-v2.43: Vim color scheme file
" Maintainer: Gautam Iyer <gautam@math.uchicago.edu>
" Created: Thu 16 Oct 2003 06:17:47 PM CDT
" Modified: Tue 12 Sep 2006 11:19:35 AM PDT
"
" Adjustable color scheme for GUI/Terminal vim.
let s:cpo_save = &cpo
set cpo&vim " line continuation is used
hi clear
if exists('syntax_on')
syntax reset
endif
let colors_name = 'xterm16'
" {{{1 Local function definitions
" {{{2 tohex(n): Convert a number to a 2 digit hex
let s:hex = '0123456789abcdef'
function s:tohex( n)
return a:n > 255 ? 'ff' : s:hex[a:n / 16] . s:hex[a:n % 16]
endfunction
" {{{2 extractRGB( string): Extract r,g,b components from string into s:c1,2,3
function s:extractRGB( string)
if a:string =~ '^#[0-9a-f]\{6\}$'
" Colors in hex values
let s:c1 = '0x' . strpart(a:string, 1, 2)
let s:c2 = '0x' . strpart(a:string, 3, 2)
let s:c3 = '0x' . strpart(a:string, 5, 2)
elseif a:string =~ '^\d\{3\}$'
" Colors in cterm values
let s:c1 = s:guilevel( a:string[0])
let s:c2 = s:guilevel( a:string[1])
let s:c3 = s:guilevel( a:string[2])
elseif a:string =~ '^[lmh][0-9]\{6\}'
" Colors in propotions of low / med / high
if exists('s:'.a:string[0])
let l:level = s:{a:string[0]}
let s:c1 = l:level * strpart(a:string, 1, 2) / 50
let s:c2 = l:level * strpart(a:string, 3, 2) / 50
let s:c3 = l:level * strpart(a:string, 5, 2) / 50
else
throw 'xterm16 Error: Use of propotional intensities before absolute intensities'
endif
else
throw 'xterm16 Error: Brightness / color "'. a:string . '" badly formed.'
endif
endfunction
" {{{2 guilevel(n) : Get the gui intensity of a given cterm intensity
function s:guilevel( n)
return '0x'.s:ccube[2*a:n].s:ccube[2*a:n + 1]
endfunction
" {{{2 ctermlevel(n) : Get the cterm intensity of a given gui intensity
function s:ctermlevel( n)
" Xterm color cube intensities: 00, 5f, 87, af, d7, ff
" Rxvt color cube: 00, 2a, 55, 7f, aa, d4
" cinterval should have the terminal intervals.
let l:terml = 0
while l:terml < 5
if a:n < '0x'.s:cinterval[2 * l:terml].s:cinterval[2 * l:terml + 1]
return l:terml
endif
let l:terml = l:terml + 1
endwhile
return 5
endfunction
" {{{2 guicolor( r, g, b): Return the gui color with intensities r,g,b
function s:guicolor( r, g, b)
return '#' . s:tohex(a:r) . s:tohex(a:g) . s:tohex(a:b)
endfunction
" {{{2 ctermcolor( r, g, b): Return the xterm-256 color with intensities r, g, b
function s:ctermcolor( r, g, b)
if a:r == a:g && a:r == a:b
" Use the greyscale ramp. The greyscale ramp starts from color 232
" with grey 8, and procedes in increments of 10 upto grey 238 (0xee)
if a:r <= 4
return 16
elseif a:r <= 243
return (a:r - 4) / 10 + 232
else
" Let's check if the last color in ccube is large enough.
" return (s:termtype == 'xterm' && a:r > 247) ? 231 : 255
let l:l5 = s:guilevel(5)
return ( l:l5 > 0xee && a:r > (l:l5 + 0xee)/2 ) ? 231 : 255
endif
else
" Use the rgb cube.
return s:ctermlevel(a:r) * 36 + s:ctermlevel(a:g) * 6 + s:ctermlevel(a:b) + 16
endif
endfunction
" {{{2 setcolor( name, r, g, b): Set the script variables gui_name and cterm_name
function s:setcolor( name, r, g, b)
if exists('g:xterm16_'.a:name)
" Use user-defined color settings (from global variable)
call s:extractRGB( g:xterm16_{a:name})
let s:gui_{a:name} = s:guicolor( s:c1, s:c2, s:c3)
let s:cterm_{a:name} = s:ctermcolor( s:c1, s:c2, s:c3)
else
" Set the GUI / cterm color from r,g,b
let s:gui_{a:name} = s:guicolor( a:r, a:g, a:b)
let s:cterm_{a:name} = ( &t_Co == 256 || has('gui_running') )
\ ? s:ctermcolor( a:r, a:g, a:b) : a:name
endif
" Add the color to palette
let g:xterm16_palette = g:xterm16_palette . "\n" . s:gui_{a:name} . ', cterm ' . s:cterm_{a:name} . ' : ' . a:name
endfunction
" {{{2 getcolor( group, globalvar, colorname): if globvar exists, returns that
" color. if not returns the color in cname
function s:getcolor( globvar, cname)
" hopefully someone set ctype before getting here. ctype should either be
" "gui" or "cterm"
if exists( a:globvar)
if exists( 's:'.s:ctype.'_'.{a:globvar})
return s:{s:ctype}_{{a:globvar}}
else
call s:extractRGB( {a:globvar})
return s:{s:ctype}color( s:c1, s:c2, s:c3)
endif
else
return s:{s:ctype}_{a:cname}
endif
endfunction
" {{{2 use_guiattr( nattrs, n ): Should s:hi use the n'th attr for GUI hl.
function s:use_guiattr( nattrs, n )
" If guisp is specified in vim6, then don't use any GUI attributes.
" Otherwise use GUI attributes if GUI is running and they are specified.
if !has('gui_running') ||
\ a:nattrs < a:n ||
\ ( v:version < 700 && a:nattrs >= 4 )
" Don't use GUI attributes
return 0
else
" Use GUI attributes
return 1
endif
endfunction
" {{{2 hi( group, attr, fg, bg): Set the gui/cterm highlighting groups
"
" group - groupname.
" attr - attributes.
" fg/bg color name.
"
" Optionally can call it as
"
" hi( group, attr, fg, bg, guiattr, guifg, guibg, guisp )
"
" where all the gui options are optional. If provided, they override the term
" colors.
function s:hi( group, attr, fg, bg, ...)
if has('gui_running') || &t_Co == 256
" For gui's and 256 color terminals
let l:fg = s:getcolor( 'g:xterm16fg_'.a:group,
\ s:use_guiattr( a:0, 2) ? a:2 : a:fg)
let l:bg = s:getcolor( 'g:xterm16bg_'.a:group,
\ s:use_guiattr( a:0, 3) ? a:3 : a:bg)
if exists('g:xterm16attr_' . a:group)
let l:attr = g:xterm16attr_{a:group}
else
let l:attr = s:use_guiattr( a:0, 1) ? a:1 : a:attr
endif
exec 'hi' a:group
\ s:ctype.'='.l:attr
\ s:ctype.'fg='.l:fg
\ s:ctype.'bg='.l:bg
" Define guisp if specified for the gui (Vim7 upwards only).
if v:version >= 700 && has('gui_running') && a:0 >= 4
let l:sp = s:getcolor( 'g:xterm16sp_'.a:group, a:4 )
exec 'hi' a:group s:ctype.'sp='.l:sp
endif
else
" for consoles / 16 color junkies
exec 'hi' a:group 'cterm='.a:attr 'ctermfg='.a:fg 'ctermbg='.a:bg
endif
endfunction
" {{{2 set_brightness( default): Set s:brightness based on default
function s:set_brightness( default)
let s:brightness = ( exists('g:xterm16_brightness')
\ && g:xterm16_brightness != 'default') ?
\ g:xterm16_brightness : a:default
if s:colormap == 'allblue'
if s:brightness == 'high'
let s:brightness = '#afafff' " 335
elseif s:brightness == 'med'
let s:brightness = '#8787d7' " 224
elseif s:brightness == 'low'
let s:brightness = '#5f5faf' " 113
endif
elseif s:colormap == 'softlight'
if s:brightness == 'high'
let s:brightness = '#ff87af' " 523
elseif s:brightness == 'med'
let s:brightness = '#d75f87' " 412
elseif s:brightness == 'low'
let s:brightness = '#af5f87' " 312
endif
else
if s:brightness == 'high'
let s:brightness = '#afd7ff' " 345
elseif s:brightness == 'med'
let s:brightness = '#87afd7' " 234
elseif s:brightness == 'low'
let s:brightness = '#5f87af' " 123
endif
endif
endfunction
" {{{1 Global functions and initialisations.
command! -nargs=* Brightness
\ if Brightness(<f-args>) <bar>
\ colo xterm16 <bar>
\ endif
" {{{2 Brightness( brightness, colormap)
function! Brightness(...)
if a:0 == 0
echo "Brightness: ".s:brightness.", Colormap: ".s:colormap
return 0
elseif a:0 > 2
echoerr 'Too many arguements.'
return 0
endif
let g:xterm16_brightness = a:1
if a:0 == 2
let g:xterm16_colormap = a:2
endif
return 1
endfunction
" }}}1
try
" {{{1 Setup defaults
" {{{2 set ctype (to cterm / gui) to be the color type
let s:ctype = has('gui_running') ? 'gui' : 'cterm'
" {{{2 Obtain intensity levels of the 6 terminal colors in s:ccube
" The 2ith and 2i+1th charecters in ccube are the hex digits of the
" intensity of the ith (0-5) term level. xterm and rxvt set up the default
" color cube differently, so we have to consider them separately.
" First check for a user specified color cube.
if exists('g:xterm16_ccube')
let s:ccube = g:xterm16_ccube
" No user specified color cube given. Try and guess from xterm16_termtype
elseif ( exists('g:xterm16_termtype') && g:xterm16_termtype == 'rxvt') ||
\ ( !exists('g:xterm16_termtype')
\ && &term =~ '^rxvt'
\ && $MRXVT_TABTITLE == "" )
" color cube for "rxvt". Make sure we're not running mrxvt (by
" checking that the MRXVT_TABTITLE variable is empty).
let s:ccube = "002a557faad4"
else
" default to xterm if nothing else is specified.
let s:ccube ="005f87afd7ff"
endif
" s:cinterval will be the intervals of intensities which get mapped to
" term color i. i.e. colors between 0 -- cinterval(0) have level 0.
" between cinterval(0) -- cinterval(1) have level 1, etc. max level is 5,
" so anything higher than cinterval(4) has level 5.
let s:cinterval = ""
let s:lower = "00"
let s:i = 1
while s:i < 6
let s:upper = s:ccube[2*s:i] . s:ccube[2*s:i + 1]
let s:cinterval = s:cinterval . s:tohex( (('0x'.s:lower) + ('0x'.s:upper))/2 )
let s:lower = s:upper
let s:i = s:i + 1
endwhile
" {{{2 Get colormap defaults in "s:colormap"
" On a terminal (without 256 colors), use "standard" colormap. Otherwise
" use value from "g:xterm16_colormap" if exists, or "soft" as default.
if !has('gui_running') && &t_Co != 256
let s:colormap = 'standard'
elseif exists('g:xterm16_colormap')
let s:colormap = g:xterm16_colormap
else
" "soft" used to be the default, but "allblue" is much better.
let s:colormap = 'allblue'
endif
" {{{2 Redefine a few colors for CRT monitors and set brightness
if s:colormap == 'allblue'
call s:set_brightness( '#8787d7' ) " 224
elseif s:colormap == 'softlight'
call s:set_brightness( '#d75f87' ) " 412
elseif exists('g:xterm16_CRTColors')
" "standard" or "soft" colormaps
if s:colormap == 'standard'
let g:xterm16_darkblue = 'h000050'
let g:xterm16_blue = 'h002550'
let g:xterm16_grey = 'm474747'
unlet! g:xterm16_skyblue g:xterm16_green g:xterm16_bluegreen
" give the original xterm16 feel
call s:set_brightness( '#80cdff')
else
" "soft" colormap
let g:xterm16_skyblue = 'h003850'
let g:xterm16_green = 'm315000'
let g:xterm16_bluegreen = 'm005031'
unlet! g:xterm16_darkblue g:xterm16_blue g:xterm16_grey
" call s:set_brightness ( '245')
" call s:set_brightness('high')
call s:set_brightness('#87d7ff') " 245
endif
else
" "standard" or "soft" colormaps with LCD colors
call s:set_brightness( '#5fafd7') " 134
endif
unlet! s:c1 s:c2 s:c3
call s:extractRGB(s:brightness)
let s:l = s:c1
let s:m = s:c2
let s:h = s:c3
" {{{2 Set a bright green cursor on all colormaps except softlight
if !exists('g:xterm16bg_Cursor')
if s:colormap == 'softlight'
let g:xterm16fg_Cursor = '#ffffff'
else
let g:xterm16bg_Cursor = '#00ff00'
endif
endif
" {{{2 Set the current pallete:
let g:xterm16_palette = 'Current palette (Brightness: '.s:brightness. ', Colormap: '.s:colormap.')'
" {{{1 Define colors and highlighting groups based on "s:colormap"
let s:cterm_none = 'NONE'
let s:gui_none = 'NONE'
" Set the background based on the colormap. 'softlight' is the only
" colormap with a light background
if s:colormap == 'softlight'
set bg=light
else
set bg=dark
endif
if s:colormap == 'standard'
" {{{2 Original colormap. 8 standard colors, and 8 brighter ones.
call s:setcolor( 'black', 0 , 0 , 0 )
call s:setcolor( 'darkred', s:m , 0 , 0 )
call s:setcolor( 'darkgreen', 0 , s:m , 0 )
call s:setcolor( 'darkyellow', s:m , s:m , 0 )
call s:setcolor( 'darkblue', 0 , 0 , s:m )
call s:setcolor( 'darkmagenta', s:m , 0 , s:m )
call s:setcolor( 'darkcyan', 0 , s:m , s:m )
call s:setcolor( 'grey', s:m*44/50, s:m*44/50, s:m*44/50)
call s:setcolor( 'darkgrey', s:l , s:l , s:l )
call s:setcolor( 'red', s:h , 0 , 0 )
call s:setcolor( 'green', 0 , s:h , 0 )
call s:setcolor( 'yellow', s:h , s:h , 0 )
call s:setcolor( 'blue', 0 , 0 , s:h )
call s:setcolor( 'magenta', s:h , 0 , s:h )
call s:setcolor( 'cyan', 0 , s:h , s:h )
call s:setcolor( 'white', s:h , s:h , s:h )
" {{{2 Highlighting groups for standard colors
call s:hi( 'Normal' , 'none' , 'grey' , 'black' )
call s:hi( 'Cursor' , 'none' , 'black' , 'green' )
call s:hi( 'CursorColumn', 'none' , 'none' , 'darkgrey' )
call s:hi( 'CursorLine' , 'none' , 'none' , 'darkgrey' )
call s:hi( 'DiffAdd' , 'none' , 'darkblue' , 'darkgreen' )
call s:hi( 'DiffChange' , 'none' , 'black' , 'darkyellow')
call s:hi( 'DiffDelete' , 'none' , 'darkblue' , 'none' )
call s:hi( 'DiffText' , 'none' , 'darkred' , 'darkyellow')
call s:hi( 'Directory' , 'none' , 'cyan' , 'none' )
call s:hi( 'ErrorMsg' , 'none' , 'white' , 'darkred' )
call s:hi( 'FoldColumn' , 'none' , 'yellow' , 'darkblue' )
call s:hi( 'Folded' , 'none' , 'yellow' , 'darkblue' )
call s:hi( 'IncSearch' , 'none' , 'grey' , 'darkblue' )
call s:hi( 'LineNr' , 'none' , 'yellow' , 'none' )
call s:hi( 'MatchParen' , 'bold' , 'none' , 'none' )
call s:hi( 'MoreMsg' , 'bold' , 'green' , 'none' )
call s:hi( 'NonText' , 'none' , 'blue' , 'none' )
call s:hi( 'Pmenu' , 'none' , 'black' , 'grey' )
call s:hi( 'PmenuSel' , 'none' , 'none' , 'darkblue' )
call s:hi( 'PmenuSbar' , 'none' , 'none' , 'darkgrey' )
call s:hi( 'PmenuThumb' , 'none' , 'none' , 'white' )
call s:hi( 'Question' , 'none' , 'green' , 'none' )
call s:hi( 'Search' , 'none' , 'black' , 'darkcyan' )
call s:hi( 'SignColumn' , 'none' , 'darkmagenta', 'darkgrey' )
call s:hi( 'SpecialKey' , 'none' , 'blue' , 'none' )
call s:hi( 'StatusLine' , 'none' , 'darkblue' , 'grey' )
call s:hi( 'StatusLineNC', 'reverse', 'none' , 'none' )
call s:hi( 'TabLineFill' , 'none' , 'black' , 'darkgrey' )
call s:hi( 'TabLine' , 'none' , 'black' , 'darkgrey' )
call s:hi( 'TabLineSel' , 'bold' , 'none' , 'none' )
call s:hi( 'Title' , 'none' , 'magenta' , 'none' )
call s:hi( 'Visual' , 'none' , 'none' , 'darkblue' )
call s:hi( 'VisualNOS' , 'none' , 'none' , 'darkgrey' )
call s:hi( 'WarningMsg' , 'bold' , 'red' , 'none' )
call s:hi( 'WildMenu' , 'none' , 'darkmagenta', 'darkyellow')
call s:hi( 'Comment' , 'none' , 'darkred' , 'none' )
call s:hi( 'Constant' , 'none' , 'darkyellow' , 'none' )
call s:hi( 'Error' , 'none' , 'white' , 'red' )
call s:hi( 'Identifier' , 'none' , 'darkcyan' , 'none' )
call s:hi( 'Ignore' , 'none' , 'darkgrey' , 'none' )
call s:hi( 'PreProc' , 'none' , 'blue' , 'none' )
call s:hi( 'Special' , 'none' , 'darkgreen' , 'none' )
call s:hi( 'Statement' , 'none' , 'cyan' , 'none' )
call s:hi( 'Todo' , 'none' , 'black' , 'yellow' )
call s:hi( 'Type' , 'none' , 'green' , 'none' )
call s:hi( 'Underlined' , 'none' , 'darkmagenta', 'none' )
" {{{2 Spelling highlighting groups.
call s:hi( 'SpellBad' , 'bold,underline', 'none', 'none' ,
\ 'undercurl' , 'none', 'none' ,
\ 'darkred' )
call s:hi( 'SpellCap' , 'bold' , 'none', 'none' ,
\ 'undercurl' , 'none', 'none' ,
\ 'blue' )
call s:hi( 'SpellLocal', 'underline' , 'none', 'none' ,
\ 'undercurl' , 'none', 'none' ,
\ 'cyan' )
call s:hi( 'SpellRare' ,'underline' , 'none', 'none' ,
\ 'undercurl' , 'none', 'none' ,
\ 'darkyellow' )
" {{{2 Define html highlighting groups for standard colors.
if !exists("g:xterm16_NoHtmlColors")
call s:hi( 'htmlBold', 'none', 'white', 'none', 'bold', 'none')
call s:hi( 'htmlItalic', 'none', 'yellow', 'none', 'italic', 'none')
call s:hi( 'htmlUnderline', 'none', 'darkmagenta', 'none', 'underline', 'none')
call s:hi( 'htmlBoldItalic', 'bold', 'yellow', 'none', 'bold,italic', 'none')
call s:hi( 'htmlBoldUnderline', 'bold', 'magenta', 'none', 'bold,underline', 'none')
call s:hi( 'htmlUnderlineItalic', 'none', 'magenta', 'none', 'underline,italic', 'none')
call s:hi( 'htmlBoldUnderlineItalic', 'bold', 'white', 'none', 'bold,underline,italic', 'none')
hi! link htmlLink PreProc
endif
" {{{2 Remap darkblue on linux consoles
if !exists("g:xterm16_NoRemap") && &term =~# (exists("g:xterm16_TermRegexp") ? xterm16_TermRegexp : "linux")
hi! link PreProc Underlined
endif
" }}}2
elseif s:colormap == 'soft' || s:colormap == 'softlight'
" {{{2 "soft" / "softlight" colormap.
" Mix and use similar intensity colors. Only drawback is a slightly
" gaudy appearance (which is why I switched to the "allblue"
" colormap).
"
" The "softlight" colormap is a colormap with a whiteish background
" for web hosting or when there's a strong glare ...
" Background colors common to softlight / soft colormaps
call s:setcolor( 'black' , 0 , 0 , 0 )
" call s:setcolor( 'grey' , s:l/2 , s:l/2 , s:l/2 )
" call s:setcolor( 'lightgrey' , 2*s:l/3 , 2*s:l/3 , 2*s:l/3 )
" Foreground colors common to softlight / soft colormaps
call s:setcolor( 'lightbrown' , s:h , s:h/2 , 0 )
call s:setcolor( 'magenta' , s:h*3/4 , 0 , s:h )
call s:setcolor( 'red' , s:h , 0 , 0 )
call s:setcolor( 'yellow' , s:m , s:m , 0 )
if s:colormap == "soft"
" Background colors for colormap with a dark background
call s:setcolor( 'darkblue' , 0 , 0 , s:l )
call s:setcolor( 'darkcyan' , 0 , s:l , s:l )
call s:setcolor( 'darkred' , s:l , 0 , 0 )
call s:setcolor( 'darkyellow', s:l , s:l , 0 )
call s:setcolor( 'darkgrey' , s:l/3 , s:l/3 , s:l/3 )
call s:setcolor( 'grey' , s:l/2 , s:l/2 , s:l/2 )
call s:setcolor( 'lightgrey' , s:l , s:l , s:l )
" Foreground colors for colormap with a dark background
call s:setcolor( 'bluegreen' , 0 , s:m , s:m*38/50 )
call s:setcolor( 'cyan' , 0 , s:m , s:m )
call s:setcolor( 'green' , s:m*38/50 , s:m , 0 )
call s:setcolor( 'purple' , s:h*27/50 , s:h*27/50 , s:h )
call s:setcolor( 'skyblue' , 0 , s:h*27/50 , s:h )
call s:setcolor( 'white' , s:m*44/50 , s:m*44/50 , s:m*44/50 )
else
" Background colors for colormap with a light background
call s:setcolor( 'darkblue' , s:l*27/50 , s:l*27/50 , s:l )
call s:setcolor( 'darkcyan' , s:l*27/50 , s:l*38/50 , s:l )
call s:setcolor( 'darkred' , s:l , s:l*27/50 , s:l*27/50 )
call s:setcolor( 'darkyellow', s:l , s:l , s:l*27/50 )
call s:setcolor( 'darkgrey' , s:l*40/50 , s:l*40/50 , s:l*40/50 )
call s:setcolor( 'grey' , s:l*35/50 , s:l*35/50 , s:l*35/50 )
call s:setcolor( 'lightgrey' , s:l*30/50 , s:l*30/50 , s:l*30/50 )
call s:setcolor( 'white' , s:l*45/50 , s:l*45/50 , s:l*45/50 )
" Foreground colors for colormap with a light background
call s:setcolor( 'bluegreen' , 0 , s:h , 0 )
call s:setcolor( 'cyan' , 0 , s:h*38/50 , s:h )
call s:setcolor( 'green' , 0 , s:m , 0 )
call s:setcolor( 'purple' , s:h*38/50 , 0 , s:h )
call s:setcolor( 'skyblue' , 0 , 0 , s:h )
endif
" {{{2 Highlighting groups for "soft" / "softlight" colors.
if s:colormap == 'soft'
" Highlighting groups for dark background
call s:hi( 'Normal' , 'none', 'white' , 'black' )
call s:hi( 'Cursor' , 'none', 'black' , 'green' )
call s:hi( 'DiffText' , 'none', 'darkred' , 'darkyellow')
call s:hi( 'Error' , 'none', 'white' , 'darkred' )
call s:hi( 'ErrorMsg' , 'none', 'white' , 'darkred' )
call s:hi( 'FoldColumn' , 'none', 'purple' , 'darkgrey' )
call s:hi( 'Folded' , 'none', 'purple' , 'darkgrey' )
call s:hi( 'IncSearch' , 'none', 'yellow' , 'darkblue' )
call s:hi( 'StatusLine' , 'none', 'darkblue' , 'lightgrey' )
call s:hi( 'VisualNOS' , 'none', 'black' , 'darkgrey' )
else
" Highlighting groups for light background
call s:hi( 'Normal' , 'none', 'black' , 'white' )
call s:hi( 'Cursor' , 'none', 'white' , 'bluegreen' )
call s:hi( 'DiffText' , 'none', 'red' , 'darkyellow')
call s:hi( 'Error' , 'none', 'black' , 'darkred' )
call s:hi( 'ErrorMsg' , 'none', 'white' , 'red' )
call s:hi( 'FoldColumn' , 'none', 'lightgrey', 'darkgrey' )
call s:hi( 'Folded' , 'none', 'black' , 'darkgrey' )
call s:hi( 'IncSearch' , 'none', 'black' , 'darkblue' )
call s:hi( 'StatusLine' , 'none', 'skyblue' , 'lightgrey' )
call s:hi( 'VisualNOS' , 'none', 'white' , 'darkgrey' )
endif
" Highlighting groups for light / dark background.
call s:hi( 'CursorColumn', 'none', 'none' , 'grey' )
call s:hi( 'CursorLine' , 'none', 'none' , 'grey' )
call s:hi( 'DiffAdd' , 'none', 'lightbrown', 'darkblue' )
call s:hi( 'DiffChange' , 'none', 'black' , 'darkyellow')
call s:hi( 'DiffDelete' , 'none', 'purple' , 'darkblue' )
call s:hi( 'Directory' , 'none', 'cyan' , 'none' )
call s:hi( 'LineNr' , 'none', 'yellow' , 'none' )
call s:hi( 'MatchParen' , 'bold', 'none' , 'none' )
call s:hi( 'MoreMsg' , 'none', 'green' , 'none' )
call s:hi( 'NonText' , 'none', 'yellow' , 'none' )
call s:hi( 'Pmenu' , 'none', 'none' , 'grey' )
call s:hi( 'PmenuSbar' , 'none', 'none' , 'darkgrey' )
call s:hi( 'PmenuSel' , 'none', 'none' , 'darkblue' )
call s:hi( 'PmenuThumb' , 'none', 'none' , 'lightgrey' )
call s:hi( 'Question' , 'none', 'green' , 'none' )
call s:hi( 'Search' , 'none', 'black' , 'darkcyan' )
call s:hi( 'SignColumn' , 'none', 'yellow' , 'darkgrey' )
call s:hi( 'SpecialKey' , 'none', 'yellow' , 'none' )
call s:hi( 'StatusLineNC', 'none', 'black' , 'grey' )
call s:hi( 'TabLineFill' , 'none', 'none' , 'grey' )
call s:hi( 'TabLine' , 'none', 'none' , 'grey' )
call s:hi( 'TabLineSel' , 'bold', 'none' , 'none' )
call s:hi( 'Title' , 'none', 'yellow' , 'none' )
call s:hi( 'VertSplit' , 'none', 'darkgrey' , 'darkgrey' )
call s:hi( 'Visual' , 'none', 'none' , 'darkblue' )
call s:hi( 'WarningMsg' , 'none', 'red' , 'none' )
call s:hi( 'WildMenu' , 'none', 'yellow' , 'none' )
call s:hi( 'Comment' , 'none', 'red' , 'none' )
call s:hi( 'Constant' , 'none', 'lightbrown', 'none' )
call s:hi( 'Identifier' , 'none', 'cyan' , 'none' )
call s:hi( 'Ignore' , 'none', 'darkgrey' , 'none' )
call s:hi( 'PreProc' , 'none', 'purple' , 'none' )
call s:hi( 'Special' , 'none', 'green' , 'none' )
call s:hi( 'Statement' , 'none', 'skyblue' , 'none' )
call s:hi( 'Todo' , 'none', 'black' , 'darkyellow')
call s:hi( 'Type' , 'none', 'bluegreen' , 'none' )
call s:hi( 'Underlined' , 'none', 'magenta' , 'none' )
" {{{2 Spelling highlighting groups.
call s:hi( 'SpellBad' , 'bold,underline', 'none', 'darkgrey',
\ 'undercurl' , 'none', 'none' ,
\ 'red' )
call s:hi( 'SpellCap' , 'bold' , 'none', 'darkgrey',
\ 'undercurl' , 'none', 'none' ,
\ 'skyblue' )
call s:hi( 'SpellLocal', 'underline' , 'none', 'darkgrey',
\ 'undercurl' , 'none', 'none' ,
\ 'cyan' )
call s:hi( 'SpellRare' ,'underline' , 'none', 'none' ,
\ 'undercurl' , 'none', 'none' ,
\ 'yellow' )
" {{{2 Define html highlighting groups for soft colors.
if !exists("g:xterm16_NoHtmlColors")
call s:hi( 'htmlBold', 'none', 'yellow', 'none',
\ 'bold', 'none')
call s:hi( 'htmlItalic', 'none', 'yellow', 'none',
\ 'italic', 'none')
call s:hi( 'htmlUnderline', 'none', 'magenta', 'none',
\ 'underline', 'none')
call s:hi( 'htmlBoldItalic', 'bold', 'yellow', 'none',
\ 'bold,italic', 'none')
call s:hi( 'htmlBoldUnderline', 'bold', 'magenta', 'none',
\ 'bold,underline', 'none')
call s:hi( 'htmlUnderlineItalic', 'bold', 'magenta', 'none',
\ 'underline,italic', 'none')
call s:hi( 'htmlBoldUnderlineItalic', 'bold', 'white', 'none',
\ 'bold,underline,italic', 'none')
endif
" }}}2
elseif s:colormap == 'allblue'
" {{{2 "allblue" colormap. All shades of blue.
" Background colors
call s:setcolor( 'black' , 0 , 0 , 0 )
call s:setcolor( 'darkred' , s:l , 0 , 0 )
call s:setcolor( 'darkcyan' , 0 , s:l , s:l )
call s:setcolor( 'darkblue' , 0 , 0 , s:l )
call s:setcolor( 'darkyellow' , s:l , s:l , 0 )
" cterm's can do grey's with better accuracy, so use many shades of
" grey for backgrounds instead of the gaudy yellow's etc.
call s:setcolor( 'grey1' , s:l/8 , s:l/8 , s:l/8 )
call s:setcolor( 'grey2' , 2*s:l/8 , 2*s:l/8 , 2*s:l/8 )
call s:setcolor( 'grey3' , 3*s:l/8 , 3*s:l/8 , 3*s:l/8 )
call s:setcolor( 'grey4' , 4*s:l/8 , 4*s:l/8 , 4*s:l/8 )
call s:setcolor( 'grey5' , 5*s:l/8 , 5*s:l/8 , 5*s:l/8 )
" call s:setcolor( 'grey6' , 6*s:l/8 , 6*s:l/8 , 6*s:l/8 )
" call s:setcolor( 'grey7' , 7*s:l/8 , 7*s:l/8 , 7*s:l/8 )
call s:setcolor( 'grey' , s:l , s:l , s:l )
" Foreground colors:
"
" s:m -- lowest intensity level for fg colors
" s:h -- highest intensity level.
" s:M -- medium intensity (average of the above two)
let s:M = (s:m + s:h) / 2
call s:setcolor( 'red' , s:h , 0 , 0 )
call s:setcolor( 'lightbrown' , s:M , s:m , 0 )
call s:setcolor( 'yellow' , s:M , s:M , s:m )
call s:setcolor( 'dirtygreen' , s:m , s:m , 0 )
call s:setcolor( 'green' , s:m , s:M , s:m )
call s:setcolor( 'bluegreen' , 0 , s:M , s:m )
call s:setcolor( 'yellowgreen', s:m , s:M , 0 )
call s:setcolor( 'skyblue' , 0 , s:m , s:M )
call s:setcolor( 'lightblue' , 0 , s:m , s:h )
call s:setcolor( 'cyan' , 0 , s:M , s:M )
call s:setcolor( 'lightcyan' , s:m , s:M , s:M )
call s:setcolor( 'darkpurple' , s:m , 0 , s:h )
call s:setcolor( 'purple' , s:m , s:m , s:M )
" Unused colors that are pretty reasonable
" call s:setcolor( 'lightred' , s:M , s:m , s:m )
" call s:setcolor( 'bluewhite' , s:M , s:M , s:h )
" call s:setcolor( 'lightpurple', s:m , s:m , s:h )
" Greys can be done with better accurcy on cterms!
call s:setcolor( 'white' , 48*s:M/50 , 48*s:M/50 , 48*s:M/50 )
call s:setcolor( 'white1' , 40*s:M/50 , 40*s:M/50 , 40*s:M/ 50 )
unlet s:M
" {{{2 Highlighting groups for "allblue" colors.
call s:hi( 'Normal' , 'none' , 'white' , 'black' )
call s:hi( 'Cursor' , 'none' , 'black' , 'green' )
call s:hi( 'CursorColumn' , 'none' , 'none' , 'grey4' )
call s:hi( 'CursorLine' , 'none' , 'none' , 'grey4' )
call s:hi( 'DiffAdd' , 'none' , 'lightbrown' , 'grey2' )
call s:hi( 'DiffChange' , 'none' , 'yellow' , 'grey2' )
call s:hi( 'DiffDelete' , 'none' , 'dirtygreen' , 'grey2' )
call s:hi( 'DiffText' , 'none' , 'yellowgreen' , 'grey2' )
call s:hi( 'Directory' , 'none' , 'lightblue' , 'none' )
call s:hi( 'ErrorMsg' , 'none' , 'white' , 'darkred' )
call s:hi( 'FoldColumn' , 'none' , 'grey4' , 'none' )
call s:hi( 'Folded' , 'none' , 'white1' , 'grey2' )
call s:hi( 'IncSearch' , 'none' , 'white' , 'darkblue' )
call s:hi( 'LineNr' , 'none' , 'yellow' , 'none' )
call s:hi( 'MatchParen' , 'bold' , 'none' , 'none' )
call s:hi( 'ModeMsg' , 'bold' , 'none' , 'none' )
call s:hi( 'MoreMsg' , 'none' , 'green' , 'none' )
call s:hi( 'NonText' , 'none' , 'lightbrown' , 'none' )
call s:hi( 'Pmenu' , 'none' , 'none' , 'grey3' )
call s:hi( 'PmenuSel' , 'none' , 'none' , 'darkblue' )
call s:hi( 'PmenuSbar' , 'none' , 'none' , 'grey2' )
call s:hi( 'PmenuThumb' , 'none' , 'none' , 'grey4' )
call s:hi( 'Question' , 'none' , 'green' , 'none' )
call s:hi( 'Search' , 'none' , 'black' , 'darkcyan' )
call s:hi( 'SignColumn' , 'none' , 'yellow' , 'grey1' )
call s:hi( 'SpecialKey' , 'none' , 'yellow' , 'none' )
call s:hi( 'StatusLineNC' , 'none' , 'grey' , 'grey3' )
call s:hi( 'StatusLine' , 'none' , 'white' , 'grey5' )
call s:hi( 'TabLine' , 'none' , 'none' , 'grey3' )
call s:hi( 'TabLineFill' , 'none' , 'none' , 'grey3' )
call s:hi( 'TabLineSel' , 'bold' , 'none' , 'none' )
call s:hi( 'Title' , 'none' , 'yellow' , 'none' )
call s:hi( 'VertSplit' , 'none' , 'grey3' , 'grey3' )
call s:hi( 'Visual' , 'none' , 'none' , 'darkblue' )
call s:hi( 'VisualNOS' , 'none' , 'none' , 'grey2' )
call s:hi( 'WarningMsg' , 'none' , 'red' , 'none' )
call s:hi( 'WildMenu' , 'none' , 'yellow' , 'none' )
call s:hi( 'Comment' , 'none' , 'purple' , 'none' )
call s:hi( 'Constant' , 'none' , 'lightcyan' , 'none' )
call s:hi( 'Error' , 'none' , 'red' , 'none' )
call s:hi( 'Identifier' , 'none' , 'cyan' , 'none' )
call s:hi( 'Ignore' , 'none' , 'grey3' , 'none' )
call s:hi( 'PreProc' , 'none' , 'darkpurple' , 'none' )
call s:hi( 'Special' , 'none' , 'bluegreen' , 'none' )
call s:hi( 'Statement' , 'none' , 'skyblue' , 'none' )
call s:hi( 'Todo' , 'none' , 'lightbrown' , 'none' )
call s:hi( 'Type' , 'none' , 'green' , 'none' )
call s:hi( 'Underlined' , 'none' , 'darkpurple' , 'none' )
" {{{2 Spelling highlighting groups.
"
" The undercurl looks great in gui, so let's use that. For cterm use
" some crappy grey background + bold / etc. Not something that stands
" out too much because there are invariably numerous spelling mistakes
" highlighted in most code.
"
call s:hi( 'SpellBad' , 'bold,underline' , 'none', 'grey2',
\ 'undercurl' , 'none', 'none' , 'red' )
call s:hi( 'SpellCap' , 'bold' , 'none', 'grey2',
\ 'undercurl' , 'none', 'none' , 'skyblue' )
call s:hi( 'SpellLocal' , 'underline' , 'none', 'grey2',
\ 'undercurl' , 'none', 'none' , 'lightcyan' )
call s:hi( 'SpellRare' , 'underline' , 'none', 'none' ,
\ 'undercurl' , 'none', 'none' , 'yellow' )
" {{{2 Highlighting groups for email.
"
" mailURL links to Constant, which is light cyan. This does not stand
" out well in quoted emails (which is cyan), or regular text. Better
" to use light brown (like the soft colormap).
hi link mailURL Todo
" {{{2 Define html highlighting groups for "allblue" colors
if !exists("g:xterm16_NoHtmlColors")
call s:hi( 'htmlBold', 'none', 'yellow', 'none', 'bold', 'none')
call s:hi( 'htmlItalic', 'none', 'yellow', 'none', 'italic', 'none')
call s:hi( 'htmlUnderline', 'none', 'darkpurple', 'none', 'underline', 'none')
call s:hi( 'htmlBoldItalic', 'bold', 'yellow', 'none', 'bold,italic', 'none')
call s:hi( 'htmlBoldUnderline', 'bold', 'darkpurple', 'none', 'bold,underline', 'none')
call s:hi( 'htmlUnderlineItalic', 'bold', 'darkpurple', 'none', 'underline,italic', 'none')
call s:hi( 'htmlBoldUnderlineItalic', 'bold', 'white', 'none', 'bold,underline,italic', 'none')
endif
" }}}2
else
throw 'xterm16 Error: Unrecognised colormap "' . s:colormap . '"'
endif
" }}}1
catch /^xterm16 Error:/
" {{{1 Handle internal exceptions.
unlet colors_name
echohl ErrorMsg
echomsg v:exception
echohl None
" }}}1
finally
" {{{1 Unlet script variables and functions
" Restore compatibility options
let &cpo = s:cpo_save
unlet! s:c1 s:c2 s:c3
unlet! s:i s:lower s:upper s:ccube s:cinterval
unlet! s:cpo_save s:hex s:l s:m s:h s:cterm_none s:gui_none
" Delete colors of "standard" colormap
unlet! s:gui_black s:gui_darkred s:gui_darkgreen s:gui_darkyellow s:gui_darkblue s:gui_darkmagenta s:gui_darkcyan s:gui_grey s:gui_darkgrey s:gui_red s:gui_green s:gui_yellow s:gui_blue s:gui_magenta s:gui_cyan s:gui_white
unlet! s:cterm_black s:cterm_darkred s:cterm_darkgreen s:cterm_darkyellow s:cterm_darkblue s:cterm_darkmagenta s:cterm_darkcyan s:cterm_grey s:cterm_darkgrey s:cterm_red s:cterm_green s:cterm_yellow s:cterm_blue s:cterm_magenta s:cterm_cyan s:cterm_white
" Delete extra colors of "soft" colormap
unlet! s:gui_lightbrown s:gui_bluegreen s:gui_skyblue s:gui_purple
unlet! s:cterm_lightbrown s:cterm_bluegreen s:cterm_skyblue s:cterm_purple
" Delete extra colors from "allblue" colormap
unlet! s:gui_darkcyan s:gui_darkblue s:gui_grey1 s:gui_grey2 s:gui_grey3 s:gui_grey4 s:gui_grey5 s:gui_white1 s:gui_dirtygreen s:gui_yellowgreen s:gui_lightblue s:gui_lightcyan s:gui_darkpurple
unlet! s:cterm_darkcyan s:cterm_darkblue s:cterm_grey1 s:cterm_grey2 s:cterm_grey3 s:cterm_grey4 s:cterm_grey5 s:cterm_white1 s:cterm_dirtygreen s:cterm_yellowgreen s:cterm_lightblue s:cterm_lightcyan s:cterm_darkpurple
delfunction s:tohex
delfunction s:extractRGB
delfunction s:guilevel
delfunction s:ctermlevel
delfunction s:guicolor
delfunction s:ctermcolor
delfunction s:setcolor
delfunction s:getcolor
delfunction s:use_guiattr
delfunction s:hi
delfunction s:set_brightness
" }}}1
endtry
|
