aboutsummaryrefslogtreecommitdiff
path: root/vim/plugin
diff options
context:
space:
mode:
Diffstat (limited to 'vim/plugin')
-rw-r--r--vim/plugin/ScrollColor.vim457
1 files changed, 457 insertions, 0 deletions
diff --git a/vim/plugin/ScrollColor.vim b/vim/plugin/ScrollColor.vim
new file mode 100644
index 0000000..7c4960c
--- /dev/null
+++ b/vim/plugin/ScrollColor.vim
@@ -0,0 +1,457 @@
+" ScrollColors.vim - Colorsheme Scroller, Chooser, and Browser
+"
+" Author and maintainer: Yakov Lerner <iler_ml@fastmail.fm>
+" Last Change: 2006-07-18
+"
+" SYNOPSIS:
+" This is colorscheme Scroller/Chooser/Browser.
+" With this plugin, you walk through installed
+" colorschemes using arrow keys.
+"
+" SHORT USAGE DESCRIPTION:
+" Drop ScrollColors.vim into your plugin directory.
+" Type :SCROLL
+" Use arrow keys to walk through colorschemes, ? for help, Esc to exit.
+"
+" DETAILED DESCRIPTION:
+" 1. source ScrollColors.vim " or drop ScrollColors.vim into
+" " your ~/.vim/plugins directory
+" 2. Type :SCROLL
+" 3. Use arrows to scroll thgough colorschemes.
+" 4. When done, press Esc to exit. You will be prompted
+" wether to
+"
+" You can download 140 colorschemes pack from:
+" http://www.vim.org/scripts/script.php?script_id=625
+" Having 140 installed colorschemes is in no way prerequisite for
+" ScrollColors. But with ScrollColors you can preview 140 colorschemes
+" in couple of minutes.
+"
+" CUSTOM KEY MAPPINGS:
+" You can map two keys of your choice to NextColor and PrevColor actions.
+" Choose pair of shortcut keys (for example <F2> and <f3>, or \n and \p)
+" and map them as follows:
+" map <silent><F3> :NEXTCOLOR<cr>
+" map <silent><F2> :PREVCOLOR<cr>
+
+
+if exists("g:scroll_colors") | finish | endif
+let g:scroll_colors = 1
+
+command! COLORSCROLL :call s:ColorScroller()
+command! SCROLLCOLOR :call s:ColorScroller()
+command! NEXTCOLOR :call s:NextColorscheme()
+command! PREVCOLOR :call s:PrevColorscheme()
+
+" Example of convenience mappings:
+"map <silent><F3> :NEXTCOLOR<cr>
+"map <silent><F2> :PREVCOLOR<cr>
+"map <silent><F4> :SCROLLCOLOR<cr>
+
+function! s:ScrollerHelp()
+ echo " "
+ echohl Title
+ echo "Color Scroller Help:"
+ echo "--------------------"
+ echohl NONE
+ echo "Arrows - change colorscheme"
+ echo "Esc,q,Enter - exit"
+ echo "h,j,k,l - change colorscheme"
+ echo "0,g - go to first colorscheme"
+ echo "$,G - go to last colorscheme"
+ echo "L - list colorschemes"
+ echo "PgUp,PgDown - jump by 10 colorschemes"
+ echo "# - go to colorscheme by index (1-N)"
+ echo "R - refresh colorscheme list"
+ echo "? - this help text"
+ echohl MoreMsg
+ echo "Press any key to continue"
+ echohl NONE
+ call getchar()
+endfu
+
+function! s:Align(s, width)
+ if strlen(a:s) >= a:width
+ return a:s." "
+ else
+ let pad=" "
+ let res=a:s
+ while strlen(res) < a:width
+ let chunk = (a:width - strlen(res) > strlen(pad) ? strlen(pad) : a:width - strlen(res))
+ let res = res . strpart(pad,0,chunk)
+ endw
+ return res
+ endif
+endfu
+
+function! s:ListColors()
+ echo " "
+ let list=s:GetColorschemesList()
+ let width=18
+ let pos=0
+ while list != ''
+ let str=substitute(list,"\n.*","","")
+ let list=substitute(list,"[^\n]*\n", "", "")
+ let aligned = s:Align(str, width)
+ if( pos+strlen(aligned)+1 >= &columns)
+ echo " "
+ let pos=0
+ endif
+ echon aligned
+ let pos = pos + strlen(aligned)
+ endw
+ echo "Press any key to continue"
+ call getchar()
+endfu
+
+function! s:CurrentColor()
+ return exists("g:colors_name") ? g:colors_name : ""
+endfu
+
+function! s:SetColor(name)
+ exe "color ".a:name
+ " if we do not assign a:colors_name, then
+ " bad things happen if file colors/name.vim conmtains wrong assignment inside.
+ " Wrong assignment inside happens when file was copied but
+ " assignment inside not fixed.
+ " Such wrong assignment cause up erratic switches unless
+ " we do our own assignment to g:colors_name
+ let g:colors_name=a:name
+endfu
+
+function! s:JumpByIndex(list,total)
+ let ans = input("Enter colorscheme number (1-".a:total.") : ")
+ let index = (ans<=0? 1 : 1+(ans-1)%a:total )
+ let name = s:EntryByIndex(a:list, index )
+ call s:SetColor(name)
+endfu
+
+function! s:JumpByIndex2(list,total, index)
+ let mod = (a:index <= 0? 1 : 1+(a:index-1)%a:total )
+ let name = s:EntryByIndex(a:list, mod )
+ call s:SetColor(name)
+endfu
+
+function! s:ExitDialog(old, action)
+ let ans = 0
+
+ if a:old == s:CurrentColor()
+ let ans=1
+ elseif a:action == ''
+ let ans = confirm("Keep this colorscheme ?", "&Yes\n&No\n&Cancel")
+ elseif action == 'keep'
+ ans = 1
+ elseif action == 'revert'
+ ans = 2
+ endif
+
+ if ans == 1 || ans==0
+ " exit, keep colorscheme
+ let msg = (a:old == s:CurrentColor() ? '' : "(original: '".a:old."')")
+ call s:FinalEcho( msg )
+ elseif ans == 2
+ " exit, revert colorscheme
+ call s:SetColor(a:old)
+ call s:FinalEcho('original color restored')
+ elseif ans == 3
+ " do not exit, continue browsing
+ return -1
+ endif
+endfu
+
+function! s:ColorScroller()
+ let old = s:CurrentColor()
+ let list = s:GetColorschemesList()
+ let total = s:CountEntries(list)
+ let loop=0
+
+ if line("$") == 1 && getline(1) == "" && bufnr('$')==1
+ " if buffer is empty, open something
+ echo "We will open sample text with syntax highlighting."
+ echo "Watch for the guiding prompt in the bottom line."
+ echo "When the text will open, use Arrow keys to switch colorschemes, ? for help."
+ echo " "
+ echo "Press any key to continue"
+ call getchar()
+ :e $VIMRUNTIME/syntax/abc.vim
+ :setlocal ro
+ syntax on
+ redraw
+ endif
+
+ if !exists("g:syntax_on")
+ syntax on
+ redraw
+ endif
+
+ while 1
+ redraw
+ let index = s:FindIndex(list, s:CurrentColor())
+ echo "["
+ echohl Search
+ echon s:CurrentColor()
+ echohl NONE
+ if loop == 0
+ echon "] ColorScroller: "
+ echohl MoreMsg | echon "Arrows" | echohl NONE | echon "-next/prev; "
+ echohl MoreMsg | echon "Esc" | echohl NONE | echon "-exit; "
+ echohl MoreMsg | echon "?" | echohl NONE | echon "-help > "
+ else
+ echon "] "
+ echon " " . index . "/" . total . " "
+ echon s:Align("", 12-strlen(s:CurrentColor()))
+ echon "> ColorScroll > "
+ echon "Arrows,Esc,? > "
+ endif
+ let key = getchar()
+ let c = nr2char(key)
+
+ if key == "\<Left>" || key == "\<Up>" || c ==# 'h' || c ==# 'j'
+ call s:PrevSilent()
+ elseif key == "\<Down>" || key == "\<Right>" || c ==# 'l' || c==# 'k' || c==# ' '
+ call s:NextSilent()
+ elseif c==# 'g' || c=='0' || c=='1'
+ call s:SetColor( s:GetFirstColors() )
+ elseif c=='$' || c==# 'G'
+ call s:SetColor( s:GetLastColors() )
+ elseif c ==# 'L'
+ " command 'L' list colors
+ call s:ListColors()
+ elseif c=='Z' || c=='z' || key == 13 || c=='q' || c=='Q' || c==':' || key == 27
+ if s:ExitDialog(old, '') != -1
+ break
+ endif
+ elseif key == 12 " c=="\<C-L>"
+ redraw
+ elseif c == '#'
+ call s:JumpByIndex(list,total)
+ elseif key == "\<PageDown>"
+ call s:JumpByIndex2(list,total, (index-10>=1 ? index-10 : index-10+total))
+ elseif key == "\<PageUp>"
+ call s:JumpByIndex2(list,total, index+10)
+ elseif c == '?'
+ call s:ScrollerHelp()
+ elseif c == 'R'
+ call s:RefreshColorschemesList()
+ echo "Colorscheme list refreshed. Press any key to continue."
+ call getchar()
+ else
+ call s:ScrollerHelp()
+ endif
+ let loop = loop + 1
+ endw
+endfu
+
+" Get 1-based index of 'entry' in \n-separated 'list'
+function! s:FindIndex(list,entry)
+ " we assume entry has no special chars or we could escape() it
+ let str = substitute("\n" . a:list . "\n", "\n" . a:entry . "\n.*$", "", "")
+ return 1 + s:CountEntries(str)
+endfu
+
+" Get list element by 1-based index
+function! s:EntryByIndex(list,index)
+ let k=1
+ let tail=a:list
+ while tail != '' && k < a:index
+ let tail=substitute(tail, "^[^\n]*\n", "", "")
+ let k = k + 1
+ endw
+ let tail = substitute(tail, "\n.*$", "", "")
+ return tail
+endfu
+
+function! s:MakeWellFormedList(list)
+
+ " make sure last \n is present
+ let str=a:list."\n"
+ " make sure leading \n are not present
+ let str=substitute(str, "^\n*", "", "")
+ " make sure entries are separated by exactly one \n
+ let str=substitute(str, "\n\\+", "\n", "g")
+
+ return str
+endfu
+
+function! s:CountEntries(list)
+ let str = s:MakeWellFormedList(a:list)
+
+ let str=substitute(str, "[^\n]\\+\n", ".", "g")
+
+ return strlen(str)
+endfu
+
+function! s:RemoveDuplicates(list)
+ let sep = "\n"
+ let res = s:MakeWellFormedList(a:list . "\n")
+ let beg = 0
+ while beg < strlen(res)
+ let end = matchend(res, sep, beg)
+ let str1 = strpart( res, beg, end - beg)
+ let res = strpart(res,0,end) . substitute("\n".strpart(res,end), "\n".str1,"\n","g")
+ let res = substitute(res, "\n\\+", "\n", "g")
+ let beg = end
+ endw
+ return res
+endfu
+
+if v:version >= 700
+
+" s:SortVar(): sort components of string @var separated
+" by delimiter @sep, and returns the sorted string.
+" For example, s:SortVar("c\nb\na", "\n") returns "a\nb\nc\n"
+function! s:SortVar(list, sep)
+ let list = split( a:list, a:sep )
+ let sorted = sort(list)
+ let result = join( sorted, "\n" )
+ return result . "\n"
+endfun
+
+endif
+
+if v:version < 700
+" s:SortVar(): sort components of string @var separated
+" by delimiter @sep, and returns the sorted string.
+" For example, s:SortVar("c\nb\na", "\n") returns "a\nb\nc\n"
+function! s:SortVar(list, sep)
+
+ let res=s:MakeWellFormedList(a:list . "\n")
+ while 1
+ let disorder=0
+ let index1=0
+
+ let len=strlen(res)
+ while 1
+ let index2=matchend(res, a:sep, index1)
+ if index2 == -1 || index2>=len
+ break
+ endif
+ let index3=matchend(res, a:sep, index2)
+ if index3 == -1
+ let index3=len
+ endif
+ let str1=strpart(res, index1, index2-index1)
+ let str2=strpart(res, index2, index3-index2)
+ if str1 > str2
+ let disorder=1
+ " swap str1 and str2 in res
+ let res=strpart(res,0,index1).str2.str1.strpart(res,index3)
+ let index1=index1 + strlen(str2)
+ else
+ let index1=index1 + strlen(str1)
+ endif
+ endw
+
+ if !disorder
+ break
+ endif
+ endw
+ return res
+endfu
+endif " v:version < 700
+
+let s:list = ""
+
+function! s:GetColorschemesList()
+ if s:list == ""
+ let s:list = s:RefreshColorschemesList()
+ endif
+ return s:list
+endfunction
+
+
+function! s:RefreshColorschemesList()
+ let x=globpath(&rtp, "colors/*.vim")
+ let y=substitute(x."\n","\\(^\\|\n\\)[^\n]*[/\\\\]", "\n", "g")
+ let z=substitute(y,"\\.vim\n", "\n", "g")
+ let sorted = s:SortVar(z, "\n")
+ let s:list = s:RemoveDuplicates(sorted)
+ return s:list
+endfun
+
+function! s:GetFirstColors()
+ let list=s:GetColorschemesList()
+ let trim=substitute(list, "^\n\\+", "", "")
+ return substitute(trim, "\n.*", "", "")
+endfu
+
+function! s:GetLastColors()
+ let list=s:GetColorschemesList()
+ let trim=substitute(list, "\n\\+$", "", "")
+ return substitute(trim, "^.*\n", "", "")
+endfu
+
+function! s:FinalEcho(suffix)
+ let list = s:GetColorschemesList()
+ let total = s:CountEntries(list)
+ let index = s:FindIndex(list, s:CurrentColor())
+
+ redraw
+ echon "["
+ echohl Search
+ echon s:CurrentColor()
+ echohl NONE
+ echon "] colorscheme #".index ." of " . total.". "
+ echon a:suffix
+endfu
+
+function! s:GetNextColor(color)
+ let list=s:GetColorschemesList()
+ if ("\n".list) =~ ("\n".s:CurrentColor()."\n")
+ let next=substitute("\n".list."\n", ".*\n".a:color."\n", "", "")
+ let next = substitute(next, "\n.*", "", "")
+ return next=='' ? s:GetFirstColors() : next
+ else
+ return s:GetFirstColors()
+ endif
+endfu
+
+function! s:GetPrevColor(color)
+ let list=s:GetColorschemesList()
+ if ("\n".list) =~ ("\n".a:color."\n")
+ let prev=substitute("\n".list."\n", "\n".a:color."\n.*", "", "")
+ let prev=substitute(prev, "^.*\n", "", "")
+ return prev=='' ? s:GetLastColors() : prev
+ else
+ return s:GetLastColors()
+ endif
+endfu
+
+function! s:NextSilent()
+ let old = s:CurrentColor()
+ let next = s:GetNextColor(s:CurrentColor())
+ call s:SetColor( next )
+endfu
+
+function! s:PrevSilent()
+ let old = s:CurrentColor()
+ let prev = s:GetPrevColor(s:CurrentColor())
+ call s:SetColor( prev )
+endfu
+
+function! s:NextColorscheme()
+ let old = s:CurrentColor()
+ let next = s:GetNextColor(s:CurrentColor())
+ call s:SetColor( next )
+ redraw
+ call s:FinalEcho('previous: '.old)
+endfun
+
+function! s:PrevColorscheme()
+ let old = s:CurrentColor()
+ let prev = s:GetPrevColor(s:CurrentColor())
+ call s:SetColor( prev )
+ redraw
+ call s:FinalEcho('previous: '.old)
+endfun
+
+command! CN :call s:NextColorscheme()
+command! CP :call s:PrevColorscheme()
+map \n :CN<cr>
+map \p :CP<cr>
+map \c :echo g:colors_name<cr>
+
+" 2006-07-18 fixed bug with Align() -> s:Align() (affected L command)
+" 2006-07-18 added colorlist cache (s:list)
+" 2006-07-18 added R key to refresh colorlist
+" 2006-07-19 for vim7, sort using builtin sort() (bubblesort is slow)