1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
|
"
" ColorScheme: psclone.vim
" Last Change: 2009-10-17 [16:59:40]
" Version: 110
" License: Public Domain, Free / Frei / Gratis / Libre.
" Author: Jaime Wottrich, <jaime.wottrich@gmail.com>
" Help: :h psclone.vim
" :h mimicpak
" :h mimicpak-options
"
" Setup {{{1
"~~~~~~~
set background=dark
hi clear
if exists("syntax_on")
syntax reset
endif
let colors_name = "psclone"
" Function: s:GetValue(var, ...) {{{2
" Looks up the value of a variable in this order (by default):
" buffer, window, tabpage and global.
" The one that exists first is returned, or 0 if none of them exists.
" Optional Args:
" a:1 value to return if variable doesn't exist.
" a:2 string with comma separated variable prefixes. Examples:
" "b:,t:,g:" - search for buffer, tabpage and global variables
" "w:,t:" - search for window and tabpage variables
" "g:" - search for global variables only
function s:GetValue(var, ...)
let l:defvalue = 0 < a:0 ? a:1 : 0
let l:prefixes = 1 < a:0 ? a:2 . "" : "b:,w:,t:,g:"
let l:start = 0
let l:i = stridx(l:prefixes, ",")
while 1
" track down the comma position, and handle special cases:
" - only one prefix without commas, and
" - after the last encountered comma.
let l:end = l:i < 0 ? strlen(l:prefixes) : l:i
let l:prefix = strpart(l:prefixes, l:start, l:end - l:start)
if exists(prefix . a:var)
return {prefix . a:var}
endif
" after last comma (or one prefix only without commas),
" and variable not found
if l:i < 0
return l:defvalue
endif
" update needle and get next comma position
let l:start = l:i + 1
let l:i = stridx(l:prefixes, ",", l:start)
endwhile
endfunction "}}}2
" get the values (if any) for the options
let s:mimic_font_style = s:GetValue("mimic_font_style")
let s:mimic_colorize_gui = s:GetValue("mimic_colorize_gui")
" cleanup
delfunction s:GetValue
" Default Highlight {{{1
hi Normal guifg=#c0c0c0 guibg=#333333 gui=NONE
hi Cursor guifg=bg guibg=#80f080 gui=NONE
hi CursorIM guifg=bg guibg=#80f0f0 gui=NONE
hi MatchParen guifg=bg guibg=#f0f080 gui=NONE
" search
hi Search guifg=#232323 guibg=#c0c080 gui=NONE
if version < 700
hi IncSearch guifg=#232323 guibg=#80c080 gui=NONE
else
hi IncSearch gui=reverse
endif
" visual mode
hi Visual guifg=bg guibg=#a0c0e0 gui=NONE
hi VisualNOS guifg=bg guibg=#e0c0a0 gui=NONE
" line numbers and folding
hi LineNr guifg=#808080 guibg=bg gui=NONE
hi NonText guifg=#808080 guibg=bg gui=NONE
hi Folded guifg=fg guibg=#003000 gui=NONE
hi FoldColumn guifg=fg guibg=#006000 gui=NONE
hi SignColumn guifg=fg guibg=#006000 gui=underline
" windows, statusline
hi StatusLine guifg=bg guibg=#90b0c0 gui=NONE
hi StatusLineNC guifg=bg guibg=fg gui=NONE
hi VertSplit guifg=bg guibg=fg gui=NONE
hi WildMenu guifg=fg guibg=#232323 gui=NONE
" colors for GUI
if 0 < s:mimic_colorize_gui
" will be set for everyone but Windows.
" Athena, Motif, Mac, Photon or GTK GUI.
if has("gui_running") && !(has("gui_win32") || has("gui_win32s"))
hi Menu guifg=fg guibg=#232323
hi Scrollbar guifg=bg guibg=fg
hi Tooltip guifg=#801313 guibg=#c0c080
endif
endif
" vim >= 7.0 only
if version >= 700
hi CursorLine guibg=bg gui=underline
hi CursorColumn guibg=bg gui=underline
" tab pages
hi TabLine guifg=fg guibg=#006000 gui=underline
hi TabLineFill guifg=fg guibg=#006000 gui=underline
hi TabLineSel guifg=fg guibg=bg gui=NONE
" popup completion menu
hi Pmenu guifg=bg guibg=fg gui=NONE
hi PmenuSel guifg=bg guibg=#a0c0d0 gui=underline
hi PmenuSbar guifg=#333383 guibg=#333383 gui=NONE
hi PmenuThumb guifg=#a0c0d0 guibg=#a0c0d0 gui=NONE
" spell checking
hi SpellBad guisp=#ff9999 gui=undercurl
hi SpellCap guisp=#9999ff gui=undercurl
hi SpellLocal guisp=#99ffff gui=undercurl
hi SpellRare guisp=#ff99ff gui=undercurl
endif
" other texts
hi Question guifg=bg guibg=#cccc99 gui=NONE
hi WarningMsg guifg=#f08080 guibg=bg gui=NONE
hi ErrorMsg guifg=#d0d080 guibg=#990000 gui=NONE
hi Title guifg=#e0c080 guibg=bg gui=NONE
hi Directory guifg=#80c0e0 guibg=bg gui=NONE
hi MoreMsg guifg=#66cc66 guibg=bg gui=NONE
hi ModeMsg guifg=fg guibg=#003000 gui=NONE
hi SpecialKey guifg=#00cc66 guibg=bg gui=NONE
" diff
hi DiffAdd guifg=#d0d0d0 guibg=#008000 gui=NONE
hi DiffChange guifg=#d0d0d0 guibg=#000080 gui=NONE
hi DiffDelete guifg=#6080f0 guibg=#232323 gui=NONE
hi DiffText guifg=bg guibg=#c0e080 gui=NONE
" Default Syntax Highlight {{{1
"~~~~~~~~~~~~~~~~~~~~~~~~~~
hi Comment guifg=#c0c0a0 guibg=bg gui=NONE
hi SpecialComment guifg=#a0c0b0 guibg=bg gui=NONE
hi Constant guifg=#90b0d0 guibg=bg gui=NONE
hi String guifg=#90b0d0 guibg=bg gui=NONE
hi Character guifg=#90c0e0 guibg=bg gui=NONE
hi Number guifg=#d0b080 guibg=bg gui=NONE
hi link Boolean Constant
hi link Float Number
hi Identifier guifg=#d0b0d0 guibg=bg gui=NONE
hi Function guifg=#d0b0d0 guibg=bg gui=NONE
hi Statement guifg=#a0c0d0 guibg=bg gui=NONE
hi link Conditional Statement
hi link Repeat Statement
hi link Label Statement
hi link Operator Statement
hi link Keyword Statement
hi link Exception Statement
hi Type guifg=#a0c0d0 guibg=bg gui=NONE
hi link StorageClass Type
hi link Structure Type
hi link Typedef Type
hi PreProc guifg=#80d080 guibg=bg gui=NONE
hi link Include PreProc
hi link Define PreProc
hi link Macro PreProc
hi link PreCondit PreProc
hi Special guifg=#d0b080 guibg=bg gui=NONE
hi link SpecialChar Special
hi link Delimiter Special
hi Tag guifg=#80b0d0 guibg=bg gui=NONE
hi Debug guifg=#808080 guibg=bg gui=NONE
hi Underlined guifg=#80b0d0 guibg=bg gui=underline
hi Ignore guifg=#535353 guibg=bg gui=NONE
hi Error guifg=fg guibg=#803333 gui=underline
hi Todo guifg=#801313 guibg=#c0c080 gui=NONE
" Font Style {{{1
"~~~~~~~~~~~~
if 0 < s:mimic_font_style
" Function: s:MultiHi {{{2
" Sets highlight option(s) on all its arguments.
" Parameters:
" option -- a string in the form of "key1=value1 key2=value2 ... keyN=valueN".
" ... -- the highlight group names.
function s:MultiHi(option, ...)
let l:i = 1
while l:i <= a:0
silent execute "highlight " . a:{l:i} . " " . a:option
let l:i = l:i + 1
endwhile
endfunction "}}}2
" set the bold only options, including the bold & italics groups.
if 1 == s:mimic_font_style || 3 <= s:mimic_font_style
call s:MultiHi("gui=bold", "WildMenu", "TabLineSel", "StatusLine", "MoreMsg", "ModeMsg", "Title", "Constant", "Statement", "PreProc", "Type", "Number", "Function", "Identifier", "Special", "Todo")
call s:MultiHi("gui=bold,underline", "Error")
endif
" set the italic only options
if 2 == s:mimic_font_style || 3 <= s:mimic_font_style
call s:MultiHi("gui=italic", "StatusLineNC", "Folded", "Comment", "SpecialComment", "Question")
endif
" set the bold & italic options
if 3 <= s:mimic_font_style
call s:MultiHi("gui=bold,italic", "MoreMsg", "Title", "Identifier", "Function", "Todo")
endif
" cleanup
delfunction s:MultiHi
endif
" Cleanup {{{1
"~~~~~~~~~
unlet s:mimic_font_style s:mimic_colorize_gui
" vim:noet:sw=22:ts=22:tw=0:nowrap:
" vim600:fdc=2:fdm=marker:
|
