diff options
Diffstat (limited to 'vim/boxdraw/boxdraw.vim')
| -rw-r--r-- | vim/boxdraw/boxdraw.vim | 291 |
1 files changed, 0 insertions, 291 deletions
diff --git a/vim/boxdraw/boxdraw.vim b/vim/boxdraw/boxdraw.vim deleted file mode 100644 index 284232f..0000000 --- a/vim/boxdraw/boxdraw.vim +++ /dev/null @@ -1,291 +0,0 @@ -" Box drawing module for Vim 6.0 -" (C) Andrew Nikitin, 2002 -" 2002-01-07 -- created by nsg -" 2002-01-08 -- first box drawing (single only) -" 2002-01-09 -- (00:42) fixed col(".") bug (note vim bug k"tylj does not retu) -" 2002-01-09 -- optimize -" 2002-01-10 -- double boxes -" 2002-01-16 -- use script-local var and access function instead of global -" 2002-01-30 -- ,a mapping (box->ascii conversion) -" 2003-11-10 -- implemented MB avoiding "number Ctl-V" -" 2004-06-18 -- fixed ToAscii so it replaces "─"; trace path (g+arrow) -" 2004-06-23 -- merged single-byte and utf-8 support in one file -" 2004-06-30 -- do not use shift+arrows unless in win32 -" 2008-12-17 -- special processing for line-block movements, changed cabbr for -" perl - - -let s:o_utf8='--0251--001459--50585a----------0202----0c1c----525e------------51--51--53--5f--54--60------------------------------------------00185c--003468------------------1024----2c3c--------------------56--62--65--6b--------------------------------------------------505b5d----------506769----------5561------------646a------------57--63----------66--6c------------------------------------------------------------------01' -let s:i_utf8='44cc11------------------14------50------05------41------15--------------51--------------54--------------45--------------55--------------------------------------88221824289060a009060a81428219262a9162a29864a889468a9966aa14504105------40010410' -let s:o_cp437='--b3ba--c4c0d3--cdd4c8----------b3b3----dac3----d5c6------------ba--ba--d6--c7--c9--cc------------------------------------------c4d9bd--c4c1d0------------------bfb4----c2c5--------------------b7--b6--d2--d7--------------------------------------------------cdbebc----------cdcfca----------b8b5------------d1d8------------bb--b9----------cb--ce' -let s:i_cp437='----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------115191626090a222a08242815005455415445519260a288aa82a88aa894698640609182466994114' - -let s:scriptfile=expand("<sfile>:h") - -" -" Activate mode. Assigned to ,b macro. -" -fu! <SID>S() - if has("gui_running") - " se enc=utf8 - en - let s:ve=&ve - setl ve=all - " Note that typical terminal emulator program (Putty, in particular) does - " not support Shift arrows too good. You will, probably, have to redefines - " those to, say, - " ,<Up> etc. - if has("win32") - " Under Windows Shift+Arrows works quite smooth, unlike most terminals - nm <S-Up> :call <SID>M(1,'k')<CR> - nm <S-Down> :call <SID>M(16,'j')<CR> - nm <S-Left> :call <SID>M(64,'h')<CR> - nm <S-Right> :call <SID>M(4,'l')<CR> - nm g<Up> :call <SID>G(0)<CR> - nm g<Right> :call <SID>G(1)<CR> - nm g<Down> :call <SID>G(2)<CR> - nm g<Left> :call <SID>G(3)<CR> - vm <S-Up> <esc>:call <SID>MB('k')<CR> - vm <S-Down> <esc>:call <SID>MB('j')<CR> - vm <S-Left> <esc>:call <SID>MB('h')<CR> - vm <S-Right> <esc>:call <SID>MB('l')<CR> - else - nm <Up> :call <SID>M(1,'k')<CR> - nm <Down> :call <SID>M(16,'j')<CR> - nm <Left> :call <SID>M(64,'h')<CR> - nm <Right> :call <SID>M(4,'l')<CR> - nm g<Up> :call <SID>G(0)<CR> - nm g<Right> :call <SID>G(1)<CR> - nm g<Down> :call <SID>G(2)<CR> - nm g<Left> :call <SID>G(3)<CR> - vm <Up> <esc>:call <SID>MB('k')<CR> - vm <Down> <esc>:call <SID>MB('j')<CR> - vm <Left> <esc>:call <SID>MB('h')<CR> - vm <Right> <esc>:call <SID>MB('l')<CR> - en - vmap <Leader>a :ToAscii<cr> - nm <Leader>e :call <SID>E()<CR> - nm <Leader>s :call <SID>SetLT(1)<CR> - nm <Leader>d :call <SID>SetLT(2)<CR> - exec "cabbr <"."buffer> perl perl ".s:scriptfile - - let s:bdlt=1 - nm <Leader>b x - nun <Leader>b -endf - -fu! s:SetLT(thickness) - let s:bdlt=a:thickness -endf - -" Deactivate mode. -" Unmap macros, restore &ve option -fu! <SID>E() - if has("win32") - " Under Windows Shift+Arrows works quite smooth, unlike most terminals - nun <S-Up> - nun <S-Down> - nun <S-Left> - nun <S-Right> - nun g<Up> - nun g<Right> - nun g<Down> - nun g<Left> - vu <S-Up> - vu <S-Down> - vu <S-Left> - vu <S-Right> - else - nun <Up> - nun <Down> - nun <Left> - nun <Right> - nun g<Up> - nun g<Right> - nun g<Down> - nun g<Left> - vu <Up> - vu <Down> - vu <Left> - vu <Right> - en - nun <Leader>e - nm <buffer> <Leader>b :call <SID>S()<CR> - cuna <buffer> perl - let &ve=s:ve - unlet s:ve - "echo "Finished Boxdrawing mode" -endf - -fu! s:GetBoxCode(char) - " check if symbol from unicode boxdrawing range - " E2=1110(0010) - " 25= 10(0101)xx - if 'utf-8'== &enc - if(0xE2==char2nr(a:char[0])&&0x25==char2nr(a:char[1])/4) - retu '0x'.strpart(s:i_utf8,2*(char2nr(a:char[1])%4*64+char2nr(a:char[2])%64),2) - en - else " Assume cp437 encoding - retu '0x'.strpart(s:i_cp437,2*char2nr(a:char),2) - en - retu 0 -endf - -" Try neihgbour in direction 'd' if c is true. Mask m for the direction -" should also be supplied. -" Function returns neighboring bit -" Unicode entries are encoded in utf8 as -" 7 bit : 0vvvvvvv -" 11 bit : 110vvvvv 10vvvvvv -" 16 bit : 1110vvvv 10vvvvvv 10vvvvvv -fu! s:T(c,d,m) - if(a:c) - exe 'norm mt'.a:d.'"tyl`t' - let c=s:GetBoxCode(@t) - retu c%a:m*4/a:m - en - retu 0 -endf - -" 3*4^x, where x=0,1,2,3 -" fu! s:Mask(x) -" retu ((6+a:x*(45+a:x*(-54+a:x*27)))/2) -" endf - -" Move cursor (follow) in specified direction -" Return new direction if new position is valid, -1 otherwise -" dir: 'kljh' -" ^>V< -" 0123 -" mask: 3 12 48 192 -" let @x=3|echo (6+@x*(45+@x*(-54+@x*27)))/2 -" -fu! <SID>F(d) - exe 'norm '.('kljh'[a:d]).'"tyl' - let c=s:GetBoxCode(@t) - let i=0 - let r=-1 - while i<4 - if 0!=c%4 && a:d!=(i+2)%4 - if r<0 - let r=i - else - retu -1 - endif - endif - let c=c/4 - let i=i+1 - endw - retu r -endf - -fu! <SID>G(d) - let y=line(".") - let x=virtcol(".") - let n=a:d - while n>=0 - let n=s:F(n) - if y==line(".") && x==virtcol(".") - echo "Returned to same spot" - break - endif - endw -endf - -" Move cursor in specified direction (d= h,j,k or l). Mask s for -" the direction should also be supplied -" -fu! <SID>M(s,d) - let t=@t - let x=s:T(1<col("."),'h',16)*64+s:T(line(".")<line("$"),'j',4)*16+s:T(1,'l',256)*4+s:T(1<line("."),'k',64) - let @t=t - let c=a:s*s:bdlt+x-x%(a:s*4)/a:s*a:s - "echo 'need c='.c.' x='.x - if 'utf-8'==&enc - let o=strpart(s:o_utf8,2*c,2) - if o!='--' && o!='' - exe "norm r\<C-V>u25".o.a:d - en - else - let o=strpart(s:o_cp437,2*c,2) - if o!='--' && o!='' - exe "norm r\<C-V>x".o.a:d - en - en -" "echo "Boxdrawing mode" -endf - -scriptencoding utf8 -command! -range ToAscii :silent <line1>,<line2>s/┌\|┬\|┐\|╓\|╥\|╖\|╒\|╤\|╕\|╔\|╦\|╗\|├\|┼\|┤\|╟\|╫\|╢\|╞\|╪\|╡\|╠\|╬\|╣\|└\|┴\|┘\|╙\|╨\|╜\|╘\|╧\|╛\|╚\|╩\|╝/+/ge|:silent <line1>,<line2>s/[│║]/\|/ge|:silent <line1>,<line2>s/[═─]/-/ge - -command! -range ToHorz :<line1>,<line2>s/─\|═/-/g -command! -range ToHorz2 :<line1>,<line2>s/─/-/g -" 0000000: 636f 6d6d 616e 6421 202d 7261 6e67 6520 command! -range -" 0000010: 546f 486f 727a 203a 3c6c 696e 6531 3e2c ToHorz :<line1>, -" 0000020: 3c6c 696e 6532 3e73 2fe2 9480 5c7c e295 <line2>s/...\|.. -" 0000030: 9029 2f6f 2f67 0d0a .)/o/g.. -command! -range ToVert :<line1>,<line2>s/│\|║/\|/g - -" Move block dispatch -fu! s:MB(d) - if visualmode()=='' || visualmode()=='v' - call s:MRB(a:d) - elseif visualmode()=='V' - call s:MLB(a:d) - en -endf - -" Move line block -fu! s:MLB(d) - if a:d=='j' || a:d=='k' - let l:cmd= "norm gv\"yd".a:d."\"yP1V" - exe l:cmd - elseif a:d=='h' - normal gv - :'<,'>s/^.// - normal gv - elseif a:d=='l' - normal gv - :'<,'>s/^/ / - normal gv - en -endf - -" Move Rectangular block -" sideeffect: stores contents of a block in "y -" 1<C-V> does not work good in 6.0 when multibyte characters are involved -" gvp does not work good ... -" gv also has some problems -" See http://vim.sourceforge.net/tips/tip.php?tip_id=808 for different way to -" paste -fu! s:MRB(d) - " It seems that rectangular boxes and multibyte do not live together too - " good asof version 6.3 - " Normally something like - " exe 'norm gv"yygvr '.a:d.'1<C-V>"ypgv' - " should have worked - let l:y1=line(".") - let l:x1=virtcol(".") - "echo l:x1."-".l:y1 - normal gv"yygvo - let l:y2=line(".") - let l:x2=virtcol(".") - if l:x1>l:x2 | let l:t=l:x1 | let l:x1=l:x2 | let l:x2=l:t | endif - if l:y1>l:y2 | let l:t=l:y1 | let l:y1=l:y2 | let l:y2=l:t | endif - let l:pos=l:y1."G0" - if 1<l:x1 | let l:pos=l:pos.(l:x1-1)."l" | endif - let l:size="" - if 0<l:y2-l:y1 | let l:size=l:size.(l:y2-l:y1)."j" | endif - if 0<l:x2-l:x1 | let l:size=l:size.(l:x2-l:x1)."l" | endif - exe "normal gvr ".l:pos.a:d."".l:size."d\"yPgvjk" -endf - - -:nmap <buffer> ,b :call <SID>S()<CR> -if has("win32") - " Under win32 activate boxdrwaing mode upon start. - " If undesirable, prepend with :nmap ,b - " - :normal ,b -else -en |