Set random colorscheme for yer Vim

random_colorscheme.vim

function! SetRandomColors()
  if !exists('g:mycolors')
    let matches = {}
    for fname in split(globpath(&runtimepath, 'colors/*.vim'), '\n')
      let name = fnamemodify(fname, ':t:r')
      let matches[name] = 1
    endfor
    let g:mycolors = sort(keys(matches), 1)
  endif
  exe 'colorscheme ' . g:mycolors[localtime() % len(g:mycolors)]
  call SetCursorModes()
  redraw
  if has('title')
    set titlelen=99
    set titlestring=%t%(\ %M%)\ -%(\ (%{expand(\"%:p:h\")})%)%(\ %a%)\ -\ %{g:colors_name}
  endif
endfunction
command! Rcl call SetRandomColors()
map <F9> :call SetRandomColors()<CR>