339 lines
10 KiB
VimL
339 lines
10 KiB
VimL
|
" Vim color file
|
||
|
" Maintainer: Henry So, Jr. <henryso@panix.com>
|
||
|
|
||
|
" These are the colors of the "desert" theme by Hans Fugal with a few small
|
||
|
" modifications (namely that I lowered the intensity of the normal white and
|
||
|
" made the normal and nontext backgrounds black), modified to work with 88-
|
||
|
" and 256-color xterms.
|
||
|
"
|
||
|
" The original "desert" theme is available as part of the vim distribution or
|
||
|
" at http://hans.fugal.net/vim/colors/.
|
||
|
"
|
||
|
" The real feature of this color scheme, with a wink to the "inkpot" theme, is
|
||
|
" the programmatic approximation of the gui colors to the palettes of 88- and
|
||
|
" 256- color xterms. The functions that do this (folded away, for
|
||
|
" readability) are calibrated to the colors used for Thomas E. Dickey's xterm
|
||
|
" (version 200), which is available at http://dickey.his.com/xterm/xterm.html.
|
||
|
"
|
||
|
" I struggled with trying to parse the rgb.txt file to avoid the necessity of
|
||
|
" converting color names to #rrggbb form, but decided it was just not worth
|
||
|
" the effort. Maybe someone seeing this may decide otherwise...
|
||
|
|
||
|
set background=dark
|
||
|
if version > 580
|
||
|
" no guarantees for version 5.8 and below, but this makes it stop
|
||
|
" complaining
|
||
|
hi clear
|
||
|
if exists("syntax_on")
|
||
|
syntax reset
|
||
|
endif
|
||
|
endif
|
||
|
let g:colors_name="desert256"
|
||
|
|
||
|
if has("gui_running") || &t_Co == 88 || &t_Co == 256
|
||
|
" functions {{{
|
||
|
" returns an approximate grey index for the given grey level
|
||
|
fun <SID>grey_number(x)
|
||
|
if &t_Co == 88
|
||
|
if a:x < 23
|
||
|
return 0
|
||
|
elseif a:x < 69
|
||
|
return 1
|
||
|
elseif a:x < 103
|
||
|
return 2
|
||
|
elseif a:x < 127
|
||
|
return 3
|
||
|
elseif a:x < 150
|
||
|
return 4
|
||
|
elseif a:x < 173
|
||
|
return 5
|
||
|
elseif a:x < 196
|
||
|
return 6
|
||
|
elseif a:x < 219
|
||
|
return 7
|
||
|
elseif a:x < 243
|
||
|
return 8
|
||
|
else
|
||
|
return 9
|
||
|
endif
|
||
|
else
|
||
|
if a:x < 14
|
||
|
return 0
|
||
|
else
|
||
|
let l:n = (a:x - 8) / 10
|
||
|
let l:m = (a:x - 8) % 10
|
||
|
if l:m < 5
|
||
|
return l:n
|
||
|
else
|
||
|
return l:n + 1
|
||
|
endif
|
||
|
endif
|
||
|
endif
|
||
|
endfun
|
||
|
|
||
|
" returns the actual grey level represented by the grey index
|
||
|
fun <SID>grey_level(n)
|
||
|
if &t_Co == 88
|
||
|
if a:n == 0
|
||
|
return 0
|
||
|
elseif a:n == 1
|
||
|
return 46
|
||
|
elseif a:n == 2
|
||
|
return 92
|
||
|
elseif a:n == 3
|
||
|
return 115
|
||
|
elseif a:n == 4
|
||
|
return 139
|
||
|
elseif a:n == 5
|
||
|
return 162
|
||
|
elseif a:n == 6
|
||
|
return 185
|
||
|
elseif a:n == 7
|
||
|
return 208
|
||
|
elseif a:n == 8
|
||
|
return 231
|
||
|
else
|
||
|
return 255
|
||
|
endif
|
||
|
else
|
||
|
if a:n == 0
|
||
|
return 0
|
||
|
else
|
||
|
return 8 + (a:n * 10)
|
||
|
endif
|
||
|
endif
|
||
|
endfun
|
||
|
|
||
|
" returns the palette index for the given grey index
|
||
|
fun <SID>grey_color(n)
|
||
|
if &t_Co == 88
|
||
|
if a:n == 0
|
||
|
return 16
|
||
|
elseif a:n == 9
|
||
|
return 79
|
||
|
else
|
||
|
return 79 + a:n
|
||
|
endif
|
||
|
else
|
||
|
if a:n == 0
|
||
|
return 16
|
||
|
elseif a:n == 25
|
||
|
return 231
|
||
|
else
|
||
|
return 231 + a:n
|
||
|
endif
|
||
|
endif
|
||
|
endfun
|
||
|
|
||
|
" returns an approximate color index for the given color level
|
||
|
fun <SID>rgb_number(x)
|
||
|
if &t_Co == 88
|
||
|
if a:x < 69
|
||
|
return 0
|
||
|
elseif a:x < 172
|
||
|
return 1
|
||
|
elseif a:x < 230
|
||
|
return 2
|
||
|
else
|
||
|
return 3
|
||
|
endif
|
||
|
else
|
||
|
if a:x < 75
|
||
|
return 0
|
||
|
else
|
||
|
let l:n = (a:x - 55) / 40
|
||
|
let l:m = (a:x - 55) % 40
|
||
|
if l:m < 20
|
||
|
return l:n
|
||
|
else
|
||
|
return l:n + 1
|
||
|
endif
|
||
|
endif
|
||
|
endif
|
||
|
endfun
|
||
|
|
||
|
" returns the actual color level for the given color index
|
||
|
fun <SID>rgb_level(n)
|
||
|
if &t_Co == 88
|
||
|
if a:n == 0
|
||
|
return 0
|
||
|
elseif a:n == 1
|
||
|
return 139
|
||
|
elseif a:n == 2
|
||
|
return 205
|
||
|
else
|
||
|
return 255
|
||
|
endif
|
||
|
else
|
||
|
if a:n == 0
|
||
|
return 0
|
||
|
else
|
||
|
return 55 + (a:n * 40)
|
||
|
endif
|
||
|
endif
|
||
|
endfun
|
||
|
|
||
|
" returns the palette index for the given R/G/B color indices
|
||
|
fun <SID>rgb_color(x, y, z)
|
||
|
if &t_Co == 88
|
||
|
return 16 + (a:x * 16) + (a:y * 4) + a:z
|
||
|
else
|
||
|
return 16 + (a:x * 36) + (a:y * 6) + a:z
|
||
|
endif
|
||
|
endfun
|
||
|
|
||
|
" returns the palette index to approximate the given R/G/B color levels
|
||
|
fun <SID>color(r, g, b)
|
||
|
" get the closest grey
|
||
|
let l:gx = <SID>grey_number(a:r)
|
||
|
let l:gy = <SID>grey_number(a:g)
|
||
|
let l:gz = <SID>grey_number(a:b)
|
||
|
|
||
|
" get the closest color
|
||
|
let l:x = <SID>rgb_number(a:r)
|
||
|
let l:y = <SID>rgb_number(a:g)
|
||
|
let l:z = <SID>rgb_number(a:b)
|
||
|
|
||
|
if l:gx == l:gy && l:gy == l:gz
|
||
|
" there are two possibilities
|
||
|
let l:dgr = <SID>grey_level(l:gx) - a:r
|
||
|
let l:dgg = <SID>grey_level(l:gy) - a:g
|
||
|
let l:dgb = <SID>grey_level(l:gz) - a:b
|
||
|
let l:dgrey = (l:dgr * l:dgr) + (l:dgg * l:dgg) + (l:dgb * l:dgb)
|
||
|
let l:dr = <SID>rgb_level(l:gx) - a:r
|
||
|
let l:dg = <SID>rgb_level(l:gy) - a:g
|
||
|
let l:db = <SID>rgb_level(l:gz) - a:b
|
||
|
let l:drgb = (l:dr * l:dr) + (l:dg * l:dg) + (l:db * l:db)
|
||
|
if l:dgrey < l:drgb
|
||
|
" use the grey
|
||
|
return <SID>grey_color(l:gx)
|
||
|
else
|
||
|
" use the color
|
||
|
return <SID>rgb_color(l:x, l:y, l:z)
|
||
|
endif
|
||
|
else
|
||
|
" only one possibility
|
||
|
return <SID>rgb_color(l:x, l:y, l:z)
|
||
|
endif
|
||
|
endfun
|
||
|
|
||
|
" returns the palette index to approximate the 'rrggbb' hex string
|
||
|
fun <SID>rgb(rgb)
|
||
|
let l:r = ("0x" . strpart(a:rgb, 0, 2)) + 0
|
||
|
let l:g = ("0x" . strpart(a:rgb, 2, 2)) + 0
|
||
|
let l:b = ("0x" . strpart(a:rgb, 4, 2)) + 0
|
||
|
|
||
|
return <SID>color(l:r, l:g, l:b)
|
||
|
endfun
|
||
|
|
||
|
" sets the highlighting for the given group
|
||
|
fun <SID>X(group, fg, bg, attr)
|
||
|
if a:fg != ""
|
||
|
exec "hi " . a:group . " guifg=#" . a:fg . " ctermfg=" . <SID>rgb(a:fg)
|
||
|
endif
|
||
|
if a:bg != ""
|
||
|
exec "hi " . a:group . " guibg=#" . a:bg . " ctermbg=" . <SID>rgb(a:bg)
|
||
|
endif
|
||
|
if a:attr != ""
|
||
|
exec "hi " . a:group . " gui=" . a:attr . " cterm=" . a:attr
|
||
|
endif
|
||
|
endfun
|
||
|
" }}}
|
||
|
|
||
|
call <SID>X("Normal", "cccccc", "000000", "")
|
||
|
|
||
|
" highlight groups
|
||
|
call <SID>X("Cursor", "708090", "f0e68c", "")
|
||
|
"CursorIM
|
||
|
"Directory
|
||
|
"DiffAdd
|
||
|
"DiffChange
|
||
|
"DiffDelete
|
||
|
"DiffText
|
||
|
"ErrorMsg
|
||
|
call <SID>X("VertSplit", "c2bfa5", "7f7f7f", "reverse")
|
||
|
call <SID>X("Folded", "ffd700", "4d4d4d", "")
|
||
|
call <SID>X("FoldColumn", "d2b48c", "4d4d4d", "")
|
||
|
call <SID>X("IncSearch", "708090", "f0e68c", "")
|
||
|
"LineNr
|
||
|
call <SID>X("ModeMsg", "daa520", "", "")
|
||
|
call <SID>X("MoreMsg", "2e8b57", "", "")
|
||
|
call <SID>X("NonText", "addbe7", "000000", "bold")
|
||
|
call <SID>X("Question", "00ff7f", "", "")
|
||
|
call <SID>X("Search", "f5deb3", "cd853f", "")
|
||
|
call <SID>X("SpecialKey", "9acd32", "", "")
|
||
|
call <SID>X("StatusLine", "c2bfa5", "000000", "reverse")
|
||
|
call <SID>X("StatusLineNC", "c2bfa5", "7f7f7f", "reverse")
|
||
|
call <SID>X("Title", "cd5c5c", "", "")
|
||
|
call <SID>X("Visual", "6b8e23", "f0e68c", "reverse")
|
||
|
"VisualNOS
|
||
|
call <SID>X("WarningMsg", "fa8072", "", "")
|
||
|
"WildMenu
|
||
|
"Menu
|
||
|
"Scrollbar
|
||
|
"Tooltip
|
||
|
|
||
|
" syntax highlighting groups
|
||
|
call <SID>X("Comment", "87ceeb", "", "")
|
||
|
call <SID>X("Constant", "ffa0a0", "", "")
|
||
|
call <SID>X("Identifier", "98fb98", "", "none")
|
||
|
call <SID>X("Statement", "f0e68c", "", "bold")
|
||
|
call <SID>X("PreProc", "cd5c5c", "", "")
|
||
|
call <SID>X("Type", "bdb76b", "", "bold")
|
||
|
call <SID>X("Special", "ffdead", "", "")
|
||
|
"Underlined
|
||
|
call <SID>X("Ignore", "666666", "", "")
|
||
|
"Error
|
||
|
call <SID>X("Todo", "ff4500", "eeee00", "")
|
||
|
|
||
|
" delete functions {{{
|
||
|
delf <SID>X
|
||
|
delf <SID>rgb
|
||
|
delf <SID>color
|
||
|
delf <SID>rgb_color
|
||
|
delf <SID>rgb_level
|
||
|
delf <SID>rgb_number
|
||
|
delf <SID>grey_color
|
||
|
delf <SID>grey_level
|
||
|
delf <SID>grey_number
|
||
|
" }}}
|
||
|
else
|
||
|
" color terminal definitions
|
||
|
hi SpecialKey ctermfg=darkgreen
|
||
|
hi NonText cterm=bold ctermfg=darkblue
|
||
|
hi Directory ctermfg=darkcyan
|
||
|
hi ErrorMsg cterm=bold ctermfg=7 ctermbg=1
|
||
|
hi IncSearch cterm=NONE ctermfg=yellow ctermbg=green
|
||
|
hi Search cterm=NONE ctermfg=grey ctermbg=blue
|
||
|
hi MoreMsg ctermfg=darkgreen
|
||
|
hi ModeMsg cterm=NONE ctermfg=brown
|
||
|
hi LineNr ctermfg=3
|
||
|
hi Question ctermfg=green
|
||
|
hi StatusLine cterm=bold,reverse
|
||
|
hi StatusLineNC cterm=reverse
|
||
|
hi VertSplit cterm=reverse
|
||
|
hi Title ctermfg=5
|
||
|
hi Visual cterm=reverse
|
||
|
hi VisualNOS cterm=bold,underline
|
||
|
hi WarningMsg ctermfg=1
|
||
|
hi WildMenu ctermfg=0 ctermbg=3
|
||
|
hi Folded ctermfg=darkgrey ctermbg=NONE
|
||
|
hi FoldColumn ctermfg=darkgrey ctermbg=NONE
|
||
|
hi DiffAdd ctermbg=4
|
||
|
hi DiffChange ctermbg=5
|
||
|
hi DiffDelete cterm=bold ctermfg=4 ctermbg=6
|
||
|
hi DiffText cterm=bold ctermbg=1
|
||
|
hi Comment ctermfg=darkcyan
|
||
|
hi Constant ctermfg=brown
|
||
|
hi Special ctermfg=5
|
||
|
hi Identifier ctermfg=6
|
||
|
hi Statement ctermfg=3
|
||
|
hi PreProc ctermfg=5
|
||
|
hi Type ctermfg=2
|
||
|
hi Underlined cterm=underline ctermfg=5
|
||
|
hi Ignore ctermfg=darkgrey
|
||
|
hi Error cterm=bold ctermfg=7 ctermbg=1
|
||
|
endif
|
||
|
|
||
|
" vim: set fdl=0 fdm=marker:
|