improving dotfiles

1 files changed, 468 insertions, 0 deletions

diff --git a/xxx/vim-old/vim-colortune/colortune.vim b/xxx/vim-old/vim-colortune/colortune.vim
new file mode 100644
index 0000000..97f2afd
--- /dev/null
+++ b/xxx/vim-old/vim-colortune/colortune.vim
@@ -0,0 +1,468 @@
+"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
+"
+" Miguel's ColorTune plugin
+"
+""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
+" {{{
+"
+" TODO LIST:
+" {{{
+" * restrict movement and values, but how???
+" * use R/G/B r/g/b keys to increase/decrease rgb values
+" * map some nice short-keys for this buffer only
+" * show rgb.txt! to alllow selection of named gui-colors
+" * show some dropdowns or something for other stuff
+" * let user override some of the values from users vimrc!!
+" * enable reset to colortheme
+" * clear all groups / clear group completely or just for active mode!
+" * document and publish
+" * treat NONE and NOT SET AT ALL differently!!
+" * add some error detection and treatment! ie. setline etc..
+" * just redraw single lines where possible
+" * REORDER and CLEANUP
+" * create bundle and move most of functioanlity to autoload,
+"	except Colortune_start or somehting
+" * check if we are not reinventing the wheel at some places:
+"	ie: getline()?
+" * check if there are already such plugins, and find out why this one is
+"	better ;)
+" * BUG: regex limited number so start/stop omittted in complete list
+"	so it is also not exported via config_dump right now
+" * BUG: i do not understand set background. it is always set to dark by now
+" * BUG: column names are not nicely aligned
+" * BUG: spaces are not supported within key-values
+"
+" }}}
+
+" Set some basic defaults and initialize
+" {{{
+
+" modes are: 0-term, 1-cterm, 2-gui, 3-complete
+let s:default_mode=2
+
+let s:colortune_buf_name='__COLORTUNE_PLUGIN__'
+
+let s:temp_reg='a'
+
+" Define the popular highlight groups
+let s:colortable=[
+    \	'Normal', 'Comment', 'Constant', 'Identifier',
+    \	'Statement', 'PreProc', 'Type', 'Special', 'Underlined',
+    \	'Ignore', 'Error', 'Todo', 'ColorColumn', 'Conceal', 'Cursor',
+    \	'CursorIM', 'CursorColumn', 'CursorLine', 'Directory',
+    \	'DiffAdd', 'DiffChange', 'DiffText', 'ErrorMsg', 'VertSplit',
+    \	'Folded', 'FoldColumn', 'SignColumn', 'IncSearch', 'LineNr',
+    \	'CursorLineNr', 'MatchParen', 'ModeMsg', 'MoreMsg', 'NonText',
+    \	'PmenuSel', 'PmenuSbar', 'PmenuThumb', 'Question', 'Search',
+    \	'SpecialKey', 'SpellBad', 'SpellCap', 'SpellLocal',
+    \	'SpellRare', 'StatusLine', 'StatusLineNC', 'Title', 'Visual',
+    \	'VisualNOS', 'WarningMsg', 'WildMenu', 'TabLine',
+    \	'TabLineFill', 'TabLineSel' ]
+
+
+" Define modes and their relevant keys in the highlight groups
+let s:modes_labels=['Black & White Terminals','Color Terminals','GUI','Complete']
+let s:modes=[	['term','start','stop'],
+	    \	['cterm','ctermfg','ctermbg'],
+	    \	['gui','guifg','guibg','guisp'],
+	    \   ['term','cterm','ctermfg','ctermbg','gui','guifg','guibg','guisp']]
+
+" init
+"
+let s:current_mode=s:default_mode
+" }}}
+
+" Colortune_getline()
+" {{{
+" Retruns current line of current buffer.
+"
+function! Colortune_getline()
+    return getline(line('.'))
+endfunction
+" }}}
+
+" Colortune_getcmdoutput(cmd)
+" {{{
+" Redirect the output of cmd to a temporary register and return result.
+"
+function! Colortune_getcmdoutput(cmd)
+
+	let reg_val=getreg(s:temp_reg)
+	redir @a
+	    silent execute a:cmd
+	redir END
+	let val=getreg(s:temp_reg)
+	call setreg(s:temp_reg,reg_val)
+	return val
+
+endfunction
+" }}}
+
+" Colortune_getattr(group,key)
+" {{{
+" Get the value of one 'key' of a highlighting group
+" returns 'NONE' if the requested key is not specified
+"
+function! Colortune_getattr(group,key)
+
+	let hil=Colortune_getcmdoutput('hi '.a:group)
+
+	" extract the value for given key (if exists) and return
+	if hil !~# a:key.'=.\+'
+	    let val='NONE'
+	else
+	    let val=substitute(hil.' ','^.* '.a:key.'=\(.\{-}\)\s.*$','\1','')
+	endif
+	return val
+
+endfunction
+"}}}
+
+" Colortune_getmax(key)
+" {{{
+" Returns maximal length of values for requested key.
+" key='GROUP_NAME' returns maximal length of highlight group names.
+"
+function! Colortune_getmax(key)
+    let max=0
+    for group in s:colortable
+	if(a:key==#'GROUP_NAME')
+	    let length=len(group)
+	else
+	    let length=len(Colortune_getattr(group,a:key))
+	endif
+	let max = max<length ? length : max
+    endfor
+    return max
+endfunction
+" }}}
+
+" Colortune_extend(val,fill,len)
+" {{{
+" Extend string 'val' with characters 'fill' to match length of 'len'
+"
+function! Colortune_extend(val,fill,len)
+
+    let len=a:len-len(a:val)
+    let val=a:val
+
+    while len>0
+	let len-=1
+	let val.=a:fill
+    endwhile
+    return val
+
+endfunction
+" }}}
+
+" Colortune_togglemode()
+" {{{
+" Cycles through available modes
+"
+function! Colortune_togglemode()
+
+    let max=len(s:modes)-1
+    let s:current_mode+=1
+    if s:current_mode > max
+	let s:current_mode=0
+    endif
+    call Colortune_fill()
+endfunction
+" }}}
+
+" Colortune_getregexpattern()
+" {{{
+" Helper function that builds our regex-pattern for setting and clearing
+" the highlight values, based on the current buffer-line
+"
+function! Colortune_getregexpattern()
+
+    let str='^\(.\{-}\)\s.*'
+
+    for column in s:modes[s:current_mode]
+	let str.='.*\[\(.*\)\]'
+    endfor
+
+    return str
+
+endfunction
+" }}}
+
+" Colortune_getregexstring()
+" {{{
+" Helper function that builds our substitution string for setting
+" the highlight values, based on the current buffer-line
+"
+function! Colortune_getregexstring()
+    let str=''
+    let idx=2
+    for column in s:modes[s:current_mode]
+	let str.=' '.column.'=\'.idx
+	let idx+=1
+    endfor
+    return str
+endfunction
+" }}}
+
+" Colortune_clearbyline()
+" {{{
+" Clear highlight group in current line
+" Set highlight group values by extracting them from the current line
+"
+function! Colortune_clearbyline()
+    let myline=Colortune_getline()
+    exec substitute(myline,Colortune_getregexpattern(),'hi clear \1','')
+    call Colortune_fill()
+endfunction
+" }}}
+
+" Colortune_setbyline()
+" {{{
+" Set highlight group values by extracting them from the current line
+"
+function! Colortune_setbyline()
+    let myline=Colortune_getline()
+    exec substitute(myline,Colortune_getregexpattern(),'hi \1 '.Colortune_getregexstring(),'')
+    call Colortune_fill()
+endfunction
+" }}}
+
+" Colortune_fill()
+" {{{
+" Create or Redraw the ColorTune Window/Buffer
+"
+function! Colortune_fill()
+
+    " open a new split or switch to it (if already open)
+    let potbufnr=bufwinnr(s:colortune_buf_name)
+    if potbufnr==#-1
+        execute 'vsplit '.s:colortune_buf_name
+    else
+	execute potbufnr.'wincmd w'
+    endif
+
+    " set some options
+    setlocal filetype=colortune
+    setlocal buftype=nofile
+    setlocal nowrap
+
+    " set mappings
+    nnoremap <buffer> <cr> :call Colortune_setbyline()<cr>
+    inoremap <buffer> <cr> <esc>:call Colortune_setbyline()<cr>
+
+    nnoremap <buffer> X :call Colortune_clearbyline()<cr>
+    nnoremap <buffer> M :call Colortune_togglemode()<cr>
+    nnoremap <buffer> C :call Colortune_dumpconfig()<cr>
+
+    nnoremap <buffer> Ar :call Colortune_manipulate_rgb(16,0,0)<cr>
+    nnoremap <buffer> Sr :call Colortune_manipulate_rgb(-16,0,0)<cr>
+    nnoremap <buffer> Ag :call Colortune_manipulate_rgb(0,16,0)<cr>
+    nnoremap <buffer> Sg :call Colortune_manipulate_rgb(0,-16,0)<cr>
+    nnoremap <buffer> Ab :call Colortune_manipulate_rgb(0,0,16)<cr>
+    nnoremap <buffer> Sb :call Colortune_manipulate_rgb(0,0,-16)<cr>
+
+    nnoremap <buffer> ar :call Colortune_manipulate_rgb(1,0,0)<cr>
+    nnoremap <buffer> sr :call Colortune_manipulate_rgb(-1,0,0)<cr>
+    nnoremap <buffer> ag :call Colortune_manipulate_rgb(0,1,0)<cr>
+    nnoremap <buffer> sg :call Colortune_manipulate_rgb(0,-1,0)<cr>
+    nnoremap <buffer> ab :call Colortune_manipulate_rgb(0,0,1)<cr>
+    nnoremap <buffer> sb :call Colortune_manipulate_rgb(0,0,-1)<cr>
+    
+
+    nnoremap <buffer> VG :call Colortune_showguirgb()<cr>
+    nnoremap <buffer> VC :call Colortune_showctermrgb()<cr>
+
+
+    " set syntax highlighting for our group keywords
+    for mycolor in s:colortable
+	execute 'syn keyword '.mycolor.' '.mycolor
+    endfor
+
+    " remember current position and clean the buffer
+    let top_line=line('w0')
+    let cur_line=line('.')
+    let save_cursor = getpos(".")
+    normal! ggdG
+
+    " display header with some infos
+    call append(line('$')-1,'------------------------------------------')
+    call append(line('$')-1,'Colortable Mode: ['.s:modes_labels[s:current_mode].']')
+    call append(line('$')-1,'------------------------------------------')
+    call append(line('$')-1,'ENTER  - Set from current line -----------')
+    call append(line('$')-1,'X      - Unset current line --------------')
+    call append(line('$')-1,'M      - Toggle Mode ---------------------')
+    call append(line('$')-1,'C      - Dump Config to new buffer -------')
+    call append(line('$')-1,'VC     - View palette  (cterm) -----------')
+    call append(line('$')-1,'VG     - View palette  (gui) -------------')
+    call append(line('$')-1,'a[rgb] - increase [rgb]] by 1 ------------')
+    call append(line('$')-1,'A[rgb] - increase [rgb]] by 16 -----------')
+    call append(line('$')-1,'s[rgb] - decrease [rgb]] by 1 ------------')
+    call append(line('$')-1,'S[rgb] - decrease [rgb]] by 16 -----------')
+    call append(line('$')-1,'------------------------------------------')
+    call append(line('$')-1,'-')
+
+    " find out the maximal length for each column
+    let max_len=[Colortune_getmax('GROUP_NAME')]
+    for column in s:modes[s:current_mode]
+	let max_len+=[Colortune_getmax(column)]
+    endfor
+	
+    " display column names
+    let labels=Colortune_extend('GROUP_NAME'.' ',' ',5+max_len[0])
+    let idx=1
+    for column in s:modes[s:current_mode]
+	let labels.='  '.Colortune_extend(column,' ',max_len[idx]).'  '
+	let idx+=1
+    endfor
+    call append(line('$')-1,labels)
+    call append(line('$')-1,'------------------------------------------')
+
+    " paint the color table
+    for group in s:colortable
+
+	let colorline=Colortune_extend(group.' ','-',5+max_len[0])
+	
+	let idx=1
+	for column in s:modes[s:current_mode]
+	    let value=Colortune_getattr(group,column)
+	    let colorline.=' ['.Colortune_extend(value,' ',max_len[idx]).'] '
+	    let idx+=1
+	endfor
+
+	call append(line('$')-1,colorline)
+
+    endfor
+
+    " delete last (empty) line and restore initial position.
+    normal ddgg
+    exec 'normal G'.top_line.'G'.cur_line.'G'
+    call setpos('.', save_cursor)
+
+endfunction
+" }}}
+
+" Colortune_dumpconfig()
+" {{{
+"
+function! Colortune_dumpconfig()
+
+    new
+    set ft=vim
+    set nowrap
+
+    " add header stuff for our colortheme
+    call append(line('$')-1,[
+	\   'set background=dark',
+	\   'hi clear',
+	\   'if exists("syntax_on")', 'syntax reset', 'endif',
+	\   'let g:colors_name = "mycolorscheme"'])
+
+
+    for group in s:colortable
+	let config=''
+
+	for column in s:modes[s:current_mode]
+	    let value=Colortune_getattr(group,column)
+	    let config.=' '.column.'='.value
+	endfor
+	call append(line('$')-1,'hi '.group.config)
+    endfor
+
+    normal gg
+
+endfunction
+" }}}
+
+" Colortune_manipulate_rgb()
+" {{{
+" TODO: restore register!
+" TODO: check overflow/underflow
+" TODO: check format
+"
+function! Colortune_manipulate_rgb(r,g,b)
+
+    normal T["adt]
+    let val=getreg('a')
+    let r='0x'.substitute(val,'^#\(\x\x\)\x\x\x\x','\1','')
+    let g='0x'.substitute(val,'^#\x\x\(\x\x\)\x\x','\1','')
+    let b='0x'.substitute(val,'^#\x\x\x\x\(\x\x\)','\1','')
+    call setreg('a',printf("#%02x%02x%02x",r+a:r,g+a:g,b+a:b))
+    normal "aP
+    call Colortune_setbyline()
+
+endfunction
+
+
+" }}}
+
+" Colortune_showguirgb()
+"{{{
+function! Colortune_showguirgb()
+
+    vnew
+    set nowrap
+    nnoremap <buffer> <cr> :call Colortune_fillincolor()<cr>
+
+    r $VIMRUNTIME/rgb.txt
+    let linenr=1
+    let result=[]
+    while linenr<line('$')
+
+	let myline=getline(linenr)
+	if myline =~# '^\s*\d\+\s\+\d\+\s\+\d\+\s\+\w\+\s*$'
+	    exec substitute(myline,'^\s*\(\d\+\)\s\+\(\d\+\)\s\+\(\d\+\)\s\+\(\w\+\)\s*$','let extr=["\4",\1,\2,\3]','')
+	    exec 'hi color_'.extr[0].' guibg='.printf("#%02x%02x%02x",extr[1],extr[2],extr[3])
+	    exec 'syntax match color_'.extr[0].' "color_'.extr[0].'"'
+	    let result+=[extr[0].' ~ color_'.extr[0]]
+	else
+	endif
+
+	let linenr+=1
+
+    endwhile
+
+    normal ggdG
+    call append(0,result)
+
+
+endfunction
+"}}}
+
+" Colortune_showctermrgb()
+"{{{
+function! Colortune_showctermrgb()
+
+    vnew
+    set nowrap
+    nnoremap <buffer> <cr> :call Colortune_fillincolor()<cr>
+
+    let colornr=0
+    let result=[]
+    while colornr<256
+
+	exec 'hi color_'.colornr.' ctermbg='.colornr
+	exec 'syntax match color_'.colornr.' "color_'.colornr.'"'
+	let result+=[colornr.' ~ color_'.colornr]
+	let colornr+=1
+
+    endwhile
+
+    call append(0,result)
+
+
+endfunction
+"}}}
+
+" Colortune_fillincolor()
+" {{{
+function! Colortune_fillincolor()
+    normal 0"ayaw
+    let potbufnr=bufwinnr(s:colortune_buf_name)
+    execute potbufnr.'wincmd w'
+    normal di]"aP
+    call Colortune_setbyline()
+endfunction
+" }}}
+
+" }}}
+