[rbdr/dotfiles] / vim / colors / desert256.vim

" 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:
Commit	Line	Data
0d23b6e5 BB	1	" Vim color file
	2	" Maintainer: Henry So, Jr. <henryso@panix.com>
	3
	4	" These are the colors of the "desert" theme by Hans Fugal with a few small
	5	" modifications (namely that I lowered the intensity of the normal white and
	6	" made the normal and nontext backgrounds black), modified to work with 88-
	7	" and 256-color xterms.
	8	"
	9	" The original "desert" theme is available as part of the vim distribution or
	10	" at http://hans.fugal.net/vim/colors/.
	11	"
	12	" The real feature of this color scheme, with a wink to the "inkpot" theme, is
	13	" the programmatic approximation of the gui colors to the palettes of 88- and
	14	" 256- color xterms. The functions that do this (folded away, for
	15	" readability) are calibrated to the colors used for Thomas E. Dickey's xterm
	16	" (version 200), which is available at http://dickey.his.com/xterm/xterm.html.
	17	"
	18	" I struggled with trying to parse the rgb.txt file to avoid the necessity of
	19	" converting color names to #rrggbb form, but decided it was just not worth
	20	" the effort. Maybe someone seeing this may decide otherwise...
	21
	22	set background=dark
	23	if version > 580
	24	" no guarantees for version 5.8 and below, but this makes it stop
	25	" complaining
	26	hi clear
	27	if exists("syntax_on")
	28	syntax reset
	29	endif
	30	endif
	31	let g:colors_name="desert256"
	32
	33	if has("gui_running") \|\| &t_Co == 88 \|\| &t_Co == 256
	34	" functions {{{
	35	" returns an approximate grey index for the given grey level
	36	fun <SID>grey_number(x)
	37	if &t_Co == 88
	38	if a:x < 23
	39	return 0
	40	elseif a:x < 69
	41	return 1
	42	elseif a:x < 103
	43	return 2
	44	elseif a:x < 127
	45	return 3
	46	elseif a:x < 150
	47	return 4
	48	elseif a:x < 173
	49	return 5
	50	elseif a:x < 196
	51	return 6
	52	elseif a:x < 219
	53	return 7
	54	elseif a:x < 243
	55	return 8
	56	else
	57	return 9
	58	endif
	59	else
	60	if a:x < 14
	61	return 0
	62	else
	63	let l:n = (a:x - 8) / 10
	64	let l:m = (a:x - 8) % 10
