" Vim color file " Maintainer: Illia Danko " Last Change: 2018-06-27 " " Origin colors are taken from the VIM builtin peachpuff.vim GUI color theme " and can be used either on the 88- or 256-color compatible xterm. The RGB grid " is the translation of the Henry So's programmatic approximation colors " algorithm (see a desert256 theme). Also, some part of the code belongs to " Martin Baeuml , the author, and the maintainer of the " summerfruit256 vim color theme. " " The original "summerfruit256" color scheme along with the "desert256" are " available on vim.org set background=light 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="peachpuff256mod" if has("gui_running") || &t_Co == 88 || &t_Co == 256 " functions {{{ " returns an approximate grey index for the given grey level fun 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 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 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 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 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 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 color(r, g, b) " get the closest grey let l:gx = grey_number(a:r) let l:gy = grey_number(a:g) let l:gz = grey_number(a:b) " get the closest color let l:x = rgb_number(a:r) let l:y = rgb_number(a:g) let l:z = rgb_number(a:b) if l:gx == l:gy && l:gy == l:gz " there are two possibilities let l:dgr = grey_level(l:gx) - a:r let l:dgg = grey_level(l:gy) - a:g let l:dgb = grey_level(l:gz) - a:b let l:dgrey = (l:dgr * l:dgr) + (l:dgg * l:dgg) + (l:dgb * l:dgb) let l:dr = rgb_level(l:gx) - a:r let l:dg = rgb_level(l:gy) - a:g let l:db = 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 grey_color(l:gx) else " use the color return rgb_color(l:x, l:y, l:z) endif else " only one possibility return rgb_color(l:x, l:y, l:z) endif endfun " returns the palette index to approximate the 'rrggbb' hex string fun 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 color(l:r, l:g, l:b) endfun " sets the highlighting for the given group fun X(group, fg, bg, attr) if a:fg != "" exec "hi " . a:group . " guifg=#" . a:fg . " ctermfg=" . rgb(a:fg) endif if a:bg != "" exec "hi " . a:group . " guibg=#" . a:bg . " ctermbg=" . rgb(a:bg) endif if a:attr != "" exec "hi " . a:group . " gui=" . a:attr . " cterm=" . a:attr endif endfun call X("Normal", "000000", "ffdab9", "") call X("SpecialKey", "0000ff", "", "bold") call X("NonText", "0000ff", "", "bold") call X("Directory", "0000ff", "", "") call X("ErrorMsg", "ffffff", "ff0000", "bold") call X("IncSearch", "", "", "reverse") call X("Search", "000000", "eec900", "") call X("MoreMsg", "2e8b57", "", "bold") call X("ModeMsg", "", "", "bold") call X("LineNr", "cd0000", "", "") call X("Question", "2e8b57", "", "bold") call X("StatusLine", "ffffff", "000000", "bold") call X("StatusLineNC", "ffdab9", "737373", "bold") call X("VertSplit", "ffffff", "737373", "bold") call X("Title", "cd1076", "", "bold") call X("Visual", "cccccc", "000000", "reverse") call X("VisualNOS", "", "", "bold,underline") call X("WarningMsg", "ff0000", "", "bold") call X("WildMenu", "000000", "ffff00", "") call X("Folded", "000000", "e3c1a5", "") call X("FoldColumn", "00008b", "cccccc", "") call X("DiffAdd", "", "ffffff", "") call X("DiffChange", "", "edb5cd", "") call X("DiffDelete", "add8e6", "f6e8d0", "bold") call X("DiffText", "", "ff8060", "bold") call X("Cursor", "ffdab9", "000000", "") call X("lCursor", "ffdab9", "000000", "") call X("ColorColumn", "", "eeeeee", "NONE") call X("CursorLine", "", "eeeeee", "NONE") " Colors for syntax highlighting call X("Comment", "406090", "", "") call X("Constant", "c00058", "", "") call X("Special", "6a5acd", "", "") call X("Identifier", "008b8b", "", "") call X("Statement", "a52a2a", "", "bold") call X("PreProc", "cd00cd", "", "") call X("Type", "2e8b57", "", "bold") call X("Ignore", "ffdab9", "", "") call X("Error", "ffffff", "ff0000", "bold") call X("Todo", "0000ff", "ffff00", "") " delete functions {{{ delf X delf rgb delf color delf rgb_color delf rgb_level delf rgb_number delf grey_color delf grey_level delf grey_number " }}} endif