Subversion Repositories programming

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
160 ira 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: