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
|
" Vim color file
" Maintainer: Pierre-Antoine Lacaze <pa.lacaze@gmail.com>
" Last Change:
" License: GPLv2
" To install, copy to ~/.vim/colors directory. Then :colorscheme spectro
" spectro is a colorscheme that lets you define the global saturation and
" the global lightness to be used for all the colors. The hue is then
" defined on a per color basis
" hue, saturation and lightness shall be set between 0 and 255
" I shamelessly used inkscape colors algorithm for HSL -> RGB conversion
" The main interest is the ability to adapt to different screens
" by only changing the saturation and lightness in your vimrc :
" let g:spectro_saturation = 120
" let g:spectro_lightness = 160
set background=dark
hi clear
if exists("syntax_on")
syntax reset
endif
let g:colors_name="spectro"
" default saturation value
if ! exists("g:spectro_saturation")
let g:spectro_saturation = 130
else
if g:spectro_saturation > 255
let g:spectro_saturation = 255
elseif g:spectro_saturation < 0
let g:spectro_saturation = 0
endif
endif
" default lightness value
if ! exists("g:spectro_lightness")
let g:spectro_lightness = 130
else
if g:spectro_lightness > 255
let g:spectro_lightness = 255
elseif g:spectro_lightness < 0
let g:spectro_lightness = 0
endif
endif
" function returning the hexadecimal value of an integer between 0 and 16
fun! Dec2hex(s)
let str = "0123456789ABCDEF"
return str[a:s]
endfunc
" function converting a (R,G,B) triplet into a "#rrggbb" string
fun! FormatRGB(rgb)
let r1 = a:rgb[0] / 16
let g1 = a:rgb[1] / 16
let b1 = a:rgb[2] / 16
let r2 = a:rgb[0] % 16
let g2 = a:rgb[1] % 16
let b2 = a:rgb[2] % 16
return "#".Dec2hex(r1).Dec2hex(r2).Dec2hex(g1).Dec2hex(g2).Dec2hex(b1).Dec2hex(b2)
endfun
" function converting hue to RGB
fun! Hue2rgb(v1,v2,H)
let v1 = a:v1
let v2 = a:v2
let H = a:H
if H < 0
let H += 6 * 255
elseif H > 6 * 255
let H -= 6 * 255
end
if H < 255
return (v1 * 255 + (v2 - v1) * H) / (255 * 255)
elseif H < 3 * 255
return v2 / 255
elseif H < 4 * 255
return (v1 * 255 + (v2 - v1) * (4 * 255 - H)) / (255 * 255)
else
return v1 / 255
endif
endfun
" function converting a (H,S,L) triplet into a (R,G,B) triplet
fun! Hsl2rgb(h)
let H = a:h
let S = g:spectro_saturation
let L = g:spectro_lightness
if S == 0
let RGB = [L,L,L]
else
let RGB = [0,0,0]
if L < 128
let v2 = L * (255 + S)
else
let v2 = 255* (L + S) - L * S
endif
let v1 = 2 * 255 * L - v2
let RGB[0] = Hue2rgb(v1,v2,H * 6 + 2 * 255)
let RGB[1] = Hue2rgb(v1,v2,H * 6)
let RGB[2] = Hue2rgb(v1,v2,H * 6 - 2 * 255)
endif
return FormatRGB(RGB)
endfun
" we choose the hue for each color to be used
" You may want to use inkscape to calibrate this
let white = "#ffffff"
let black = "#000000"
let gray = "#dcdccc"
let dblue = "#006060"
let c_comm = Hsl2rgb(71)
let c_spec = Hsl2rgb(27)
let c_numb = Hsl2rgb(128)
let c_iden = Hsl2rgb(42)
let c_stat = Hsl2rgb(212)
let c_prep = Hsl2rgb(8)
let c_erro = Hsl2rgb(0)
let c_curs = Hsl2rgb(58)
let c_visu = Hsl2rgb(223)
let c_tabl = Hsl2rgb(140)
" let's define colors
exe "hi Comment guifg=".c_comm
exe "hi Special guifg=".c_spec." gui=none"
exe "hi Constant guifg=".c_spec." gui=bold"
exe "hi Number guifg=".c_numb
exe "hi Identifier guifg=".c_iden
exe "hi Statement guifg=".c_stat." gui=bold"
exe "hi PreProc guifg=".c_prep." gui=bold"
exe "hi Type guifg=".c_iden." gui=none"
exe "hi Todo guifg=".black ." guibg=".c_iden." gui=none"
exe "hi ErrorMsg guifg=".white ." guibg=".c_erro." gui=bold"
exe "hi MoreMsg guifg=".white ." guibg=".c_spec." gui=bold"
exe "hi Cursor guifg=".black ." guibg=".c_curs." gui=bold"
exe "hi WildMenu guifg=".black ." guibg=".c_curs." gui=bold"
exe "hi LineNr guifg=".c_curs
exe "hi Normal guifg=".gray ." guibg=".black
exe "hi Visual guifg=".black ." guibg=".c_spec
exe "hi Underlined guifg=".gray ." gui=underline"
exe "hi VertSplit guifg=".dblue ." guibg=".gray
exe "hi TabLine guifg=".gray ." guibg=".dblue ." gui=none"
exe "hi TablineFill guifg=".black ." guibg=".black
exe "hi TablineSel guifg=".white ." guibg=".c_tabl." gui=none"
exe "hi User2 guifg=".white ." guibg=".c_tabl." gui=none"
exe "hi StatusLine guifg=".white ." guibg=".c_tabl." gui=none"
exe "hi StatusLineNC guifg=".gray ." guibg=".dblue ." gui=none"
exe "hi Pmenu guifg=".gray ." guibg=".dblue ." gui=none"
exe "hi PmenuSel guifg=".black ." guibg=".c_tabl." gui=bold"
exe "hi PmenuSbar guifg=".black ." guibg=".gray ." gui=none"
exe "hi PmenuThumb guifg=".black ." guibg=".gray ." gui=none"
exe "hi Directory guifg=".c_comm
exe "hi DiffAdded guifg=".c_comm." gui=none"
exe "hi DiffChanged guifg=".c_iden." gui=none"
exe "hi DiffRemoved guifg=".c_erro." gui=none"
exe "hi DiffLine guifg=".c_numb." gui=bold"
exe "hi Folded guifg=".c_numb
hi link SpecialChar Special
hi link Tag Special
hi link Delimiter Special
hi link String Special
hi link Character Special
hi link SpecialKey Special
hi link cFormat Special
hi link cSpecialCharacter Special
hi link Debug Constant
hi link SpecialComment Constant
hi link Boolean Number
hi link Float Number
hi link NonText Number
hi link Function Identifier
hi link Title Identifier
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 link Include PreProc
hi link Define PreProc
hi link Macro PreProc
hi link PreCondit PreProc
hi link ModeMsg PreProc
hi link StorageClass Type
hi link Structure Type
hi link Typedef Type
hi link Search Todo
hi link IncSearch Todo
hi link Error ErrorMsg
hi link WarningMsg MoreMsg
hi link Question LineNr
hi link StatusLineNC TabLine
hi link User2 TabLineSel
hi link DiffAdd DiffAdded
hi link DiffChange DiffChanged
hi link DiffDelete DiffRemoved
hi link DiffText DiffLine
hi link FoldColumn Folded
|