65	if l:m < 5
66	return l:n
67	else
68	return l:n + 1
69	endif
70	endif
71	endif
72	endfun
73
74	" returns the actual grey level represented by the grey index
75	fun <SID>grey_level(n)
76	if &t_Co == 88
77	if a:n == 0
78	return 0
79	elseif a:n == 1
80	return 46
81	elseif a:n == 2
82	return 92
83	elseif a:n == 3
84	return 115
85	elseif a:n == 4
86	return 139
87	elseif a:n == 5
88	return 162
89	elseif a:n == 6
90	return 185
91	elseif a:n == 7
92	return 208
93	elseif a:n == 8
94	return 231
95	else
96	return 255
97	endif
98	else
99	if a:n == 0
100	return 0
101	else
102	return 8 + (a:n * 10)
103	endif
104	endif
105	endfun
106
107	" returns the palette index for the given grey index
108	fun <SID>grey_color(n)
109	if &t_Co == 88
110	if a:n == 0
111	return 16
112	elseif a:n == 9
113	return 79
114	else
115	return 79 + a:n
116	endif
117	else
118	if a:n == 0
119	return 16
120	elseif a:n == 25
121	return 231
122	else
123	return 231 + a:n
124	endif
125	endif
126	endfun
127
128	" returns an approximate color index for the given color level
129	fun <SID>rgb_number(x)
130	if &t_Co == 88
131	if a:x < 69
132	return 0
133	elseif a:x < 172
134	return 1
135	elseif a:x < 230
136	return 2
137	else
138	return 3
139	endif
140	else
141	if a:x < 75
142	return 0
143	else
144	let l:n = (a:x - 55) / 40
145	let l:m = (a:x - 55) % 40
146	if l:m < 20
147	return l:n
148	else
149	return l:n + 1
150	endif
151	endif
152	endif
153	endfun
154
155	" returns the actual color level for the given color index
156	fun <SID>rgb_level(n)
157	if &t_Co == 88
158	if a:n == 0
159	return 0
160	elseif a:n == 1
161	return 139
162	elseif a:n == 2
163	return 205
164	else
165	return 255
166	endif
167	else
168	if a:n == 0
169	return 0
170	else
171	return 55 + (a:n * 40)
172	endif
173	endif
174	endfun
175
176	" returns the palette index for the given R/G/B color indices
177	fun <SID>rgb_color(x, y, z)
178	if &t_Co == 88
179	return 16 + (a:x * 16) + (a:y * 4) + a:z
180	else
181	return 16 + (a:x * 36) + (a:y * 6) + a:z
182	endif
183	endfun
184
185	" returns the palette index to approximate the given R/G/B color levels
186	fun <SID>color(r, g, b)
187	" get the closest grey
188	let l:gx = <SID>grey_number(a:r)
189	let l:gy = <SID>grey_number(a:g)
190	let l:gz = <SID>grey_number(a:b)
191
192	" get the closest color
193	let l:x = <SID>rgb_number(a:r)
194	let l:y = <SID>rgb_number(a:g)
195	let l:z = <SID>rgb_number(a:b)
196
197	if l:gx == l:gy && l:gy == l:gz
198	" there are two possibilities
199	let l:dgr = <SID>grey_level(l:gx) - a:r
200	let l:dgg = <SID>grey_level(l:gy) - a:g
201	let l:dgb = <SID>grey_level(l:gz) - a:b
202	let l:dgrey = (l:dgr * l:dgr) + (l:dgg * l:dgg) + (l:dgb * l:dgb)
203	let l:dr = <SID>rgb_level(l:gx) - a:r
204	let l:dg = <SID>rgb_level(l:gy) - a:g
205	let l:db = <SID>rgb_level(l:gz) - a:b
206	let l:drgb = (l:dr * l:dr) + (l:dg * l:dg) + (l:db * l:db)
207	if l:dgrey < l:drgb
208	" use the grey
209	return <SID>grey_color(l:gx)
210	else
211	" use the color
212	return <SID>rgb_color(l:x, l:y, l:z)
213	endif
214	else
215	" only one possibility
216	return <SID>rgb_color(l:x, l:y, l:z)
217	endif
218	endfun
219
220	" returns the palette index to approximate the 'rrggbb' hex string
221	fun <SID>rgb(rgb)
222	let l:r = ("0x" . strpart(a:rgb, 0, 2)) + 0
223	let l:g = ("0x" . strpart(a:rgb, 2, 2)) + 0
224	let l:b = ("0x" . strpart(a:rgb, 4, 2)) + 0
225
226	return <SID>color(l:r, l:g, l:b)
227	endfun
228
229	" sets the highlighting for the given group
230	fun <SID>X(group, fg, bg, attr)
231	if a:fg != ""
232	exec "hi " . a:group . " guifg=#" . a:fg . " ctermfg=" . <SID>rgb(a:fg)
233	endif
234	if a:bg != ""
235	exec "hi " . a:group . " guibg=#" . a:bg . " ctermbg=" . <SID>rgb(a:bg)
236	endif
237	if a:attr != ""
238	exec "hi " . a:group . " gui=" . a:attr . " cterm=" . a:attr
239	endif
240	endfun
241	" }}}
242
243	call <SID>X("Normal", "cccccc", "000000", "")
244
245	" highlight groups
246	call <SID>X("Cursor", "708090", "f0e68c", "")
247	"CursorIM
248	"Directory
249	"DiffAdd
250	"DiffChange
251	"DiffDelete
252	"DiffText
253	"ErrorMsg
254	call <SID>X("VertSplit", "c2bfa5", "7f7f7f", "reverse")
255	call <SID>X("Folded", "ffd700", "4d4d4d", "")
256	call <SID>X("FoldColumn", "d2b48c", "4d4d4d", "")
257	call <SID>X("IncSearch", "708090", "f0e68c", "")
258	"LineNr
259	call <SID>X("ModeMsg", "daa520", "", "")
260	call <SID>X("MoreMsg", "2e8b57", "", "")
261	call <SID>X("NonText", "addbe7", "000000", "bold")
262	call <SID>X("Question", "00ff7f", "", "")
263	call <SID>X("Search", "f5deb3", "cd853f", "")
264	call <SID>X("SpecialKey", "9acd32", "", "")
265	call <SID>X("StatusLine", "c2bfa5", "000000", "reverse")
266	call <SID>X("StatusLineNC", "c2bfa5", "7f7f7f", "reverse")
267	call <SID>X("Title", "cd5c5c", "", "")
268	call <SID>X("Visual", "6b8e23", "f0e68c", "reverse")
269	"VisualNOS
270	call <SID>X("WarningMsg", "fa8072", "", "")
271	"WildMenu
272	"Menu
273	"Scrollbar
274	"Tooltip
275
276	" syntax highlighting groups
277	call <SID>X("Comment", "87ceeb", "", "")
278	call <SID>X("Constant", "ffa0a0", "", "")
279	call <SID>X("Identifier", "98fb98", "", "none")
280	call <SID>X("Statement", "f0e68c", "", "bold")
281	call <SID>X("PreProc", "cd5c5c", "", "")
282	call <SID>X("Type", "bdb76b", "", "bold")
283	call <SID>X("Special", "ffdead", "", "")
284	"Underlined
285	call <SID>X("Ignore", "666666", "", "")
286	"Error
287	call <SID>X("Todo", "ff4500", "eeee00", "")
288
289	" delete functions {{{
290	delf <SID>X
291	delf <SID>rgb
292	delf <SID>color
293	delf <SID>rgb_color
294	delf <SID>rgb_level
295	delf <SID>rgb_number
296	delf <SID>grey_color
297	delf <SID>grey_level
298	delf <SID>grey_number
299	" }}}
300	else
301	" color terminal definitions
302	hi SpecialKey ctermfg=darkgreen
303	hi NonText cterm=bold ctermfg=darkblue
304	hi Directory ctermfg=darkcyan
305	hi ErrorMsg cterm=bold ctermfg=7 ctermbg=1
306	hi IncSearch cterm=NONE ctermfg=yellow ctermbg=green
307	hi Search cterm=NONE ctermfg=grey ctermbg=blue
308	hi MoreMsg ctermfg=darkgreen
309	hi ModeMsg cterm=NONE ctermfg=brown
310	hi LineNr ctermfg=3
311	hi Question ctermfg=green
312	hi StatusLine cterm=bold,reverse
313	hi StatusLineNC cterm=reverse
314	hi VertSplit cterm=reverse
315	hi Title ctermfg=5
316	hi Visual cterm=reverse
317	hi VisualNOS cterm=bold,underline
318	hi WarningMsg ctermfg=1
319	hi WildMenu ctermfg=0 ctermbg=3
320	hi Folded ctermfg=darkgrey ctermbg=NONE
321	hi FoldColumn ctermfg=darkgrey ctermbg=NONE
322	hi DiffAdd ctermbg=4
323	hi DiffChange ctermbg=5
324	hi DiffDelete cterm=bold ctermfg=4 ctermbg=6
325	hi DiffText cterm=bold ctermbg=1
326	hi Comment ctermfg=darkcyan
327	hi Constant ctermfg=brown
328	hi Special ctermfg=5
329	hi Identifier ctermfg=6
330	hi Statement ctermfg=3
331	hi PreProc ctermfg=5
332	hi Type ctermfg=2
333	hi Underlined cterm=underline ctermfg=5
334	hi Ignore ctermfg=darkgrey
335	hi Error cterm=bold ctermfg=7 ctermbg=1
336	endif
337
338	" vim: set fdl=0 fdm=marker: