plugin/project.vim0000644000076400007640000015640010423202477013174 0ustar aricaric"============================================================================= " File: project.vim " Author: Aric Blumer (Aric.Blumer at aricvim@charter.net) " Last Change: Mon 24 Apr 2006 01:05:03 PM EDT " Version: 1.4 "============================================================================= " See documentation in accompanying help file " You may use this code in whatever way you see fit. if exists('loaded_project') || &cp finish endif let loaded_project=1 function! s:Project(filename) " <<< " Initialization <<< if exists("g:proj_running") if strlen(a:filename) != 0 call confirm('Project already loaded; ignoring filename "'.a:filename."\".\n".'See ":help project-invoking" for information about changing project files.', "&OK", 1) endif let filename=bufname(g:proj_running) else if strlen(a:filename) == 0 let filename ='~/.vimprojects' " Default project filename else let filename = a:filename endif endif if !exists('g:proj_window_width') let g:proj_window_width=24 " Default project window width endif if !exists('g:proj_window_increment') let g:proj_window_increment=100 " Project Window width increment endif if !exists('g:proj_flags') if has("win32") || has("mac") let g:proj_flags='imst' " Project default flags for windows/mac else let g:proj_flags='imstb' " Project default flags for everything else endif endif if !exists("g:proj_running") || (bufwinnr(g:proj_running) == -1) " Open the Project Window exec 'silent vertical new '.filename silent! wincmd H exec 'vertical resize '.g:proj_window_width setlocal nomodeline else silent! 99wincmd h if bufwinnr(g:proj_running) == -1 vertical split let v:errmsg="nothing" silent! bnext if 'nothing' != v:errmsg enew endif endif return endif " Process the flags let b:proj_cd_cmd='cd' if match(g:proj_flags, '\Cl') != -1 let b:proj_cd_cmd = 'lcd' endif let g:proj_last_buffer = -1 ">>> " ProjFoldText() <<< " The foldtext function for displaying just the description. function! ProjFoldText() let line=substitute(getline(v:foldstart),'^[ \t#]*\([^=]*\).*', '\1', '') let line=strpart(' ', 0, (v:foldlevel - 1)).substitute(line,'\s*{\+\s*', '', '') return line endfunction ">>> " s:DoSetup() <<< " Ensure everything is set up function! s:DoSetup() setlocal foldenable foldmethod=marker foldmarker={,} commentstring=%s foldcolumn=0 nonumber noswapfile shiftwidth=1 setlocal foldtext=ProjFoldText() nobuflisted nowrap setlocal winwidth=1 endfunction ">>> call s:DoSetup() " Syntax Stuff <<< if match(g:proj_flags, '\Cs')!=-1 && has('syntax') && exists('g:syntax_on') && !has('syntax_items') syntax match projectDescriptionDir '^\s*.\{-}=\s*\(\\ \|\f\|:\|"\)\+' contains=projectDescription,projectWhiteError syntax match projectDescription '\<.\{-}='he=e-1,me=e-1 contained nextgroup=projectDirectory contains=projectWhiteError syntax match projectDescription '{\|}' syntax match projectDirectory '=\(\\ \|\f\|:\)\+' contained syntax match projectDirectory '=".\{-}"' contained syntax match projectScriptinout '\>> " s:SortR(start, end) <<< " Sort lines. SortR() is called recursively. " from ":help eval-examples" by Robert Webb, slightly modified function! s:SortR(start, end) if (a:start >= a:end) return endif let partition = a:start - 1 let middle = partition let partStr = getline((a:start + a:end) / 2) let i = a:start while (i <= a:end) let str = getline(i) if str < partStr let result = -1 elseif str > partStr let result = 1 else let result = 0 endif if (result <= 0) let partition = partition + 1 if (result == 0) let middle = partition endif if (i != partition) let str2 = getline(partition) call setline(i, str2) call setline(partition, str) endif endif let i = i + 1 endwhile if (middle != partition) let str = getline(middle) let str2 = getline(partition) call setline(middle, str2) call setline(partition, str) endif call s:SortR(a:start, partition - 1) call s:SortR(partition + 1, a:end) endfunc ">>> " s:IsAbsolutePath(path) <<< " Returns true if filename has an absolute path. function! s:IsAbsolutePath(path) if a:path =~ '^ftp:' || a:path =~ '^rcp:' || a:path =~ '^scp:' || a:path =~ '^http:' return 2 endif if a:path =~ '\$' let path=expand(a:path) " Expand any environment variables that might be in the path else let path=a:path endif if path[0] == '/' || path[0] == '~' || path[0] == '\\' || path[1] == ':' return 1 endif return 0 endfunction " >>> " s:DoSetupAndSplit() <<< " Call DoSetup to ensure the settings are correct. Split to the next " file. function! s:DoSetupAndSplit() call s:DoSetup() " Ensure that all the settings are right let n = winnr() " Determine if there is a CTRL_W-p window silent! wincmd p if n == winnr() silent! wincmd l endif if n == winnr() " If n == winnr(), then there is no CTRL_W-p window " So we have to create a new one if bufnr('%') == g:proj_running exec 'silent vertical new' else exec 'silent vertical split | silent! bnext' endif wincmd p " Go back to the Project Window and ensure it is the right width silent! wincmd H exec 'vertical resize '.g:proj_window_width wincmd p endif endfunction ">>> " s:DoSetupAndSplit_au() <<< " Same as above but ensure that the Project window is the current " window. Only called from an autocommand function! s:DoSetupAndSplit_au() if winbufnr(0) != g:proj_running return endif call s:DoSetup() " Ensure that all the settings are right if winbufnr(2) == -1 " We're the only window right now. exec 'silent vertical split | bnext' if bufnr('%') == g:proj_running enew endif if bufnr('%') == g:proj_last_buffer | bnext | bprev | bnext | endif wincmd p " Go back to the Project Window and ensure it is the right width endif if(winnr() != 1) silent! wincmd H exec 'vertical resize '.g:proj_window_width endif endfunction function! s:RecordPrevBuffer_au() let g:proj_last_buffer = bufnr('%') endfunction ">>> " s:RecursivelyConstructDirectives(lineno) <<< " Construct the inherited directives function! s:RecursivelyConstructDirectives(lineno) let lineno=s:FindFoldTop(a:lineno) let foldlineno = lineno let foldlev=foldlevel(lineno) let parent_infoline = '' if foldlev > 1 while foldlevel(lineno) >= foldlev " Go to parent fold if lineno < 1 echoerr 'Some kind of fold error. Check your syntax.' return endif let lineno = lineno - 1 endwhile let parent_infoline = s:RecursivelyConstructDirectives(lineno) endif let parent_home = s:GetHome(parent_infoline, '') let parent_c_d = s:GetCd(parent_infoline, parent_home) let parent_scriptin = s:GetScriptin(parent_infoline, parent_home) let parent_scriptout = s:GetScriptout(parent_infoline, parent_home) let parent_filter = s:GetFilter(parent_infoline, '*') let infoline = getline(foldlineno) " Extract the home directory of this fold let home=s:GetHome(infoline, parent_home) if home != '' if (foldlevel(foldlineno) == 1) && !s:IsAbsolutePath(home) call confirm('Outermost Project Fold must have absolute path! Or perhaps the path does not exist.', "&OK", 1) let home = '~' " Some 'reasonable' value endif endif " Extract any CD information let c_d = s:GetCd(infoline, home) if c_d != '' if (foldlevel(foldlineno) == 1) && !s:IsAbsolutePath(c_d) call confirm('Outermost Project Fold must have absolute CD path! Or perhaps the path does not exist.', "&OK", 1) let c_d = '.' " Some 'reasonable' value endif else let c_d=parent_c_d endif " Extract scriptin let scriptin = s:GetScriptin(infoline, home) if scriptin == '' let scriptin = parent_scriptin endif " Extract scriptout let scriptout = s:GetScriptout(infoline, home) if scriptout == '' let scriptout = parent_scriptout endif " Extract filter let filter = s:GetFilter(infoline, parent_filter) if filter == '' | let filter = parent_filter | endif return s:ConstructInfo(home, c_d, scriptin, scriptout, '', filter) endfunction ">>> " s:ConstructInfo(home, c_d, scriptin, scriptout, flags, filter) <<< function! s:ConstructInfo(home, c_d, scriptin, scriptout, flags, filter) let retval='Directory='.a:home if a:c_d[0] != '' let retval=retval.' CD='.a:c_d endif if a:scriptin[0] != '' let retval=retval.' in='.a:scriptin endif if a:scriptout[0] != '' let retval=retval.' out='.a:scriptout endif if a:filter[0] != '' let retval=retval.' filter="'.a:filter.'"' endif return retval endfunction ">>> " s:OpenEntry(line, precmd, editcmd) <<< " Get the filename under the cursor, and open a window with it. function! s:OpenEntry(line, precmd, editcmd, dir) silent exec a:precmd if (a:editcmd[0] != '') if a:dir let fname='.' else if (foldlevel(a:line) == 0) && (a:editcmd[0] != '') return 0 " If we're outside a fold, do nothing endif let fname=substitute(getline(a:line), '\s*#.*', '', '') " Get rid of comments and whitespace before comment let fname=substitute(fname, '^\s*\(.*\)', '\1', '') " Get rid of leading whitespace if strlen(fname) == 0 return 0 " The line is blank. Do nothing. endif endif else let fname='.' endif let infoline = s:RecursivelyConstructDirectives(a:line) let retval=s:OpenEntry2(a:line, infoline, fname, a:editcmd) call s:DisplayInfo() return retval endfunction ">>> " s:OpenEntry2(line, infoline, precmd, editcmd) <<< " Get the filename under the cursor, and open a window with it. function! s:OpenEntry2(line, infoline, fname, editcmd) let fname=escape(a:fname, ' ') let home=s:GetHome(a:infoline, '').'/' if home=='/' echoerr 'Project structure error. Check your syntax.' return endif "Save the cd command let cd_cmd = b:proj_cd_cmd if a:editcmd[0] != '' " If editcmd lea no "=i return 0 endfuncif home==m letis blank. Do s retur if home='iommaSDg=t c'j_wiepend ter) verythin if (foldlevel(g whit comments and whitespace beter).f exec 'j_running if (foldlevel(g whitespa2 'silent vertical new' let cd_c[0]'.f exec 'j_run let fnamry(line, prenly wind et cd_c[0]'.f exec 'j_runng. s nbufnoldpenslea no "=i Ft lineno = linen, prenau! Buf a er,BufLe '.if a:pa'%:p')me 'reasonable' value endif endif " Extract any CDfname, ' ') on let c_d = s:Get if (foldlevel(foldl s:G2a:precmd oSetup() " Syntax SLmd='cd' if ma call s:SortR(am utoCrn (foldlineno) == 1)nning !isfoldlinen(glob(folddlineno) == 1) && !s:IsAbsolute"F cur " 's)nn wi,\n !=" let.fol le id(foldlinenth! Or perhaps the path dn let fnamry(line, precd com[0]'. '~' " Some 'reasonable' value end if s endif " " Extract scriptifname, ' ') on let c_ "s:GetCd(infoline, hom!, pr 0 (glob( ddlineno) == 1) && !s:IsAbsolutelet. le fo ed. Icall coth! Or perhaps the path dn let fnam:SortR(am t scri utoCrn ('Buf a er' functi) 'silent vertical new' hoec '. let r'~' " Some 'reasonable' value if " Extract scriptout fname, ' ') on let c_ " Es:GetCd(infoline, hom!, pr 0 (glob( " ddlineno) == 1) && !s:IsAbsolutelet. " le fo ed. Icall coth! Or perhaps the path dn let fnam:SortR(am t scri utoCrn ('BufLe 'on! s:Const)thing' != v:errmsg enew 1l s:DisplayInfo() return rDo Oropen a wincom0 < partStr '' let l_xpa endif end paoldmdx( cmd) lename) nd pcd' if ma call s end paoldadingome, c_d, scrip if !exilet l_xpatr 0e(partition, str) es le=glob( ^=]*\). 0ly mod a:end) adins le_running") ject filstr for ins le."\010"e(partition, str) ef ^=]*\). end + about changinglet lineno = l"t filstnena^ ]* 'hs:h setname> " s:Do (bufwfoldlinent W the thtoineno = l"twe th " Ebufwfoldlinei innEntry2(line, infos= filsnEntry2(line,{ xpand(a:}=etCd(infolirent{if (axpand(a:}=etCd(infolirent{ifre cco et}=0Cd(infolirent{if (aco et}=0Cd(infoli '' leading whis) > else if stename fore comment ntaax ( ( f\|[ :]\)te(getline(v:foldstart),'^y2(line, infose fore comment nta' ( f\|[ :]\)t. let f2v:foldstart),'^y2(l isfoldlinen(glob(g whitc_d, scrip if !exi{if (axpand(a:}={if (axpand(a:}.pathd^\s*.f ' eparat _d, scrip if !exi{if (aco et}={if (aco et} let let result = { xpand(a:}={ xpand(a:}.pathd^\s*.f ' eparat _d, scrip if !exi{ifre cco et}={ifre cco et} let ng. owlet lineno wincmd p Generate a win< " S, retval= (foldl_ (a on! <<< _o) <<< , on!ortc_d, scriptin, scriptoGenerate a win< " S, ' ') retval= (foldl_ (a on! <<< _o) <<< , on!ortcstart),'^[ \t#]*\(:line) md if (aeturn \ endif (a=let. ore commenif (a,rn \ cmd cg et retval=re endif (a=if (a:editcmd[nable' value if , '\s([^=]*\).*', '\1', '') let line=strpart let line=strpart(' a )if " Ext=(me(g:projfold > ) ? ' != '' [0]' : etCd(infolirentExt=(me(g:proj _o) <<< d > ) ? [0 != '' _o) <<< le ': cif hldpenddow wit , '\s.'}') cif hldpenddow wit , '\s.a: ''= 'o) [0]'. .'{'th. functio< " Sineno = linen, prencdd = (foldl_ (an fun cif homVim lLis ("*"me=sub"\010"me=bfre cs'me=bfre cco et'me=bf (as'me=bf (aco et'on fun cd - endif (as=bf (as endif co et=bf (aco et endif untch(g: filstbfre cco et bf (as bf (aco et endif '' co et > else ename fore commen (astaax ( (ntax matchte(getline(v:foldstart),'^y2(lll s e ename ine, fnd, editcmd) dif (ase fore commen (asta' (ntax matcht. let f2v:foldstart),'^y2(l),'^[ \t#]*\([oGenerate a win1, ' 'ion - dretval=s= (foldl_ (a .edunction!, editcame=sub a + - 1)!ortcstart),'^dif co et= co et- let lineno = l enew ' '+1return 1 endif re a wiF cu l( ' ') retval= (foldl_ (a on! <<< _o) <<< , on!ortcEntry2(line, innerate'' " f cur e(foldlinenohierarchy (nct< " S== winnettings are l retuname unRefresh a wi iF cu l()rrect. Split to th a wiF cu l(< " S, ' ') retval= (foldl_ (a on! <<< _o) <<< , on!ortcstart),'^cif homGenerate a winio< " S- 1) ' ') a: , ine, fnam= (foldl_ (a cmd), ine, fnam (a cmd), ine, fnam<< cmd), _o) <<< ub a - 1)!ortcstart),'^n l! jstart),'^cif homRefresh a wi iF cu l(1e, c_d, scriptin, scriptout, '',-p wi a wi iF cu l(< " S=Entry2(line, P cuptsion re."\".\n".'See ":hnd a:edicif sto th a wiF cu l()rrect. Split to ,-p wi a wi iF cu l(< " S=ineno = l"t a locae."\" but ensure <<< pos) n l! mkstart),'^[ \t#]*\(dow dif) Ensure that aname inputdialog(' a er" butNnameo n a wi: 'tion <<< if exis whitespace if (a:start >= a:end) let foldlineno = lidified funmarkelon d else'cd' t endif else urn}ldstart),'^y2(line, let foldlinedif t >= a:end) home='iom='.' ?'f (foldl ': etCd(infolirentGetHoetCd(infolirent_filte='*' 1 let iSetup() " Syntax Sbf)='cd' t< if browse'is blank. Do s Notcall s:browsetart, in^ ]ssetlnt: On ret32" Youcac'j_selme) !s blank. Do s foldlinen " retginfo" Youa la< eturns truedif (a"Savrowset ' a er" but (foldl.out, flagswhilLoad: dlevel - 1)).substi (a"Saf val-ey( (a c:p')me 'reason endif (ae inputdialog(' a er" but (foldl.out, flagswhilLoad: dleve) let retval=retval.' out=( (a[if exison! -1=a:path t endi (a[if exison! -1=a:pat\\ 1)).substi (a([^=]*\). (a 0, if exison! -1ubstR va rail s:D/ \ t >= a:end) (ae fore commen (a ~dle$HOME cg let fname='.' > )ineno = lineno - 1 o) <<< =hile let parent_infoline ) ef ent_home) o) <<< ub_filter = s:G let fname=escape(a: o) <<< ub_ldstart),'^y2(l fnam[if exison -1=a!path nam[if exison -1=a!pat\\ ps the path does not exiseter).e(a:infoline, '')tr) untch( o) <<< if (foldlevel(on! s:OpenEntnk. Do s t la< eturn Tgswhilmake it la< ps the path does not e)tr=iSetuendd (a,rn C'.glob(on )1', '') " Get rid ofuend='cd' if ma call s (a([^=]*\). (a h l foldlinenocacnd a la< eturn:proj_winThe line let resuloes not exise"":proj_winThe line is blank. Do nothing. ow_width << if exister).on! espace if (a:start >= a:end) !isfoldlinen(ter).on! start),'^y2(l foj_funix") let fnamry(line, pren!mk (ae'.ter).on![0]> /dev/null'ps the path dn let fnam:SortAbsolutelet.ter).on![0e id(foldlinenth! Or perhaps the path d. Check your syntax.' " Some 'reasonable' value if Extracinputdialog(' a er" butermosr er: dleve) let ret ef o) <<< racinputdialog(' a er" butFt l home) : dleve) let ret of leading _o) <<< d ! else if strl g _o) <<< me 'reasonable' value If I'm ":h elon d go | endifbottcuro reineno) lelon denddow w)='cd' if ma ca[ \t#]*\ = lelon denddow w)f (a:start >= a:end) let = oldlineno = lidified <<< e 1 h . . . let c_f else urn}lstart),'^y2(line, let = oldlinedif Entnk. Do s . . . deW-p seirectivd=========by 1.me 'reasonable' value D endifwork dif cif home= wiF cu l(io< " S- ' ') retvalter).on! on! <<< _o) <<< , on0dified Resto if wi<<< pos) n l! `k let g:proj_last_buffer = buffresh a wi iF cu l(< " S=Entry2(line, irecs adata <<< topeo n hnd a:edirepl '\s:DoSe filsnEntr the Prn f wi= a:end) tcmd_a_ l=0Cd(infolirent endwhile let parent_infoline dif)lter = s:GetFilmmediadl_lter(parent_infolindif) Ensure t adinsore commenlmmediadl_lter(par, =] mat ( f\|:\|ch phte(getline(v:fold)=spa adinlmmediadl_lter(parlter = s:G let tcmd_a_ ltr > partStr nable' value getline(foldlineno) e " Extract the home ) end let parent_home = GetHome(t(infoline, home) s No MSetu. "is ans() <<< t, isitcmd[a labele Prn a:lineno) Do s foldlinen)nn wi.:precmd if< " S space e right idone--n | edo:infoline, '')tr) " MSrk() << partStr nable' value tcmd_a_ ltrpace gettrl betwe| (quotcs (we=t c'j_c g hedif s). ef ent_home) let parent_filter = s:G getdtext funct s white) e " Extract tre that aname sore commenlet parent_^[#\t substitute(=getline(v:foldstart),'^y2(l if exis whitespa adinlter(parlter = s:G e right fied () ' retvalw idone. else let resultHome(t(inft endianame dlevel(a:line) == 0) &heck your syntax.' " Some 'reaso gett return efier ent_hier nlmmediadl_lter(parlter = s:G let !ortm='.iSetup() " Syntax SSf)='cd' t comments and ier s:GetCd(infoline, oSetup" Syntax Srmd='cd' if ma call s () ier a^ ]* 'h rtionfresh== winnr(-p w= foldl let tcmd_a_ ltr > partStr let middle = partition oSetup" Syntax SSmd='cd' if ma call s let !ortm='> partStr let middle = partition oSetup" Syntax Ssmd='cd' if ma call s let !ortm='0:proj_winThe line is blank. Do nothi let result = ac ' '~' " Some 'reasonable' value Mo CTRL_ gettrrs n- ltbo edaen)ine) md n l! jstart),'^ lmtne, precmds until we=-p ch< e 1 e " Extract t '' f dif)e!urn}lstart),'^y2(lev " Go dif)=spa" Go d$vel(a:line) == 0) &b-p k else let resulf dif)e!urn{'s:OpenEntnk. Do s Ws no Cc'j_-p ch d a sor- so delmtneg he'sr() .ter = s:G t resulttcmd_a_ ltrpac f dif)e!urn #' f dif)e!urn#.*pragma keepvel(a:line) == 0) && (ad _:proj_winThe line let resuloes " Skip " s nbufni":h hnd rid of " s let resuloes n l! jstart),'^The line is blank. Do nothi let resuls Ws no C_-p ch d a sor- . do < " S- winnettin let resuls cDoSetu :proj_laag 'h. f find a:e e 1 e " .ter = s:G t resulif< " S spa1 call setlmRefresh a wi iF cu l(1e, c_d let resuloes n l! ]zj:proj_winThe line let resuloes lelon d dif)=spa' if ma call s n l! zcrent fold et middle = partitionoes n l! jstart),'^The line is blank. Do nothing. owlet linenoue tcmd_a_ ltrpace i atcmd[i":h \s*#.s no C_delmtnd:DoSetup(, precmds.oline, home) s Nowo back time | er gnnerate'g hedisDo (bufwfoldlinent !isfoldlinen(glob(on )1', '') " Get rid:SortAbsolutelet.ter).le id(foldlinenth! Or perhaps the path dn let fnam let foldlineno dif) Ensure t ac . "anksace if f p" Exbfre cs let resuloes !ort if ma call s :SortR(a:stardow dif)al dif)e+ bfre cco et - 1e, c_d let resuloes et middle = partition let resuloes n l! jstart),'^The line is blank. Do noth untch(g: filstbfre cco et bf (as bf (aco et endif inen, prencdd ewd '~' " Some 'reasonable' value Go | endiftopeo nonfresh d . esuloes n l! [zme 'ret g:proj_last_buffer = bMo CUine endfunctMo Cs a:e e coy, editcmd) <<< != 'al . " Construct thMo CUine:RecursivelyConstrucfolindif) Ensure t pa1 if (a:start >= a:end) c= lelon d dif)a:end) h_r g=@a Ensure t pa" Go d$vel(a:line) == n l! "add"aPme 'reason endif n l! "addk"aPme 'reason >= a:end) @a=h_r gineno) c='cd' if ma can l! zc ow_width wincmd p Mo CDownne endfunctMo Cs a:e e coy, editcmd) <<< !down'al . " Construct thMo CDownnea:end) c= lelon d dif)a:end) h_r g=@a Ensure tn l! "add"apa:end) @a=h_r gineno) ( c='cd' ng lelon d dif)=spa' ) if ma can l! zc ow_width wndif rine, fname, endfunctrine, fse, precmd,hnd ensure work foldlinen)winnri nlterart, in endfunct() ier orrect. Split to tine, fname, a:editcmd oSetup() " Syntax Simd='cd' if ma ca).'/ 'f====='.if a:pa'% , ewd=='.f ewd(c , " s=='." Go d$vel(a:line) ow_width wincmd p am utoCrn (fwenEntry2(line, am s!= 'aent " wetupAndSplit(<<< fweDoSetup(| endif ne, desoldde."\" but 'r gar ss:So:lcddnbufnabsoltu ":h per- == winnr()ne, basinta per-revBuffbasinorrect. Split to am utoCrn (fwena:end) !g else ve the has_t " ws') if has(ve the cwd_savme ine, fnf ewd(citcmd) dif has(ve the has_t " wm='> partStr has(vu infoline, fnsore commenif a:pa'%:p'on0d,rn \'me=/d cg itcmd) dif , prenau Buf a er='.vu info." has(ve the cwd_savm=ine, fnf ewd(citcmd) | cd "'' wd '~' prenau BufLe '.vu info.' pre"cd "'ve the cwd_savm' '~' prenau BufWipe " E'.vu info.' au! *E'.vu infol(a:line) ow_width wincmd p am t scri utoCrn (vu ext funEntry2(line, am s!= 'aent " wetupru (bufw " orrect. Split to am t scri utoCrn (vu ext funa:end) !g else ve the has_"'' vu ) dif has(ve the has_{' vu }tr > partStr prenau ''' vu [0]'.ine, fnsore commenif a:pa'%:p'on0d,rn \'me=/d cg itcmd)[0] hoec '. ow_width wndif r= cPl '\cmd Sizenctio endfunction ">>) <<< " Same as aboveo (bufwlefteo nw wincmdhas endfunct() all DoS win. window is the current " window. Only called cPl '\cmd Sizenction fun (ion! s:DoSetupAndSplit_au() t endie right width endime) " <<< " Indo ) is"on fun " Indo ) is >ace if tesp() do ) is =p() do ) is -a1 calheck your syntax.' returnuntch(() do ) isl(a:line) == 0) &heck your syntax.' " Some 'reaso silent vertical new '.file" Some 'reason silent! wincm . H exec 'ver wincmd p apawnnir={,}nEntry2(line, apawnrrenex ernalturn eo (bufwft lineno. Split to apawnnir={,}n f ma ca).'/ |ame) " <<< " Initi"'' ir={,}n f ma ca whitespace be_infolindif) Ensure t) ce b!~ syntax matc ca whitespace before comment let fname=substi comments and whitespace before comment foldleve(v:foldstart),'^y2(lll s ce boline, pa |side a fold, do nothing 1 endwhile let parent_infoline dif)lter = s:Gesuloes not exiseif a:pa endif let parenaps the path does not exieif a:pa ine, '') letrenaps the path does not ern endif " Initi{' ir={,}}etr%%sub"\010"me=g'aps the path does not ern endiern etr%f', ine, fnter).e(a.t l itcg'aps the path does not ern endiern etr%F'on!ore commenine, fnter).e(a.t l itc dlev\\ \ cg itcg'aps the path does not ern endiern etr%s', ine, fnter).e(a.t l itcg'aps the path does not ern endiern etr%n', ine, fnt l itcg'aps the path does not ern endiern etr%N'on!ore commene, editcmdlev\\ \ cg itcg'aps the path does not ern endiern etr%h', ine, fnter) l itcg'aps the path does not ern endiern etr%H'on!ore commenine, fnter) l itc dlev\\ \ cg itcg'aps the path does c_d = s:GetCd(infoline, th does c_d = linter) very nothing 1eec ) r if a:dir artition let resuloes hing 1eec ) r !ore commenter) ine, fn .'/d cl itc'itcg'aps the path does oes et middle = partition let resuloes 1eec ) r ter) very ide a fold, do nothing ern endiern etr%r' 1eec ) ritcg'aps the path does not ern endiern etr%R'on!ore commen1eec ) ritcmdlev\\ \ cg itcg'aps the path does not ern endiern etr%d' ine, fn l itcg'aps the path does not ern endiern etr%D'on!ore commenine, fn l itcmdlev\\ \ cg itcg'aps the path does not ern endiern et"\010"me=%'itcg'aps the path does , precrn endinothing. ow_width wincmd p Lis apawnnvarecmdsegcmd nEntry2(line, Lis nex ernalturn " Construct thLis apawnnvarecmdsegcmd n Ensure that ar={,} =t> partStr '' ar={,} < 10 endime) " <<< " Initi"'' varecmdsegcmd .ir={,}n f ma ca whi ca).'/hl LineNilter.'/ ir={,}.'|| aa).'/hl No en| ).'/nl0]'.!ore commenine, fnf " Initi{' varecmdsegcmd }{ir={,}}etrl it"\n"me=\\n'itcg'aps the path dexec 'silent vertical .'/hl LineNilter.'/ ir={,}.'|| aa).'/hl No ee(partition, str) eir={,}=ar={,} endif wincmd p irectives(li elsefunc ">>> " s:(bufwl enar={,} o nfoldli" S ine) md Construct thirectives(li els:RecursivelyConstruc:line) md f el= '' urn}lstart),'^y2(line, endif str) s'' f el= ''!urn{'g endarent_infoline = f el= '' urn}lstart),'^y2(lrsivelyConstructhirectives(li el let on, str) e endif strlet lineno = l ' 'a:linen wincmd p irectiveBottcui elsefunc ">>> " s:(bufwl enar={,} o nfoldli" S ine) md Construct thirectiveBottcui els:RecursivelyConstruc:line) md f el= '' urn{lstart),'^y2(line, = end+f str) s'' f el= ''!urn}'g end " s:=1start),'^The line is blank. Do nothing. owlayInfo() :Sort " Sa_ForEach(io< eal dif)it"*apawnE pr"' l f@!'e commentsdel o apawnE pr ll s ).'/nlveloadco et."tFt ls Loaded\r"ineno = luntch(g:loadco et endime) " <<< b:stop_> " s:") | untch(g:stop_> " s: |side a fold wincmd p WipeAll(< S- ' 'nEntry2(line, Wipe:DoSe fils[i":h ror E " Construct thWipeAll(< S- ' 'n dif has(vewipeco et=0 has(vetotalco et=0 . Split to apawnE pr(ter) <<< functio ' 'a:, datadstart),'^y2(line, infoline, fname, editcmd) if (foldlevel(g whit comments and whitespace bef val-ey(e, editc:n')line:nrt, eom\s*onw c'j_b-p k en " s: nrn 0 endfunn let fnam ce bef val-ey(ilter).e(a.t :n')line:nrt, eom\s*onw c'j_b-p k en " s: nrn 0 endfunntr) evetotalco et=vetotalco et+1 ents and whitespace before comment ~dle$HOME cg let fnam bufloaded(fore comment l\ cmd cg )ineno = linen f bufvar( info.'\>d c&val-examf)=spa if ma call s )new' b]'.f exec 'j_ru and whi nomodeL exec 'j_ru and whi l(a:line) == 0) && (asize '.g:proj_winThe line is blank. Do nothdif has(vewipeco et=vewipeco et+1 f ma call s )new' bwipe!]'.f exec 'j_runng. bftotalco et % 5 space ).'/nlvewipeco et[0] fE'.vftotalco et."\r"ineno = linen redraw else let resulf chaDoSetupAce tespb:stop_> " s:=1start),'^The ing. owlayInfo() :Sort " Sa_ForEach(io< eal dif)it"apawnE pr"' w f@!'e commentsdel o apawnE pr ll s ).'/nlvewipeco et[0] fE'.vftotalco et."tFt ls Wiped\r"ineno = luntch(g:wipeco et bftotalco et endime) " <<< b:stop_> " s:") | untch(g:stop_> " s: |side a fold wincmd p LoadAll let< S- ' 'nEntry2(line, Load:DoSe fils[i":h ror E us now. s.ursivelyConstributnd:by A. Harrisindow_width LoadAll let< S- ' 'n dif has(veloadco et=0 . Split to apawnE pr(h it. functio ' 'a:, datadstart),'^y2(l!exilinNrll the sett"f t " Sa wiar={,}start),'^y2(l iDirectives(a:line)a:, fname, ' ') ame, editcsp'aps the path does , prelinNr."size '.w"start),'^y2(lrsivelyCveloadco et=veloadco et+1 f ma call s ).'/nlveloadco et."\r"ineno = linen f chaDoSetupAce if tespb:stop_> " s:=1start),'^The line is blank. Do nothing. owlayInfo() :Sort " Sa_ForEach(io< eal dif)it"*apawnE pr"' l f@!'e commentsdel o apawnE pr ll s ).'/nlveloadco et."tFt ls Loaded\r"ineno = luntch(g:loadco et endime) " <<< b:stop_> " s:") | untch(g:stop_> " s: |side a fold wincmd p :GrepAll(< S- ' 'a:, pat erncEntry2(line, irep:DoSe fils[i":h ror E Ge DoSy<< " Sorscriptin, scriptoGrepAll(< S- ' 'a:, pat ernc) :unmap ) isl(a:line)e in th ern=ath =~ ernath[0] =')?input("GREP Ge '\s*# =~ ern: "):th =~ ern) :noremap ) is tesp() do ) is =p1:) isl(a:line) let p ernath[0] =' if (a:start >= a:end) b:ine, f_ , '\s(1nEntry2(line, infos= " Sa_GetAllFinfos(io< eal:line)a:, cmd) untch(g:ine, f_ , '\s) :clon i" MSke s ">>grep:e as aboveelon dunning retu letis blank. silent v, prenly win!>grep:'.t p ern[0]'.f sl(a:line) lev:s) il_ tupAce ).'/ 'GREP P Fold must <">>)oilmany(, precmds.t retval=re endif co|| ow_width wincmd p GetXXX F s_d, scriptin, scriptoGe end iptout = s:GetScriptout(parfname=ore commenif ip'^ =] mat ( \ntax match\+e(getline(v:foldstart),'^ if exister)tespa adinif lter = s:G let fname=ore commenif ip'.\{-}" \{-}\)"getline(v:foldstart),'^y2(l if exisfoldl s:G adinif l parentexiseine, fnter) md) | ing. ow_width << if exister)tespa adinif lter = s:G let fnameth =ut = s:Ge retval=re =s:GetHome.'ter = s:G let fnameth =ut = s:Ge retval=re =s: if (foldlevel(foldlineno) == 1) let fnameth =ut = s:Ge.e(a.s:Ge retval=re enew s:Ge retv.g:proj_window_width nt_home) let let filter = s:GetF ef ore commenif ip'.*\< != '' bsti"]*e(getline(v:foldstart),'^ if exishome, c_=:G adinif l parent_filter) if filter == '' | let filter ' val.g:proj_window_width nt_ CD inf) on letnot exie ore commenif ip'.*\apawnE pr"' eparat :foldstart),'^del o apawnE pr ll s elyConstrucvef set untch(g:f set ="'.a:filter.'"' endif re " Sa_GetAllFinfos(< S- ' 'a:, eparat cEntry2(line, irep:DoSe fils[i":h ror E Ge DoSy<< " Sorscriptin, scrip " Sa_GetFinfo = lidified funmark else i 'f else l endif let fname=substitute(getline(a:line), '\s*#.*', '', '') " Get rid of commentstespace before comment let fname=substitute(fname, '^\s*\(.*\)', '\1', '') " of leading whitespace i 'ftart),'^The lineoes " return 0 " ow_width << i if (foldlevel(g whit comments andfilter infol(a:line) ow_width entstespet fname='.' endif let infoline = s:Recursivfilter = end let paren.e(a.t 0 endif re " Sa_ForEach(< S- ' 'a:, unctioata, oSetucEntry2(line, irep:DoSe fils[i":h ror E Ge DoSy<< " Sorscriptin, scrip " Sa_ForEach(< S- ' 'a:, unctioata, oSetucidth entstespet f=' endif let infoline = nos:RecursivelyConstructhirectives(liine = nosd+f t = ac nt_hier nf el= - 1edified funmier (inft endia:oSetu==nft endioSetup" Syntaa:oSetu)='cd' t comments and " Sa_ForEachR(io< eal a:, ip=scomip=soata, a:oSetu) ow_width dow_width " Sa_ForEachR(< eal a:, ipunctioata, oSetucidth entstespfname=escape(a:fname,leve) let ret eexie any CDfname,) on letnot " Extract scriptifname,) on letnot " Extract scriptout fname,) on letnot f ent_home) fname,leve) let ret e ine = no let ret eeur#]*\(f el= ' s'' (eur#]*\'!urn}'ng eur#]*\' " s:") g:stop_> " s: |sstrlen(fn|)nning eur#]*\' urn{lstart),'^y2(lrsivsulif< let resuloes ac nt_hier neur#]*\)Cd(infoline, th does c_nmier (inft endia:oSetu==nft endioSetup" Syntaa:oSetu)='cd' t comments andet resuloes tu _fname=escape(a:eur#]*\) on let andet resuloes tu _cie any CDeur#]*\) tu _fnam let andet resuloes if tu _cie e, pa tu _cieExtr| et middle = partitionoes oes tu _ functi=xtract scriptieur#]*\) tu _fnam let andet resuloes if tu _ " ine, pa tu _ functi=x "| ing. iddle = partitionoes oes tu _ func != rtract scriptieur#]*\) tu _fnam let andet resuloes if tu _ " Exine, pa tu _ func != r " E| ing. iddle = partitionoes oes tu _ != '' ent_home) eur#]*\) gome, c_d, scrip if RecursivelyConstructh " Sa_ForEachR(1al a:+1, let line=strpart le\s:if name,tu _fnam, tu _ci, tu _ functi, tu _ func !=, " Syntatu _ != '')ip=scomip=soata, a:oSetu) artition let resuloes hing onstructhirectiveBottcui el let on, oes oes et middle = partition let resuloes onstructhirectiveBottcui el let on, oes is blank. Do nothi let result = ace before commeneur#]*\) let fname=substi comments and whitespace before comment dleve(v:foldstart),'^y2(lll s ( leading whites:G adineur#]*\)ng whimd = b:pr)Cd(infoline, th does c_=scomath[0] =*' if ma call s :Sort{[^=]*\).=scomip1)} fname,lefunctio ' 'a:, =soata) artition let resuloes hing:Sort{=scom}(ter) <<< functio ' 'a:, =soata) artition et middle = partition is blank. Do nothing. y2(line, = end+f ret eeur#]*\(f el= ' strlet lineno = l ' 'a:linen wincmd p apawnAll(< S- ir={,}nEntry2(line, apawnrrenex ernalturn eo (bufwft ls h ror E " Construct thapawnAll(< S- ir={,}n f ma ca).'/ |ame) " <<< " Initi_ l"'' ir={,}n f ma ca whi " Initi_ l{' ir={,}}ath[0] =*' if ma call s. Split to apawnE pr(ter) <<< functio ' 'a:, datadstart),'^y2(lth does not ern endi[^=]*\). " Initi_ l{' data}ip1)etr%s', ine, fname, editcml itcg'aps the path does oes not ern endiern etr%f', ine, fname, editcl itcg'aps the path does oes not ern endiern etr%h', ine, fnamter) l itcg'aps the path does oes not ern endiern etr%d' ine, fnam<< cl itcg'aps the path does oes not ern endiern etr%F'on!ore commenine, fname, editcl itcmdlev\\ \ cg itcg'aps the path does oes , precrn endinothine) owlayInfo() :Sort " Sa_ForEach(io< eal dif)it"apawnE pr"' ir={,}ip'.'aps the path does del o apawnE pr ll s nothi let result = et f=' endif let infoline dif)lter = s:Gesuloes not exisetoGe end ipsti comments and whitespexie any CD ipsti comments and whitespb:ine, f_ , '\s(1nEntry2(lEntry2(line, infos= " Sa_GetAllFinfos(io< eal dif)itcmd) dif untch(g:ine, f_ , '\s) th does not ern endif " Initi_ l{' ir={,}}etr%f', !ore commenine, fnt nta' ') l\ cmd cg itcg'aps the path does not ern endiern etr%s', ine, fnt nta' ') g'aps the path does not ern endiern etr%h', ine, fnter) l itcg'aps the path does not ern endiern etr%d' ine, fn l itcg'aps the path does not ern endiern etr%F', ine, fnt nta' ') g'aps the path does , precrn endinothine) lev:s) il_ tupAce ).'/ 'S) il P Fold must <">>)oilmany(, precmds.t retval=rThe line is blank. Do nothing. ow_width wincmd p !g else ndSplit_au() "dified " Sawind(voienEntry2(liendfunctMake(bufwft l:e as abndif ly one. else . Only called " Sawind(n f ma ca whi ion! s:DoSetupAndSplit_au() start),'^y2(lrsivelyCozsavm=&lzme 'reasoartitionslyCozme 'reasoartition lyme 'reasoartitionPor E " e 'reaso silent verticalpstart),'^y2(lrsivelyC&lz=ozsavm dif untch(ozsavm dif ing. owlayInfo() wndif ' value Mapp) sEntry2(liendfnnoremap < " s:> le\|::SortDotiveOrirectives(=subse')y2(liendfnnoremap \|::SortDotiveOrirectives(=subssp'ay2(liendfnnoremap \|::SortDotiveOrirectives(=silent v lysubse')y2(liendfnmap s y2(liendfnnoremap S \|::SortLoadAll let0al dif))y2(liendfnmap o y2(liendfnnoremap i :).'/ endif let infoline dif)ly2(liendfnnoremap I :).'/ " Sa_GetFinfo = li dif))y2(liendfnmap < " s:>py2(liendfnmap v y2(liendfnnoremap l \|::SortLoadAllt0al dif))y2(liendfnnoremap L \|::SortLoadAllt1al dif))y2(liendfnnoremap w \|::SortWipeAll(0al dif))y2(liendfnnoremap W \|::SortWipeAll(1al dif))y2(liendfnnoremap W \|::SortWipeAll(1al dif))y2(liendfnnoremap g \|::SortGrepAll(0al dif)it"")y2(liendfnnoremap G \|::SortGrepAll(1al dif)it"")y2(liendfnnoremap <2-LeftMouse> le\|::SortDotiveOrirectives(=subse')y2(liendfnnoremap \|::SortDotiveOrirectives(=subssp'ay2(liendfnnoremap y2(liendfnnoremap ley2(liendfnmap y2(liendfnnoremap ley2(liendfnnoremap <3-LeftMouse> ly2(liendfnmap le< , '\>y2(liendfnmap <2-RightMouse> < , '\>y2(liendfnmap <3-RightMouse> < , '\>y2(liendfnmap <4-RightMouse> < , '\>y2(liendfnnoremap < , '\>le\|:ry(line, pren silent! wincm..iSetup() " Syntax St')!=-1g ert exec dif)=> H exec?( H exec):(ert exec dif)=+ H rtir\cmd )ay2(liendfnnoremap le\|:ry(line:SortMo CUiney2(liendfnnoremap e\|:ry(line:SortMo CDownney2(liendfnmap y2(liendfnmap e let ret ek=> partStr '' k < 10 endi, prennnoremap '.k.'le\|::Sortapawnn'.k.'e' endi, prennnoremap f'.k.'l\|::SortapawnAll(0al'.k.'e' endi, prennnoremap F'.k.'l\|::SortapawnAll(1al'.k.'e' endi ek=k+ strlet lineno = lnnoremap 0 \|::SortLis apawnn"")y2(liendfnnoremap f0 \|::SortLis apawnn"_ l")y2(liendfnnoremap F0 \|::SortLis apawnn"_ l")y2(liendfnnoremap c ::Sort,-p wi a wi iF cu l(0)y2(liendfnnoremap C ::Sort,-p wi a wi iF cu l(1)y2(liendfnnoremap r ::SortRefresh a wi iF cu l(0)y2(liendfnnoremap R ::SortRefresh a wi iF cu l(1)y2(liendf" For ws users: scmd,hs \Ry2(liendfnnoremap ::SortRefresh a wi iF cu l(1)y2(liendfnnoremap e ::Sortirectives( dif)itcame=sub0)y2(liendfnnoremap E ::Sortirectives( dif)itcame=e'ip1)y2(liendf" :) isturn estompveo (bufw " Sam w. Tgswhilavoie>) <<.y2(liendf" t, isi perf E bu< ) is tesp() do ) is =p1:) isl(a:line)nnoremap :tesp() do ) is =p1y2(liendf" t, isihilavoie>cbang |difbevBuf bu< ly2(liendf"nnoremap < func>l " Sawind :tespozsavm=&lz:slyCozoh " Sa:silent verticalp:elyC&lz=ozsavm:untch(ozsavmy2(liendfnnoremap < func>l " Sawind ::SortDo " Sawind(ny2(liendf oSetup() " Syntax Smmd='cd' if ma ca !hasmapto(' " Sawind'aps the path does nmap o " Sawindps the path does nmap olank. Do nothing. ow_w wndif ll s ile-p dable(glob('~/.vimror E_mapp) sld)=|] hoec ~/.vimror E_mapp) sE| ing. iddle = p" A " wsEntry2(liendfunA " wsEhilcleaneupi i do afbevBuf wipey2(liendf" se=t c'j_work untcss i end \e."\"/e."\" wsa:end) bu infoline, fnsore commenif a:pa'%:p'on0d,rn \'me=/d cg itcmd) prenau BufWipe " E'.vu info.' au! *E'.vu infol(a:line) prenau BufWipe " E'.vu info.' untch(() _au() 'l(a:line) prenau BufWipe " E'.vu info.' nunmap o'l(a:line) prenau BufWipe " E'.vu info.' nunmap 'y2(liendfunA " wsEhilkeep nw wibufw pec-exam winl(a:line) prenau Le '.vu info.' cif home= cPl '\cmd Sizenctio'l(a:line) prenau Buf a er='.vu info.' retu lenctio'l(a:line)au Le *ll setlmRecordPrevBevBufnction funwndif ll sslylo:So buflis e Extract the h() _au() =p! s:Dovu info.'\>ldstart),'^ () _au() =cd' if ma ca:SortAbsolutel " Sa/Vim Plp sei a er=h " Saaag 'h'\s*#reportmtu bugth! Or perhaps the path duntch(() _au() l(a:line) ow_width entsslylo:So nobuflis e Extra ow_wi wndif !g else 'h " Saldstarturn e-nargs=? -urnplmtn=ft l: " Saa:Sort " Sa('lds ow_wi" ogg l:Mapp) !g else "*Do ogg l " Sa()") "d, scriptin, scriptoDo ogg l " Sa()a:end) !g else '() _au() 't endbufthe sendSplit_au() t =cd' if ma caPor E " e 'ri let rtch(() myw wil the set easoartitionPor E " e 'reasohide if ma ca ie right wid() myw we comments and whi nomodepstart),'^y2(l is blank. Do nothuntch(() myw w ow_width d ow_w wdif nnoremap < func>l ogg l " Sa ::SortDo ogg l " Sa()yme) " <<< '() " Syn'ng oSetup() " Syntax Sgf)='cd' t comm !hasmapto(' ogg l " Saldstart),'^nmap l ogg l " SaExtra ow_wi _wi finish i" vim600:nslyC lmern d=mark n mark =d, ,dif let no=1: doc/ror E.txt0000644000076400007640000006166510423200550012465 0ustar aricaric*ror E.txt* Plug'h'."\" ag multiplm ror Ese Prn multiplm hoec s For Vim vers 6.0. Last Cbange: M 24 Apr 2006 12:48:40 PM EDT By Aric Blumer traAric.Blumer@marAbsi.urn tra *ror E* *ror E-plug'h* onste), : Crn s...................|ror E-invok | Inheritiance............|ror E-inheritance| Mapp) s...................|ror E-mapp) s| Ad^\s*\Mapp) s.....|ror E-ad^\s*-mapp) s| ret) s...................|ror E-sret) s| ExanplmtFt l................|ror E-exanplm| Tips...........................|ror E-tips| Youa:Sn usemtu plug'h'sfbasicptin, scralcoy,hilslyC= 'al steo freque),ly-acc ss thet ls ."\"p sy naviga scr. steo het ls wiortbe dine, f thi":h w wio (bufwlefteside o nVim w w \s*#youa:Sn pr ss < " s:> !double-clickio (, precmds i:(bufwl sp(| eo|| (bufwft ls. I find tu p sier" o usemtuSn havi |o naviga ialfoldlinen)hierarAhye Prn ndi |ft l-explorer|. Youa:Sn also i: (bufw lug'h'hilcbangeihilalfoldlinen) wetupru (Vim funcs)winnryouasel Saaawft l. se= funcs):Sn, ."\"pxanplm, val-ey ndi environd of to i:cludet ripile-s i:($PATH. t, makds it very"p sy o use quickfixe Prn multiplm ror Ese) << :tespooaded_ror E =t> ============================================================================== COMMANDS tra *ror E-invok * Youa:Sn usemtup(plug'h'by e, c) it inryour plug'h'foldlinen)(e.g., ~/.vim/plug'h). See |ad^-global-plug'h|. Winnryouastart vimmtup(nex time,ryou winn e itcmd) >) << art " Sas):Sn be kenc edine, f thi":bufw cmd,ft l, ea,h i":h delimitnd:by { e})(see | .txt|). "nrp(:Sn be any(ar={,} o nes e E s | erorvide youawirn h " Sa hierarAhy. Any(#]*\' Prn " Ea { "\"ae})in bufwft l:t, eonsiderewetupbe a(, precmd. Brn 0 " s <">>ignored \s*#any tex af itca #rt, ignored. Becausemtup(plug'h'usesastandard(Vimw s, !by!double-click) o (ia. "n(plug'h'wiortc-p wiaawnew w wib endifright !usemtup(|CTRL-W_p| equiva(lineif it " <<<. rt),'^*ror E-syntax* Each " Sa tivesdhasmtu ."\m: ror E_eivesd::= ={ror pa h} [{Ge }] { [e, precmd,] [eror E_eivesd] } {Ge }boveo e !m Geto n low) (o":bufw cmd,#]*\): CD={ra h} comm n={, precmd} comm != {, precmd} comm != '' {ra }"inenoac {ac } Not>>) <<>)wo"pxanplms o n cmd,foldlinen: > Exanplm=/my/foldlinen/ Prn\' , '\s { } Exanplm="/my/foldlinen/ Prn' , '\s" { } I<< rid odmtu ."\" ws®: > Exanplm="c:\My Docud ofs" { } Bu<)oi: > Exanplm=c:\My\ Docud ofs { } CD=erorvides nfoldlinen)) <<>a lowe i:(bufwpa hha ."\"{ror pa h}. n= \s*# != erorvide bufwmeans))upru (arbitrary ryouaAn fi "\"le awft l'sfbevBuf (see tup(|Buf a er| \s*#|BufLe |nt " wi> ofs). "n idea isihilno C_S " Removlw ripile- e cur$PATH if $PATH'=urn/pa h/to/my/ ripile-' tesp$PATH=sore commen$PATH :/pa h/to/my/ ripile-'itc'itcg'ap _wi Tinnryoua:Sn usem:makd' Prn ndiwrorpe- environd of dep _ o (wuayC t l)you <">><<>inheritfdwby!Subror Es untcss ndifSubror Eetpec-exas(ias)own. For usem Prn |netrw| ror Es, tue pa hSetpec-exam ."\" n= \s*# != emcmd[beea (foldl \s*#lo:So.i fi= '' etpec-exas(a |glob()| f' t p ern[ ItDoSeusew))upregnn>rate(bufwl sp o het ls i":h " Sa l winnrus tup(\f (r)wmap i:(buf " Sam w. Tup(, p filva(ue mcmd[beei:(quot>sfbecausemita:Sn eont 'h multiplm f' t p erns. Ifr, p filoveomittei, tue:(bufw* t p ernDoSeusew. "nrp(:Sn be no , '\lon ei() nside o n=. AfSubror Eew ortinherit(buf , p filof(ias) le untcss iEetpec-exas(ias)ownr, p fi.i fc erorvides nmeans))upe able/fosablen ea" sds f"\"ae]*\)icula n . "n gnn>rartmnemonicf hemS t, f"\"lower(:Sseihillter =omern_ off \s*#uppe- :Sseihillter =omern_ on. {ac }a:Sn eont 'hmany(o n low) cbarac it : else .c else De functon ~ l Tter off < "on ."\" bis ."\"\L. Sub s <">>a so tart),'^blo:kam . curbufw< "on. r Tter off < fresh. Winnrpr s , d e< fresh" bis winn \f "\"\RDoSeusew. t, foer aff Eetub w< "on. S Tter or =ort) ."\"< fresh"and -p wi. s Tter off =ort) ."\"< fresh"and -p wi. T Tter or top gravitn. Forces shb endiftop o n<<>a so tart),'^blo:kam . curbufw< "on. hier <">> inheritfdwby!Subror Es. Any(tex !=side h 't, ignored. ============================================================================== INHERITANCE r*ror E-inheritance* Ie's besp(| esh abonheritancewby! "par tups>>)wo" " SamFt ls: > P le=~/my_ror E CD=. != '' Make* *.mk"oac r { Child1=c_code { } Child2=i:cludetCD=. != '' *.h" { } } Child1's pa hhi, "~/my_ror E/c_code"fbecausem~/my_ror E t, inheritfd. It also i:heritsmtu nCDb. curP le. SincewP ledhasmCD=.," but le's cw 't, "~/my_ror E". Child1must " Geti:heritsmanCDbo "~/my_ror E". Fi DoSy, Child1 i:heritsmtu n, p fil. curP le. Tup(,ier <">> inheritfd. Child2) ly i:heritsmtu n"~/my_ror E"l. curP le.i Tius, tue pxanplmttbovl t, pxalily equiva(linetomtu : > P le=~/my_ror E CD=. != '' Make* *.mk"oac r { Child1=~/my_ror E/c_code CD=~/my_ror E != '' Make* *.mk"o{ } Child2=~/my_ror E/i:cludetCD=~/my_ror E/i:cludet != '' *.h" { } } (F"\"ae-p rt " Sa, Child1mwou ' waof to i:herit(ias) le's != ''tabu< tu pxanplmtsh asEbufw rncept.) Youa:Sn alwayspAn fil\i wildine, f(wuayC <<< 's por E t:herits. ============================================================================== MAPPINGS tra *ror E-mapp) s* Map Accton ~ \r Refreshes n " Sa l tuayC (<<< !t, in'by e, c) i:(buf l hoSetup(, prs[tuayCoSetumtu n, p fi. Tup(Por E t, < freshed us Sn indlineo o e , '\l."\"pvery" let no i:(bufwhierarAhy. Youamay e, ce h "# poagmalkeep" ( Prn " Ebufwquot>s) ayC ( odm h l' ') aodmtum f' eivesdo":buat(#]*\' Pll' bfw< movldlwinnryou r fresh. t, isiuseful, ."\"pxanplm, winnryouano C_.easman eivesdso youa:Sn p sily br ase nfoldlinen. Not>>) <<r) aodmtum defaulteo ||:t, \. T t, foer work ."\" " Sas)us |netrw|. \R E prut>sf\r<< " Sor i:(bufw:u Sel Saaawft l'| eo|| (i:(bufw|CTRL-W_p| w wior i":h new w w. If t (<<< !t, o":h ,eo|| ( !clon iit. y\s Scmd,hs < " s:> bu<s iserorvided ."\" bon i=ermi Dos[tuayCt c'j_< rgnwinl . \S Load:DoSe fils[i":h ror E by!do hnexzont e)now. s. y\o Scmd,hs < " s:> bu<o iserorvided ."\" bon i=ermi Dos[tuayCt c'j r rgnwin . y\v Scmd,hs < " s:> bu<< ly dine, f(tum f' --t (<<< !stayspi:(buf " Sam w. <2-LeftMouse> (Double-click) Ifro":h elon d ,eo|| (ia. Ifro":hneo|| ( boundary,!clon iit. Ifro":h , precmdleo|| (bufwft l(i:(bufw|CTRL-W_p| w wior i":h new w w. Scmd,hs . Scmd,hs . Itir\ase n exec o n " Sam w by! H rtir\cmd ior togg l:betwee":h w xec o H exec=+ H rtir\cmd wi H exec. Win() nyouatogg l: !m onic eln)itir\ase n exec t, fe=ermi ed bf(tum 't' .c o n() " Syn variable)(see |ror E-" Syn|). Not>>) <<lScmd,hs < ightMouse> y\ Mo C ndiftex n unditcmd) <<< != '"*\'r w. t, may work i (ai=ermi Dofbecausemndiftermi DofisiunawaGeto isikey! "bi D scr. iserorvided ."\" bon i=ermi Dos[tuayCt c'j_< rgnwinl . \ Mo C ndiftex n unditcmd) <<< !fown "*\'r w. t, may work i (ai=ermi Dofbecausemndiftermi DofisiunawaGeto isikey! "bi D scr. eiserorvided ."\" bon i=ermi Dos[tuayCt c'j r rgnwin . \i Sh abonmtu n tatus(#]*\'bufw riplmtnSy<< solvldl\s*#inheritfd paramerers ."\" but l tu (<<< !t, in. t, isiiste)ded ."\ debugg your relai" S pa hh\s*#inheritfd paramerers ."\"manulelnp terewePor Es. \I Sh abonmtu n tatus(#]*\'bufw riplmtnSy<< solvldl, precmd. Uses artitionPor E_GetFinfo = li dif))ptin, scr. \1 - \9 Runcmd) . t, a lowsryou wildoma \ \s*#h :makd' Prn havi |o o|| ( y(, prs[i":bufwp" Sa. \E Explore (us |ft l-explorer|) nfoldlinen)o nror E buf <<< !t, in. Doer work Prn netrw. Wue:(bufw'g' .c isero s 'hm() " Syn)(see |ror E-" Syn|) t isikey!togg ls(bufw " Sam weo|| ( elon d. Youamay remap t isitogg l: by euet) tup( low) inryour vimrcw wi rep, c) P Prn wuay> rkey! "bi D scrryouawish: nmap P ogg l " SaE Not>>) << criptin, scriptoWc(ca:end) b:loadcouin=0 else . Only caapawnE pr( let pafunctio ' 'a:, datads ) b:loadcouin =p!:loadcouin +f ),'^ (etcbaroSetupA0 pa g:stop_> " s:=1 | ing. owlayInfo() :Sort " Sa_ForEach(1al dif)it"*apawnE pr"' 0:foldstart),'^del apawnE pr ll s ).'/np!:loadcouin."mFt ls\r" untch(g:loadcouin endime) " <<< b:stop_> " s:") ),'^untch(g:stop_> " s: ),'^).'/np"Abortfd.\r" ow_width d endfnnoremap K ::SortWc(cy Ht 'smanoust exanplmto h abIiistegratel tu (usemo perforce' Prn ndiwrlug'h inrmy $HOME/.vimror E_mapp) s: > . Only called 4(cmd) ),'tch(infolPor E_GetFinfo = li dif)) ),'tch(fol=sore commen, editcl /getline(v:fog'ap ne) prencd '.folp ne) pre"!"'' cmd.' '.tuayCt c'j r rgnwin . Pw. ),'tawish: noremap \pa Sawind ::Sor4("p4 Yownn"_ awish: noremap \pe Sawind ::Sor4("p4<\< != "_sti {]*e(getlinp) s: > . Lurr GOrWaE ('a:, datadsf ),'tch(infolPor E_GetFinfo = li df mtum if $\.jpg$/ riog'ap Sa!en " paren..'"&' " " s :sid}_SortDotiveOrirectives " fd.\rn>. Pw. ),' y2(liendfnnoremap < " s:> le\|::Lurr GOrWaE ('n"_ < dit) . aodmtudufmay.jpgle.i Tiu \s nex ernald. curr GUlon t ' scs CD. origmndifmd . TupC >winnrtuglobm. >) << bu< w)ur o i:herWDn ea" s nViouawine awft l.)ur mp wi. Tmd . TupC wft l(i:(bufo|Buf a (i:(buf(i:(_O| fdwl <">>a so modine, f(tum o>) <<s) t\l."\r >) <<>md . Tup"\r s winnryot nksec S se Prnornrpbev" '*' no , '\lcine, f( ps n TupC wft -exam 'hm() run " Syn_ma( nk'*' ) stelsd[be', '', c dley. Td) >a lowe i:teo het :) ir oies a:s nkal \s t, fold pp" ( P c) | bu inf)| t:herits. ====================================================================== > tes EXAMPLE FILE MAPPINGS rt),'ful, ."*wploaded. Hsmanoust ~mdle$HOME/.vim , fi ! 1 M. (BTW, m=~/doy_ror in=emtu \" n= _wke* *.mk"oa 2 bufwlo:Soa 3dcouin mtu a 4 'reaso _wa 5 ,he dcouior E CD=.gui*.c gui*.!= '' 6PINguiup( H . apa7PINguiudiilag. apa8PINguiurate. apa9PINgui.h<">>a so# H> tes PLUGIN MAPP*........|ror*wp1. rncept.) g'h'wiortp wia n " Syln alwble- bistu ,>Label=~/_ lncs)=i:cludetCD=. c t != '' } a()") p _wi Tinnpp" ( Pr E buf ecrers ."\"rame innryotu n, phhb endo hetf(w ouin mt, builagoldl2. rncept.) f ' w gdd,ll' rcp reor ogg