You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
811 lines
35 KiB
811 lines
35 KiB
" 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
|