mirror of
https://github.com/mhinz/vim-galore.git
synced 2025-06-08 10:59:31 +08:00
43 lines
1.7 KiB
VimL
Executable File
43 lines
1.7 KiB
VimL
Executable File
"----------------------------------------------------------"
|
|
" Vim meta color file "
|
|
" Maintainer : W. H. Jou "
|
|
" Email : whjou@singnet.com.sg "
|
|
" Most Recent Update : 2003-09-15 "
|
|
" Version : 1.3 "
|
|
"----------------------------------------------------------"
|
|
" Define function once only
|
|
if !exists("*s:LoadRandomColorScheme")
|
|
function s:LoadRandomColorScheme()
|
|
let s:self = globpath(&runtimepath, 'colors/random.vim')
|
|
let s:color_file_list = globpath(&runtimepath, 'colors/*.vim' )
|
|
let s:self = substitute(s:self , '\' , '/', 'g')
|
|
let s:color_file_list = substitute(s:color_file_list, '\' , '/', 'g')
|
|
let s:color_file_list = substitute(s:color_file_list, s:self . "\n", '' , 'g')
|
|
let s:color_file_list = substitute(s:color_file_list, "\n" , ',', 'g')
|
|
|
|
if strlen(s:color_file_list)
|
|
if s:color_file_list =~ ','
|
|
let s:rnd = matchstr(localtime(), '..$') + 0
|
|
let s:loop = 0
|
|
|
|
while s:loop < s:rnd
|
|
let s:color_file_list = substitute(s:color_file_list, '^\([^,]\+\),\(.*\)$', '\2,\1', '')
|
|
let s:loop = s:loop + 1
|
|
endwhile
|
|
|
|
let s:color_file = matchstr(s:color_file_list, '^[^,]\+')
|
|
execute "source" s:color_file
|
|
unlet! s:color_file
|
|
|
|
unlet! s:loop
|
|
unlet! s:rnd
|
|
endif
|
|
endif
|
|
|
|
unlet! s:color_file_list
|
|
unlet! s:self_file
|
|
endfunction
|
|
endif
|
|
"----------------------------------------------------------"
|
|
call s:LoadRandomColorScheme()
|