" Vimball Archiver by Charles E. Campbell, Jr., Ph.D. UseVimball finish vis/plugin/visPlugin.vim [[[1 60 " vis.vim: " Function: Perform an Ex command on a visual highlighted block (CTRL-V). " Date: May 18, 2010 " GetLatestVimScripts: 1066 1 cecutil.vim " GetLatestVimScripts: 1195 1 :AutoInstall: vis.vim " Verse: For am I now seeking the favor of men, or of God? Or am I striving " to please men? For if I were still pleasing men, I wouldn't be a servant " of Christ. (Gal 1:10, WEB) " --------------------------------------------------------------------- " Details: {{{1 " Requires: Requires 6.0 or later (this script is a plugin) " Requires (see :he vis-required) " " Usage: Mark visual block (CTRL-V) or visual character (v), " press ':B ' and enter an Ex command [cmd]. " " ex. Use ctrl-v to visually mark the block then use " :B cmd (will appear as :'<,'>B cmd ) " " ex. Use v to visually mark the block then use " :B cmd (will appear as :'<,'>B cmd ) " " Command-line completion is supported for Ex commands. " " Note: There must be a space before the '!' when invoking external shell " commands, eg. ':B !sort'. Otherwise an error is reported. " " Author: Charles E. Campbell - NOSPAM " Based on idea of Stefan Roemer " " ------------------------------------------------------------------------------ " Initialization: {{{1 " Exit quickly when has already been loaded or " when 'compatible' is set if &cp finish endif let s:keepcpo= &cpo set cpo&vim " ------------------------------------------------------------------------------ " Public Interface: {{{1 " -range : VisBlockCmd operates on the range itself " -com=command : Ex command and arguments " -nargs=+ : arguments may be supplied, up to any quantity com! -range -nargs=+ -com=command B sil ,call vis#VisBlockCmd() com! -range -nargs=* -com=expression S sil ,call vis#VisBlockSearch() " Suggested by Hari -- if exists("g:vis_WantSlashSlash") && g:vis_WantSlashSlash vn // /=vis#VisBlockSearch() endif vn ?? ?=vis#VisBlockSearch() let &cpo= s:keepcpo unlet s:keepcpo " --------------------------------------------------------------------- " Modelines: {{{1 " vim: fdm=marker vis/autoload/vis.vim [[[1 339 " vis.vim: " Function: Perform an Ex command on a visual highlighted block (CTRL-V). " Version: 21f NOT RELEASED " Date: Sep 08, 2016 " GetLatestVimScripts: 1066 1 cecutil.vim " GetLatestVimScripts: 1195 1 :AutoInstall: vis.vim " Verse: For am I now seeking the favor of men, or of God? Or am I striving " to please men? For if I were still pleasing men, I wouldn't be a servant " of Christ. (Gal 1:10, WEB) " " Author: Charles E. Campbell - NOSPAM " Based on idea of Stefan Roemer " " ------------------------------------------------------------------------------ " Initialization: {{{1 " Exit quickly when has already been loaded or " when 'compatible' is set if &cp || exists("g:loaded_vis") finish endif let s:keepcpo = &cpo let g:loaded_vis = "v21fNR" set cpo&vim "DechoTabOn " --------------------------------------------------------------------- " Support Functions: {{{1 " ------------------------------------------------------------------------------ " vis#VisBlockCmd: {{{2 fun! vis#VisBlockCmd(cmd) range " call Dfunc("vis#VisBlockCmd(cmd<".a:cmd.">") " retain and re-use same visual mode sil! keepj norm `< let curposn = SaveWinPosn(0) let vmode = visualmode() " call Decho("vmode<".vmode.">") call s:SaveUserSettings() if vmode == 'V' " call Decho("handling V mode") " call Decho("cmd<".a:cmd.">") exe "keepj '<,'>".a:cmd else " handle v and ctrl-v " call Decho("handling v or ctrl-v mode") " Initialize so (begcol < endcol) for non-v modes let begcol = s:VirtcolM1("<") let endcol = s:VirtcolM1(">") if vmode != 'v' if begcol > endcol let begcol = s:VirtcolM1(">") let endcol = s:VirtcolM1("<") endif endif " Initialize so that begline endline let begline = a:lastline let endline = a:firstline endif " call Decho('beg['.begline.','.begcol.'] end['.endline.','.endcol.']') " ======================= " Modify Selected Region: " ======================= " 1. delete selected region into register "a " call Decho("1. delete selected region into register a") sil! keepj norm! gv"ad " call Decho("1. reg-A<".@a.">") " call Recho("Step#1: deleted selected region into register")|redraw!|sleep 3 " Decho " 2. put cut-out text at end-of-file " call Decho("2. put cut-out text at end-of-file") keepj $ keepj pu_ let lastline= line("$") sil! keepj norm! "aP " call Decho("2. reg-A<".@a.">") " call Recho("Step#2: put text at end-of-file")|redraw!|sleep 3 " Decho " 3. apply command to those lines let curline = line(".") ka keepj $ " call Decho("3. apply command<".a:cmd."> to those lines (curline=".line(".").")") exe "keepj ". curline.',$'.a:cmd " call Recho("Step#3: apply command")|redraw!|sleep 3 " Decho " 4. Prepend the "empty_chr" since "ad on empty lines inserts blanks if exists("g:vis_empty_character") let empty_chr= g:vis_empty_character else let empty_chr= (&enc == "euc-jp")? "\" : "\" endif " if the command removes the text, then don't do anything with the " non-existent text (for example, :B !true under unix) if curline <= line("$") exe "keepj sil! ". curline.',$s/^/'.empty_chr.'/' " call Recho("Step#3a: prepend empty-character")|redraw!|sleep 3 " Decho " 5. visual-block select the modified text in those lines " call Decho("5. visual-block select modified text at end-of-file") exe "keepj ".lastline exe "keepj norm! 0".vmode."G$\"ad" " call Decho("5. reg-A<".@a.">") " call Recho("Step#5: select modified text")|redraw!|sleep 3 " Decho " 6. delete excess lines " call Decho("6. delete excess lines") exe "sil! keepj ".lastline.',$d' " call Recho("Step#6: delete excess lines")|redraw!|sleep 3 " Decho " 7. put modified text back into file " call Decho("7. put modifed text back into file (beginning=".begline.".".begcol.")") exe "keepj ".begline if begcol > 1 exe 'sil! keepj norm! '.begcol."\\"ap" elseif begcol == 1 norm! 0"ap else norm! 0"aP endif " call Recho("Step#7: put modified text back")|redraw!|sleep 3 " Decho endif " 8. attempt to restore gv -- this is limited, it will " select the same size region in the same place as before, " not necessarily the changed region " call Decho("8. restore gv") let begcol= begcol+1 let endcol= endcol+1 exe "sil keepj ".begline exe 'sil keepj norm! '.begcol."\".vmode exe "sil keepj ".endline exe 'sil keepj norm! '.endcol."\\" exe "sil keepj ".begline exe 'sil keepj norm! '.begcol."\" " call Recho("Step#8: restore gv")|redraw!|sleep 3 " Decho " 9. Remove empty-character from text " call Decho("9. remove empty-character from lines ".begline." to ".endline) exe "sil! keepj ".begline.','.endline.'s/'.empty_chr.'//e' " call Recho("Step#9: remove empty-character")|redraw!|sleep 3 " Decho endif " restore a-priori condition call s:RestoreUserSettings() call RestoreWinPosn(curposn) " call Dret("vis#VisBlockCmd") endfun " ------------------------------------------------------------------------------ " vis#VisBlockSearch: {{{2 fun! vis#VisBlockSearch(...) range " call Dfunc("vis#VisBlockSearch() a:0=".a:0." lines[".a:firstline.",".a:lastline."]") let keepic= &ic set noic if a:0 >= 1 && strlen(a:1) > 0 let pattern = a:1 let s:pattern = pattern " call Decho("a:0=".a:0.": pattern<".pattern.">") elseif exists("s:pattern") let pattern= s:pattern else let pattern = @/ let s:pattern = pattern endif let vmode= visualmode() " collect search restrictions let firstline = line("'<") let lastline = line("'>") let firstcolm1 = s:VirtcolM1("<") let lastcolm1 = s:VirtcolM1(">") " call Decho("1: firstline=".firstline." lastline=".lastline." firstcolm1=".firstcolm1." lastcolm1=".lastcolm1) if(firstline > lastline) let firstline = line("'>") let lastline = line("'<") if a:0 >= 1 keepj norm! `> endif else if a:0 >= 1 keepj norm! `< endif endif " call Decho("2: firstline=".firstline." lastline=".lastline." firstcolm1=".firstcolm1." lastcolm1=".lastcolm1) if vmode != 'v' if firstcolm1 > lastcolm1 let tmp = firstcolm1 let firstcolm1 = lastcolm1 let lastcolm1 = tmp endif endif " call Decho("3: firstline=".firstline." lastline=".lastline." firstcolm1=".firstcolm1." lastcolm1=".lastcolm1) let firstlinem1 = firstline - 1 let lastlinep1 = lastline + 1 let firstcol = firstcolm1 + 1 let lastcol = lastcolm1 + 1 let lastcolp1 = lastcol + 1 " call Decho("4: firstline=".firstline." lastline=".lastline." firstcolm1=".firstcolm1." lastcolp1=".lastcolp1) " construct search string if vmode == 'V' let srch= '\%(\%>'.firstlinem1.'l\%<'.lastlinep1.'l\)\&' " call Decho("V srch: ".srch) elseif vmode == 'v' if firstline == lastline || firstline == lastlinep1 let srch= '\%(\%'.firstline.'l\%>'.firstcolm1.'v\%<'.lastcolp1.'v\)\&' else let srch= '\%(\%(\%'.firstline.'l\%>'.firstcolm1.'v\)\|\%(\%'.lastline.'l\%<'.lastcolp1.'v\)\|\%(\%>'.firstline.'l\%<'.lastline.'l\)\)\&' endif " call Decho("v srch: ".srch) else let srch= '\%(\%>'.firstlinem1.'l\%>'.firstcolm1.'v\%<'.lastlinep1.'l\%<'.lastcolp1.'v\)\&' " call Decho("^v srch: ".srch) endif " perform search if a:0 <= 1 " call Decho("Search forward: <".srch.pattern.">") call search(srch.pattern) let @/= srch.pattern elseif a:0 == 2 " call Decho("Search backward: <".srch.pattern.">") call search(srch.pattern,a:2) let @/= srch.pattern endif " restore ignorecase let &ic= keepic " call Dret("vis#VisBlockSearch <".srch.">") return srch endfun " ------------------------------------------------------------------------------ " s:VirtcolM1: usually a virtcol(mark)-1, but due to tabs this can be different {{{2 fun! s:VirtcolM1(mark) " call Dfunc('s:VirtcolM1("'.a:mark.'")') if virtcol("'".a:mark) <= 1 " call Dret("s:VirtcolM1 0") return 0 endif if &ve == "block" " Works around a ve=all vs ve=block difference with virtcol(). " Since s:SaveUserSettings() changes ve to ve=all, this small " ve override only affects vis#VisBlockSearch(). set ve=all " call Decho("temporarily setting ve=all") endif " call Decho("exe norm! `".a:mark."h") exe "keepj norm! `".a:mark."h" let vekeep = &ve let vc = virtcol(".") let &ve = vekeep " call Dret("s:VirtcolM1 ".vc) return vc endfun " --------------------------------------------------------------------- " s:SaveUserSettings: save options which otherwise may interfere {{{2 fun! s:SaveUserSettings() " call Dfunc("s:SaveUserSettings()") let s:keep_lz = &lz let s:keep_fen = &fen let s:keep_fo = &fo let s:keep_ic = &ic let s:keep_magic = &magic let s:keep_sol = &sol let s:keep_ve = &ve let s:keep_ww = &ww let s:keep_cedit = &cedit set lz magic nofen noic nosol ww= fo=nroql2 cedit& " determine whether or not "ragged right" is in effect for the selected region let raggedright= 0 norm! `> let rrcol = col(".") while line(".") >= line("'<") " call Decho(".line#".line(".").": col(.)=".col('.')." rrcol=".rrcol) if col(".") != rrcol let raggedright = 1 break endif if line(".") == 1 break endif norm! k endwhile if raggedright " call Decho("ragged right: set ve=all") set ve=all else " call Decho("smooth right: set ve=") set ve= endif " Save any contents in register a let s:rega= @a " call Dret("s:SaveUserSettings") endfun " --------------------------------------------------------------------- " s:RestoreUserSettings: restore register a and options {{{2 fun! s:RestoreUserSettings() " call Dfunc("s:RestoreUserSettings()") let @a = s:rega let &cedit = s:keep_cedit let &fen = s:keep_fen let &fo = s:keep_fo let &ic = s:keep_ic let &lz = s:keep_lz let &sol = s:keep_sol let &ve = s:keep_ve let &ww = s:keep_ww " call Dret("s:RestoreUserSettings") endfun let &cpo= s:keepcpo unlet s:keepcpo " ------------------------------------------------------------------------------ " Modelines: {{{1 " vim: fdm=marker vis/plugin/cecutil.vim [[[1 600 " cecutil.vim : save/restore window position " save/restore mark position " save/restore selected user maps " Author: Charles E. Campbell " Version: 18j NOT RELEASED " Date: Aug 13, 2016 " " Saving Restoring Destroying Marks: {{{1 " call SaveMark(markname) let savemark= SaveMark(markname) " call RestoreMark(markname) call RestoreMark(savemark) " call DestroyMark(markname) " commands: SM RM DM " " Saving Restoring Destroying Window Position: {{{1 " call SaveWinPosn() let winposn= SaveWinPosn() " call RestoreWinPosn() call RestoreWinPosn(winposn) " \swp : save current window/buffer's position " \rwp : restore current window/buffer's previous position " commands: SWP RWP " " Saving And Restoring User Maps: {{{1 " call SaveUserMaps(mapmode,maplead,mapchx,suffix) " call RestoreUserMaps(suffix) " " GetLatestVimScripts: 1066 1 :AutoInstall: cecutil.vim " " You believe that God is one. You do well. The demons also {{{1 " believe, and shudder. But do you want to know, vain man, that " faith apart from works is dead? (James 2:19,20 WEB) "redraw!|call inputsave()|call input("Press to continue")|call inputrestore() " --------------------------------------------------------------------- " Load Once: {{{1 if &cp || exists("g:loaded_cecutil") finish endif let g:loaded_cecutil = "v18jNR" let s:keepcpo = &cpo set cpo&vim "if exists("g:loaded_Decho") " Decho " DechoRemOn "endif " Decho " ======================= " Public Interface: {{{1 " ======================= " --------------------------------------------------------------------- " Map Interface: {{{2 if !hasmapto('SaveWinPosn') map swp SaveWinPosn endif if !hasmapto('RestoreWinPosn') map rwp RestoreWinPosn endif nmap SaveWinPosn :call SaveWinPosn() nmap RestoreWinPosn :call RestoreWinPosn() " --------------------------------------------------------------------- " Command Interface: {{{2 com! -bar -nargs=0 SWP call SaveWinPosn() com! -bar -nargs=? RWP call RestoreWinPosn() com! -bar -nargs=1 SM call SaveMark() com! -bar -nargs=1 RM call RestoreMark() com! -bar -nargs=1 DM call DestroyMark() com! -bar -nargs=1 WLR call s:WinLineRestore() if v:version < 630 let s:modifier= "sil! " else let s:modifier= "sil! keepj " endif " =============== " Functions: {{{1 " =============== " --------------------------------------------------------------------- " SaveWinPosn: {{{2 " let winposn= SaveWinPosn() will save window position in winposn variable " call SaveWinPosn() will save window position in b:cecutil_winposn{b:cecutil_iwinposn} " let winposn= SaveWinPosn(0) will *only* save window position in winposn variable (no stacking done) fun! SaveWinPosn(...) let savedposn= winsaveview() if a:0 == 0 if !exists("b:cecutil_iwinposn") let b:cecutil_iwinposn= 1 else let b:cecutil_iwinposn= b:cecutil_iwinposn + 1 endif " echomsg "Decho: saving posn to SWP stack" let b:cecutil_winposn{b:cecutil_iwinposn}= savedposn endif return savedposn "" echomsg "Decho: SaveWinPosn() a:0=".a:0 " if line("$") == 1 && getline(1) == "" "" echomsg "Decho: SaveWinPosn : empty buffer" " return "" " endif " let so_keep = &l:so " let siso_keep = &siso " let ss_keep = &l:ss " setlocal so=0 siso=0 ss=0 " let swline = line(".") " save-window line in file " let swcol = col(".") " save-window column in file " if swcol >= col("$") " let swcol= swcol + virtcol(".") - virtcol("$") " adjust for virtual edit (cursor past end-of-line) " endif " let swwline = winline() - 1 " save-window window line " let swwcol = virtcol(".") - wincol() " save-window window column " let savedposn = "" "" echomsg "Decho: sw[".swline.",".swcol."] sww[".swwline.",".swwcol."]" " let savedposn = "call GoWinbufnr(".winbufnr(0).")" " let savedposn = savedposn."|".s:modifier.swline " let savedposn = savedposn."|".s:modifier."norm! 0z\" " if swwline > 0 " let savedposn= savedposn.":".s:modifier."call s:WinLineRestore(".(swwline+1).")\" " endif " if swwcol > 0 " let savedposn= savedposn.":".s:modifier."norm! 0".swwcol."zl\" " endif " let savedposn = savedposn.":".s:modifier."call cursor(".swline.",".swcol.")\" " " save window position in " " b:cecutil_winposn_{iwinposn} (stack) " " only when SaveWinPosn() is used " if a:0 == 0 " if !exists("b:cecutil_iwinposn") " let b:cecutil_iwinposn= 1 " else " let b:cecutil_iwinposn= b:cecutil_iwinposn + 1 " endif "" echomsg "Decho: saving posn to SWP stack" " let b:cecutil_winposn{b:cecutil_iwinposn}= savedposn " endif " let &l:so = so_keep " let &siso = siso_keep " let &l:ss = ss_keep "" if exists("b:cecutil_iwinposn") " Decho "" echomsg "Decho: b:cecutil_winpos{".b:cecutil_iwinposn."}[".b:cecutil_winposn{b:cecutil_iwinposn}."]" "" else " Decho "" echomsg "Decho: b:cecutil_iwinposn doesn't exist" "" endif " Decho "" echomsg "Decho: SaveWinPosn [".savedposn."]" " return savedposn endfun " --------------------------------------------------------------------- " RestoreWinPosn: {{{2 " call RestoreWinPosn() " call RestoreWinPosn(winposn) fun! RestoreWinPosn(...) if line("$") == 1 && getline(1) == "" return "" endif if a:0 == 0 || type(a:1) != 4 " use saved window position in b:cecutil_winposn{b:cecutil_iwinposn} if it exists if exists("b:cecutil_iwinposn") && exists("b:cecutil_winposn{b:cecutil_iwinposn}") try call winrestview(b:cecutil_winposn{b:cecutil_iwinposn}) catch /^Vim\%((\a\+)\)\=:E749/ " ignore empty buffer error messages endtry " normally drop top-of-stack by one " but while new top-of-stack doesn't exist " drop top-of-stack index by one again if b:cecutil_iwinposn >= 1 unlet b:cecutil_winposn{b:cecutil_iwinposn} let b:cecutil_iwinposn= b:cecutil_iwinposn - 1 while b:cecutil_iwinposn >= 1 && !exists("b:cecutil_winposn{b:cecutil_iwinposn}") let b:cecutil_iwinposn= b:cecutil_iwinposn - 1 endwhile if b:cecutil_iwinposn < 1 unlet b:cecutil_iwinposn endif endif else echohl WarningMsg echomsg "***warning*** need to SaveWinPosn first!" echohl None endif else " handle input argument " echomsg "Decho: using input a:1<".a:1.">" " use window position passed to this function call winrestview(a:1) " remove a:1 pattern from b:cecutil_winposn{b:cecutil_iwinposn} stack if exists("b:cecutil_iwinposn") let jwinposn= b:cecutil_iwinposn while jwinposn >= 1 " search for a:1 in iwinposn..1 if exists("b:cecutil_winposn{jwinposn}") " if it exists if a:1 == b:cecutil_winposn{jwinposn} " and the pattern matches unlet b:cecutil_winposn{jwinposn} " unlet it if jwinposn == b:cecutil_iwinposn " if at top-of-stack let b:cecutil_iwinposn= b:cecutil_iwinposn - 1 " drop stacktop by one endif endif endif let jwinposn= jwinposn - 1 endwhile endif endif "" echomsg "Decho: RestoreWinPosn() a:0=".a:0 "" echomsg "Decho: getline(1)<".getline(1).">" "" echomsg "Decho: line(.)=".line(".") " if line("$") == 1 && getline(1) == "" "" echomsg "Decho: RestoreWinPosn : empty buffer" " return "" " endif " let so_keep = &l:so " let siso_keep = &l:siso " let ss_keep = &l:ss " setlocal so=0 siso=0 ss=0 " if a:0 == 0 || a:1 == "" " " use saved window position in b:cecutil_winposn{b:cecutil_iwinposn} if it exists " if exists("b:cecutil_iwinposn") && exists("b:cecutil_winposn{b:cecutil_iwinposn}") "" echomsg "Decho: using stack b:cecutil_winposn{".b:cecutil_iwinposn."}<".b:cecutil_winposn{b:cecutil_iwinposn}.">" " try " exe s:modifier.b:cecutil_winposn{b:cecutil_iwinposn} " catch /^Vim\%((\a\+)\)\=:E749/ " " ignore empty buffer error messages " endtry " " normally drop top-of-stack by one " " but while new top-of-stack doesn't exist " " drop top-of-stack index by one again " if b:cecutil_iwinposn >= 1 " unlet b:cecutil_winposn{b:cecutil_iwinposn} " let b:cecutil_iwinposn= b:cecutil_iwinposn - 1 " while b:cecutil_iwinposn >= 1 && !exists("b:cecutil_winposn{b:cecutil_iwinposn}") " let b:cecutil_iwinposn= b:cecutil_iwinposn - 1 " endwhile " if b:cecutil_iwinposn < 1 " unlet b:cecutil_iwinposn " endif " endif " else " echohl WarningMsg " echomsg "***warning*** need to SaveWinPosn first!" " echohl None " endif " else " handle input argument "" echomsg "Decho: using input a:1<".a:1.">" " " use window position passed to this function " exe a:1 " " remove a:1 pattern from b:cecutil_winposn{b:cecutil_iwinposn} stack " if exists("b:cecutil_iwinposn") " let jwinposn= b:cecutil_iwinposn " while jwinposn >= 1 " search for a:1 in iwinposn..1 " if exists("b:cecutil_winposn{jwinposn}") " if it exists " if a:1 == b:cecutil_winposn{jwinposn} " and the pattern matches " unlet b:cecutil_winposn{jwinposn} " unlet it " if jwinposn == b:cecutil_iwinposn " if at top-of-stack " let b:cecutil_iwinposn= b:cecutil_iwinposn - 1 " drop stacktop by one " endif " endif " endif " let jwinposn= jwinposn - 1 " endwhile " endif " endif " " Seems to be something odd: vertical motions after RWP " " cause jump to first column. The following fixes that. " " Note: was using wincol()>1, but with signs, a cursor " " at column 1 yields wincol()==3. Beeping ensued. " let vekeep= &ve " set ve=all " if virtcol('.') > 1 " exe s:modifier."norm! hl" " elseif virtcol(".") < virtcol("$") " exe s:modifier."norm! lh" " endif " let &ve= vekeep " let &l:so = so_keep " let &l:siso = siso_keep " let &l:ss = ss_keep "" echomsg "Decho: RestoreWinPosn" endfun " --------------------------------------------------------------------- " s:WinLineRestore: {{{2 fun! s:WinLineRestore(swwline) " echomsg "Decho: s:WinLineRestore(swwline=".a:swwline.")" while winline() < a:swwline let curwinline= winline() exe s:modifier."norm! \" if curwinline == winline() break endif endwhile " echomsg "Decho: s:WinLineRestore" endfun " --------------------------------------------------------------------- " GoWinbufnr: go to window holding given buffer (by number) {{{2 " Prefers current window; if its buffer number doesn't match, " then will try from topleft to bottom right fun! GoWinbufnr(bufnum) " call Dfunc("GoWinbufnr(".a:bufnum.")") if winbufnr(0) == a:bufnum " call Dret("GoWinbufnr : winbufnr(0)==a:bufnum") return endif winc t let first=1 while winbufnr(0) != a:bufnum && (first || winnr() != 1) winc w let first= 0 endwhile " call Dret("GoWinbufnr") endfun " --------------------------------------------------------------------- " SaveMark: sets up a string saving a mark position. {{{2 " For example, SaveMark("a") " Also sets up a global variable, g:savemark_{markname} fun! SaveMark(markname) " call Dfunc("SaveMark(markname<".string(a:markname).">)") let markname= a:markname if strpart(markname,0,1) !~ '\a' let markname= strpart(markname,1,1) endif " call Decho("markname=".string(markname)) let lzkeep = &lz set lz if 1 <= line("'".markname) && line("'".markname) <= line("$") let winposn = SaveWinPosn(0) exe s:modifier."norm! `".markname let savemark = SaveWinPosn(0) let g:savemark_{markname} = savemark let savemark = markname.string(savemark) call RestoreWinPosn(winposn) else let g:savemark_{markname} = "" let savemark = "" endif let &lz= lzkeep " call Dret("SaveMark : savemark<".savemark.">") return savemark endfun " --------------------------------------------------------------------- " RestoreMark: {{{2 " call RestoreMark("a") -or- call RestoreMark(savemark) fun! RestoreMark(markname) " call Dfunc("RestoreMark(markname<".a:markname.">)") if strlen(a:markname) <= 0 " call Dret("RestoreMark : no such mark") return endif let markname= strpart(a:markname,0,1) if markname !~ '\a' " handles 'a -> a styles let markname= strpart(a:markname,1,1) endif " call Decho("markname=".markname." strlen(a:markname)=".strlen(a:markname)) let lzkeep = &lz set lz let winposn = SaveWinPosn(0) if strlen(a:markname) <= 2 if exists("g:savemark_{markname}") " use global variable g:savemark_{markname} " call Decho("use savemark list") call RestoreWinPosn(g:savemark_{markname}) exe "norm! m".markname endif else " markname is a savemark command (string) " call Decho("use savemark command") let markcmd= strpart(a:markname,1) call RestoreWinPosn(markcmd) exe "norm! m".markname endif call RestoreWinPosn(winposn) let &lz = lzkeep " call Dret("RestoreMark") endfun " --------------------------------------------------------------------- " DestroyMark: {{{2 " call DestroyMark("a") -- destroys mark fun! DestroyMark(markname) " call Dfunc("DestroyMark(markname<".a:markname.">)") " save options and set to standard values let reportkeep= &report let lzkeep = &lz set lz report=10000 let markname= strpart(a:markname,0,1) if markname !~ '\a' " handles 'a -> a styles let markname= strpart(a:markname,1,1) endif " call Decho("markname=".markname) let curmod = &mod let winposn = SaveWinPosn(0) 1 let lineone = getline(".") exe "k".markname d put! =lineone let &mod = curmod call RestoreWinPosn(winposn) " restore options to user settings let &report = reportkeep let &lz = lzkeep " call Dret("DestroyMark") endfun " --------------------------------------------------------------------- " QArgSplitter: to avoid \ processing by , is needed. {{{2 " However, doesn't split at all, so this one returns a list " with splits at all whitespace (only!), plus a leading length-of-list. " The resulting list: qarglist[0] corresponds to a:0 " qarglist[i] corresponds to a:{i} fun! QArgSplitter(qarg) " call Dfunc("QArgSplitter(qarg<".a:qarg.">)") let qarglist = split(a:qarg) let qarglistlen = len(qarglist) let qarglist = insert(qarglist,qarglistlen) " call Dret("QArgSplitter ".string(qarglist)) return qarglist endfun " --------------------------------------------------------------------- " ListWinPosn: {{{2 "fun! ListWinPosn() " Decho " if !exists("b:cecutil_iwinposn") || b:cecutil_iwinposn == 0 " Decho " call Decho("nothing on SWP stack") " Decho " else " Decho " let jwinposn= b:cecutil_iwinposn " Decho " while jwinposn >= 1 " Decho " if exists("b:cecutil_winposn{jwinposn}") " Decho " call Decho("winposn{".jwinposn."}<".b:cecutil_winposn{jwinposn}.">") " Decho " else " Decho " call Decho("winposn{".jwinposn."} -- doesn't exist") " Decho " endif " Decho " let jwinposn= jwinposn - 1 " Decho " endwhile " Decho " endif " Decho "endfun " Decho "com! -nargs=0 LWP call ListWinPosn() " Decho " --------------------------------------------------------------------- " SaveUserMaps: this function sets up a script-variable (s:restoremap) {{{2 " which can be used to restore user maps later with " call RestoreUserMaps() " " mapmode - see :help maparg for details (n v o i c l "") " ex. "n" = Normal " The letters "b" and "u" are optional prefixes; " The "u" means that the map will also be unmapped " The "b" means that the map has a qualifier " ex. "un" = Normal + unmapping " ex. "bn" = Normal + " ex. "bun" = Normal + + unmapping " ex. "ubn" = Normal + + unmapping " maplead - see mapchx " mapchx - "" handled as a single map item. " ex. "" " - "string" a string of single letters which are actually " multiple two-letter maps (using the maplead: " maplead . each_character_in_string) " ex. maplead="\" and mapchx="abc" saves user mappings for " \a, \b, and \c " Of course, if maplead is "", then for mapchx="abc", " mappings for a, b, and c are saved. " - :something handled as a single map item, w/o the ":" " ex. mapchx= ":abc" will save a mapping for "abc" " suffix - a string unique to your plugin " ex. suffix= "DrawIt" fun! SaveUserMaps(mapmode,maplead,mapchx,suffix) " call Dfunc("SaveUserMaps(mapmode<".a:mapmode."> maplead<".a:maplead."> mapchx<".a:mapchx."> suffix<".a:suffix.">)") if !exists("s:restoremap_{a:suffix}") " initialize restoremap_suffix to null string let s:restoremap_{a:suffix}= "" endif " set up dounmap: if 1, then save and unmap (a:mapmode leads with a "u") " if 0, save only let mapmode = a:mapmode let dounmap = 0 let dobuffer = "" while mapmode =~# '^[bu]' if mapmode =~# '^u' let dounmap = 1 let mapmode = strpart(a:mapmode,1) elseif mapmode =~# '^b' let dobuffer = " " let mapmode = strpart(a:mapmode,1) endif endwhile " call Decho("dounmap=".dounmap." dobuffer<".dobuffer.">") " save single map :...something... if strpart(a:mapchx,0,1) == ':' " call Decho("save single map :...something...") let amap= strpart(a:mapchx,1) if amap == "|" || amap == "\" let amap= "\".amap endif let amap = a:maplead.amap let s:restoremap_{a:suffix} = s:restoremap_{a:suffix}."|:sil! ".mapmode."unmap ".dobuffer.amap if maparg(amap,mapmode) != "" let maprhs = substitute(maparg(amap,mapmode),'|','','ge') let s:restoremap_{a:suffix} = s:restoremap_{a:suffix}."|:".mapmode."map ".dobuffer.amap." ".maprhs endif if dounmap exe "sil! ".mapmode."unmap ".dobuffer.amap endif " save single map elseif strpart(a:mapchx,0,1) == '<' " call Decho("save single map ") let amap = a:mapchx if amap == "|" || amap == "\" let amap= "\".amap " call Decho("amap[[".amap."]]") endif let s:restoremap_{a:suffix} = s:restoremap_{a:suffix}."|sil! ".mapmode."unmap ".dobuffer.amap if maparg(a:mapchx,mapmode) != "" let maprhs = substitute(maparg(amap,mapmode),'|','','ge') let s:restoremap_{a:suffix} = s:restoremap_{a:suffix}."|".mapmode."map ".dobuffer.amap." ".maprhs endif if dounmap exe "sil! ".mapmode."unmap ".dobuffer.amap endif " save multiple maps else " call Decho("save multiple maps") let i= 1 while i <= strlen(a:mapchx) let amap= a:maplead.strpart(a:mapchx,i-1,1) if amap == "|" || amap == "\" let amap= "\".amap endif let s:restoremap_{a:suffix} = s:restoremap_{a:suffix}."|sil! ".mapmode."unmap ".dobuffer.amap if maparg(amap,mapmode) != "" let maprhs = substitute(maparg(amap,mapmode),'|','','ge') let s:restoremap_{a:suffix} = s:restoremap_{a:suffix}."|".mapmode."map ".dobuffer.amap." ".maprhs endif if dounmap exe "sil! ".mapmode."unmap ".dobuffer.amap endif let i= i + 1 endwhile endif " call Dret("SaveUserMaps : s:restoremap_".a:suffix.": ".s:restoremap_{a:suffix}) endfun " --------------------------------------------------------------------- " RestoreUserMaps: {{{2 " Used to restore user maps saved by SaveUserMaps() fun! RestoreUserMaps(suffix) " call Dfunc("RestoreUserMaps(suffix<".a:suffix.">)") if exists("s:restoremap_{a:suffix}") let s:restoremap_{a:suffix}= substitute(s:restoremap_{a:suffix},'|\s*$','','e') if s:restoremap_{a:suffix} != "" " call Decho("exe ".s:restoremap_{a:suffix}) exe "sil! ".s:restoremap_{a:suffix} endif unlet s:restoremap_{a:suffix} endif " call Dret("RestoreUserMaps") endfun " ============== " Restore: {{{1 " ============== let &cpo= s:keepcpo unlet s:keepcpo " ================ " Modelines: {{{1 " ================ " vim: ts=4 fdm=marker vis/doc/vis.txt [[[1 247 *vis.txt* The Visual Block Tool Sep 07, 2016 Author: Charles E. Campbell (remove NOSPAM from Campbell's email first) Copyright: (c) 2004-2016 by Charles E. Campbell *vis-copyright* The VIM LICENSE applies to vis.vim and vis.txt (see |copyright|) except use "vis" instead of "Vim" No warranty, express or implied. Use At-Your-Own-Risk. ============================================================================== 1. Contents *vis* *vis-contents* *vis.vim* 1. Contents......................: |vis-contents| 2. Visual Block Manual...........: |vis-manual| 3. Visual Block Search...........: |vis-srch| 4. Required......................: |vis-required| 5. Sorting Examples..............: |vis-sort| 6. History.......................: |vis-history| ============================================================================== 2. Visual Block Manual *visman* *vismanual* *vis-manual* *v_:B* Performs an arbitrary Ex command on a visual highlighted block. Mark visual block (CTRL-V) or visual character (v), press ':B ' and enter an Ex command [cmd]. ex. Use ctrl-v to visually mark the block then use :B cmd (will appear as :'<,'>B cmd ) ex. Use v to visually mark the block then use :B cmd (will appear as :'<,'>B cmd ) Command-line completion is supported for Ex commands. There must be a space before the '!' when invoking external shell commands, eg. ':B !sort'. Otherwise an error is reported. The script works by deleting the selected region into register "a. The register "a itself is first saved and later restored. The text is then put at the end-of-file, modified by the user command, and then deleted back into register "a. Any excess lines are removed, and the modified text is then put back into the text at its original location. Popular uses for this command include: > :B s/pattern/output/ :B left :B right < 1: apply a substitute command to just the selected visual block, 2: left justify the selected block, and 3: right justify the selected block, respectively. The concept for this plugin is originally Stefan Roemer's ; however, both the implementation and methods used internally have completely changed since Roemer's version. *g:vis_empty_character* : this character should not appear in your text. By default: users of euc-jp will get a 0x01, otherwise it wil be a 0xff. Used to prevent an empty result in the moving back the modified text operation, which otherwise results in an unwanted extra blank space being inserted. ============================================================================== 3. Visual Block Search *vis-search* *vis-srch* *vis-S* Visual block search provides two ways to get visual-selection based searches. Both these methods work well with :set hls and searching may be repeated with the n or N commands. Using // and ?? after a visual selection (the // is only available if you have g:vis_WantSlashSlash=1 in your <.vimrc> file): > ex. select region via V, v, or ctrl-v //pattern < You'll actually get a long leader string of commands to restrict searches to the requested visual block first. You may then enter the pattern afterwards. For example, using "v" to select this paragraph, you'll see something like: > /\%(\%(\%80l\%>12v\)\|\%(\%83l\%<53v\)\|\%(\%>80l\%<83l\)\)\& < You may enter whatever pattern you want after the \&, and the pattern search will be restricted to the requested region. The "S" command in visual mode: > ex. select region via V, v, or ctrl-v :S pattern < The ":S pattern" will appear as ":'<,'>S pattern". This command will move the cursor to the next instance of the pattern, restricted to the visually selected block. An "R" command was contemplated, but I currently see no way to get it to continue to search backwards with n and N commands. ============================================================================== 4. Required *vis-required* The latest (v20f or later) now requires vim 7.0 (or later), as it has been split into plugin/ and an autoload/ sections for on-demand loading. Starting with version 11, required . It uses the SaveWinPosn() and RestoreWinPosn() functions therein. You may get from http://www.drchip.org/astronaut/vim/index.html#CECUTIL ============================================================================== 5. Sorting Examples *vis-sort* Assume we start with the following three lines: > one two three four five six seven eight nine < Example 1: Use visual-block mode to select the center three words: ctrl-v select two/five/eight, then :'<,'>sort: > four five six one two three seven eight nine < Note that the visual-block is ignored, other than as a way to select the three lines. The resulting sorting is done on the three words "one/four/seven". (this example presumed that you're using vim 7.0; if you're using an earlier version vim, try :'<,\> !sort instead) Example 2: Using vis.vim's B command: Again, use visual-block mode to select the center three words: ctrl-v select two/five/eight, then :'<,'>B sort: > one eight three four five six seven two nine < This operation sorts the selected three words (two/five/eight), leaving all characters outside the visual block alone. (this example presumed that you're using vim 7.0; if you're using an earlier version vim, try :'<,\> !sort instead) Example 3: Using vissort.vim's Vissort() function Use visual block mode to select the center three words; ctrl-v select two/five/eight, then :'<,'>Vissort: > seven eight nine four five six one two three < This time, the entire lines are sorted, but the sorting is done based on the visual-block selected region (ie. two/five/eight). ============================================================================== 6. History *vis-history* {{{1 v21 : Apr 01, 2013 - visual block and ragged right detection; there was a conflict between using ve= and ve=all (internally); one was good for ragged right and the other for smooth right visual block selections. I found a way to detect ragged right vs smooth right and so vis.vim now works properly in both situations. Apr 02, 2013 - The detection method above hung when on line 1. Fixed. Jan 15, 2015 - Small adjustment to prevent a leading space from being inserted. Feb 10, 2016 - (Stefan Siegal) provided a patch making visPlugin.vim restore cpo Sep 07, 2016 - addressed an empty-string bug : if the block command causes an empty string to appear in the modified text, vim would insert a blank rather than do nothing. Fixed by prepending an "empty-character" and then removing it v20 : May 20, 2009 - cecutil bugfix May 19, 2010 - split into plugin/ and autoload/ for faster loading and on-demand loading. Mar 18, 2013 - (Gary Johnson) pointed out that changing cedit to caused problems with visincr; the cedit setting is now bypassed in vis, too. Mar 29, 2013 - Fixed a problem with vis#VisBlockCmd() where it missed substitutes due to a short last line. s:SaveUserSettings() now makes ve=all instead of ve= (see |'ve'|) v19 : Jan 06, 2006 - small modification included to allow AlignMaps maps to work (visual select, :B norm \somemap) - cecutil updated to use keepjumps Jan 24, 2006 - works around formatoption setting Jan 25, 2006 - uses SaveWinPosn(0) to avoid SWP stack use v18 : Jul 11, 2005 - vis.vim now works around a virtcol() behavior difference between ve=all vs ve=block v17 : Apr 25, 2005 - vis.vim now uses cecutil (SaveWinPosn, etc) so the tarball now includes a copy of cecutil.vim v16 : Feb 02, 2005 - fixed a bug with visual-block + S ; the first line was being omitted in the search Mar 01, 2005 - used instead of '' Apr 13, 2005 - :'<,'>S plus v had a bug with one or two line selections (tnx to Vigil for pointing this out) Apr 14, 2005 - set ignorecase caused visual-block searching to confuse visual modes "v" and "V" v15 : Feb 01, 2005 - includes some additions to the help v14 : Sep 28, 2004 - visual-block based searching now supported. One do this either with :'<,'>S pattern or with a / or ? Jan 31, 2005 - fixed help file v13 : Jul 16, 2004 - folding commands added to source - GetLatestVimScript hook added for automatic updating v12 : Jun 14, 2004 - bugfix (folding interfered) v11 : May 18, 2004 - Included calls to SaveWinPosn() and RestoreWinPosn() to prevent unwanted movement of the cursor and window. As a result, now requires (see |vis-required|). v10 : Feb 11, 2003 - bugfix (ignorecase option interfered with v) v9 : Sep 10, 2002 - bugfix (left Decho on, now commented out) v8 : Sep 09, 2002 - bugfix (first column problem) v7 : Sep 05, 2002 - bugfix (was forcing begcolG$\"ad - Fixed double-loading (was commented out for debugging purposes) v3 : Jun 20, 2002 - saves ve, unsets ve, restores ve v2 : June 19, 2002 - Charles Campbell's v? June 19, 2002 Complete rewrite - is now immune to the presence of tabs and is considerably faster. v1 Epoch - Stefan Roemer wrote the original . ============================================================================== Modelines: {{{1 vim:tw=78:ts=8:ft=help:fdm=marker proofread/syntax/proofread.vim [[[1 17 " escape sequences for package proofread.sty map d s\del{}hp map y s\yel[]{}PF[li map a a\add{}i map i i\add{}i map r s\rep{}{}2F{plla map c a\com{}i map n /\\\(add\\|del\\|com\\|hilite\\|rep\\|yel\)//eh map u ?\\\(\(\(hilite\\|yel\)\(\[\_[^\]]*\]\)\{0,1}\)\\|\(rep{\_[^}]\{-}}\)\\|\(com\\|del\\|add\)\){\_.\{-}}m`v//e:B !proofread undo0f→xXx`` map h ?\\\(\(\(hilite\\|yel\)\(\[\_[^\]]*\]\)\{0,1}\)\\|\(rep{\_[^}]\{-}}\)\\|\(com\\|del\\|add\)\){\_.\{-}}m`v//e:B !proofread honor0f→xXx`` " ?\\\(\(\(hilite\\|yel\)\(\[\_[^\]]*\]\)\{0,1}\)\\|\(rep{\_[^}]*}\)\\|\(com\\|del\\|add\)\){\_[^}]*} ^ ^ ^ " < < <--hilite/yel-> <--[.....]----> > <--\rep{...}--> <--com/del/add---> ><--{...}--> | | | " | |_______________________________________| | save position remove ruby scripts' marker back to position " |____________________________________________________________________________________| set syntax=tex ../bin/proofread [[[1 20 #!/usr/bin/env ruby # coding: utf-8 buffer = STDIN.readlines.map { |v| v.strip }.join('→') if ARGV[0] == 'undo' print buffer. sub(/\\del{(.*)}/, '\1'). sub(/\\com{.*}/, ''). sub(/\\add{.*}/, ''). sub(/\\rep{(.*)}{.*}/, '\1'). sub(/\\(yel|hilite)(\[.*\])*{(.*)}/, '\3'). tr('→', "\n") else print buffer. sub(/\\del{(.*)}/, ''). sub(/\\com{.*}/, ''). sub(/\\add{(.*)}/, '\1'). sub(/\\rep{.*}{(.*)}/, '\1'). sub(/\\(yel|hilite)(\[.*\])*{(.*)}/, '\3'). tr('→', "\n") end