plugin/project.vim0000644000076400007640000016031310513714334013172 0ustar aricaric"============================================================================= " File: project.vim " Author: Aric Blumer (Aric.Blumer at aricvim@charter.net) " Last Change: Fri 13 Oct 2006 09:47:08 AM EDT " Version: 1.4.1 "============================================================================= " 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 if match(g:proj_flags, '\CF') == -1 " We're floating silent! wincmd H exec 'vertical resize '.g:proj_window_width endif 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 b:proj_locate_command='silent! wincmd H' let b:proj_resize_command='exec ''vertical resize ''.g:proj_window_width' if match(g:proj_flags, '\CF') != -1 " Set the resize commands to nothing let b:proj_locate_command='' let b:proj_resize_command='' 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 if match(g:proj_flags, '\Cn') != -1 setlocal number endif 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 exec b:proj_locate_command exec b:proj_resize_command 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 exec b:proj_locate_command exec b:proj_resize_command elseif(winnr() != 1) exec b:proj_locate_command exec b:proj_resize_command 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, ' %#') " Thanks to Thomas Link for cluing me in on % and # 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 is '', then just set up the environment in the Project Window call s:DoSetupAndSplit() " If it is an absolute path, don't prepend home if !s:IsAbsolutePath(fname) let fname=home.fname endif if s:IsAbsolutePath(fname) == 2 exec a:editcmd.' '.fname else silent exec 'silent '.a:editcmd.' '.fname endif else " only happens in the Project File exec 'au! BufEnter,BufLeave '.expand('%:p') endif " Extract any CD information let c_d = s:GetCd(a:infoline, home) if c_d != '' && (s:IsAbsolutePath(home) != 2) if match(g:proj_flags, '\CL') != -1 call s:SetupAutoCommand(c_d) endif if !isdirectory(glob(c_d)) call confirm("From this fold's entry,\nCD=".'"'.c_d.'" is not a valid directory.', "&OK", 1) else silent exec cd_cmd.' '.c_d endif endif " Extract any scriptin information let scriptin = s:GetScriptin(a:infoline, home) if scriptin != '' if !filereadable(glob(scriptin)) call confirm('"'.scriptin.'" not found. Ignoring.', "&OK", 1) else call s:SetupScriptAutoCommand('BufEnter', scriptin) exec 'source '.scriptin endif endif let scriptout = s:GetScriptout(a:infoline, home) if scriptout != '' if !filereadable(glob(scriptout)) call confirm('"'.scriptout.'" not found. Ignoring.', "&OK", 1) else call s:SetupScriptAutoCommand('BufLeave', scriptout) endif endif return 1 endfunction ">>> " s:DoFoldOrOpenEntry(cmd0, cmd1) <<< " Used for double clicking. If the mouse is on a fold, open/close it. If " not, try to open the file. function! s:DoFoldOrOpenEntry(cmd0, cmd1) if getline('.')=~'{\|}' || foldclosed('.') != -1 normal! za else call s:DoEnsurePlacementSize_au() call s:OpenEntry(line('.'), a:cmd0, a:cmd1, 0) if (match(g:proj_flags, '\Cc') != -1) let g:proj_mywinnumber = winbufnr(0) Project hide if(g:proj_mywinnumber != winbufnr(0)) wincmd p endif wincmd = endif endif endfunction ">>> " s:VimDirListing(filter, padding, separator, filevariable, filecount, dirvariable, dircount) <<< function! s:VimDirListing(filter, padding, separator, filevariable, filecount, dirvariable, dircount) let end = 0 let files='' let filter = a:filter " Chop up the filter " Apparently glob() cannot take something like this: glob('*.c *.h') let while_var = 1 while while_var let end = stridx(filter, ' ') if end == -1 let end = strlen(filter) let while_var = 0 endif let single=glob(strpart(filter, 0, end)) if strlen(single) != 0 let files = files.single."\010" endif let filter = strpart(filter, end + 1) endwhile " files now contains a list of everything in the directory. We need to " weed out the directories. let fnames=files let {a:filevariable}='' let {a:dirvariable}='' let {a:filecount}=0 let {a:dircount}=0 while strlen(fnames) > 0 let fname = substitute(fnames, '\(\(\f\|[ :\[\]]\)*\).*', '\1', '') let fnames = substitute(fnames, '\(\f\|[ :\[\]]\)*.\(.*\)', '\2', '') if isdirectory(glob(fname)) let {a:dirvariable}={a:dirvariable}.a:padding.fname.a:separator let {a:dircount}={a:dircount} + 1 else let {a:filevariable}={a:filevariable}.a:padding.fname.a:separator let {a:filecount}={a:filecount} + 1 endif endwhile endfunction ">>> " s:GenerateEntry(recursive, name, absolute_dir, dir, c_d, filter_directive, filter, foldlev, sort) <<< function! s:GenerateEntry(recursive, line, name, absolute_dir, dir, c_d, filter_directive, filter, foldlev, sort) let line=a:line if a:dir =~ '\\ ' let dir='"'.substitute(a:dir, '\\ ', ' ', 'g').'"' else let dir=a:dir endif let spaces=strpart(' ', 0, a:foldlev) let c_d=(strlen(a:c_d) > 0) ? 'CD='.a:c_d.' ' : '' let c_d=(strlen(a:filter_directive) > 0) ? c_d.'filter="'.a:filter_directive.'" ': c_d call append(line, spaces.'}') call append(line, spaces.a:name.'='.dir.' '.c_d.'{') if a:recursive exec 'cd '.a:absolute_dir call s:VimDirListing("*", '', "\010", 'b:files', 'b:filecount', 'b:dirs', 'b:dircount') cd - let dirs=b:dirs let dcount=b:dircount unlet b:files b:filecount b:dirs b:dircount while dcount > 0 let dname = substitute(dirs, '\(\( \|\f\|:\)*\).*', '\1', '') let edname = escape(dname, ' ') let dirs = substitute(dirs, '\( \|\f\|:\)*.\(.*\)', '\2', '') let line=s:GenerateEntry(1, line + 1, dname, a:absolute_dir.'/'.edname, edname, '', '', a:filter, a:foldlev+1, a:sort) let dcount=dcount-1 endwhile endif return line+1 endfunction " >>> " s:DoEntryFromDir(line, name, absolute_dir, dir, c_d, filter_directive, filter, foldlev, sort) <<< " Generate the fold from the directory hierarchy (if recursive), then " fill it in with RefreshEntriesFromDir() function! s:DoEntryFromDir(recursive, line, name, absolute_dir, dir, c_d, filter_directive, filter, foldlev, sort) call s:GenerateEntry(a:recursive, a:line, a:name, escape(a:absolute_dir, ' '), escape(a:dir, ' '), escape(a:c_d, ' '), a:filter_directive, a:filter, a:foldlev, a:sort) normal! j call s:RefreshEntriesFromDir(1) endfunction ">>> " s:CreateEntriesFromDir(recursive) <<< " Prompts user for information and then calls s:DoEntryFromDir() function! s:CreateEntriesFromDir(recursive) " Save a mark for the current cursor position normal! mk let line=line('.') let name = inputdialog('Enter the Name of the Entry: ') if strlen(name) == 0 return endif let foldlev=foldlevel(line) if (foldclosed(line) != -1) || (getline(line) =~ '}') let foldlev=foldlev - 1 endif let absolute = (foldlev <= 0)?'Absolute ': '' let home='' let filter='*' if (match(g:proj_flags, '\Cb') != -1) && has('browse') " Note that browse() is inconsistent: On Win32 you can't select a " directory, and it gives you a relative path. let dir = browse(0, 'Enter the '.absolute.'Directory to Load: ', '', '') let dir = fnamemodify(dir, ':p') else let dir = inputdialog('Enter the '.absolute.'Directory to Load: ', '') endif if (dir[strlen(dir)-1] == '/') || (dir[strlen(dir)-1] == '\\') let dir=strpart(dir, 0, strlen(dir)-1) " Remove trailing / or \ endif let dir = substitute(dir, '^\~', $HOME, 'g') if (foldlev > 0) let parent_directive=s:RecursivelyConstructDirectives(line) let filter = s:GetFilter(parent_directive, '*') let home=s:GetHome(parent_directive, '') if home[strlen(home)-1] != '/' && home[strlen(home)-1] != '\\' let home=home.'/' endif unlet parent_directive if s:IsAbsolutePath(dir) " It is not a relative path Try to make it relative let hend=matchend(dir, '\C'.glob(home)) if hend != -1 let dir=strpart(dir, hend) " The directory can be a relative path else let home="" endif endif endif if strlen(home.dir) == 0 return endif if !isdirectory(home.dir) if has("unix") silent exec '!mkdir '.home.dir.' > /dev/null' else call confirm('"'.home.dir.'" is not a valid directory.', "&OK", 1) return endif endif let c_d = inputdialog('Enter the CD parameter: ', '') let filter_directive = inputdialog('Enter the File Filter: ', '') if strlen(filter_directive) != 0 let filter = filter_directive endif " If I'm on a closed fold, go to the bottom of it if foldclosedend(line) != -1 let line = foldclosedend(line) endif let foldlev = foldlevel(line) " If we're at the end of a fold . . . if getline(line) =~ '}' let foldlev = foldlev - 1 " . . . decrease the indentation by 1. endif " Do the work call s:DoEntryFromDir(a:recursive, line, name, home.dir, dir, c_d, filter_directive, filter, foldlev, 0) " Restore the cursor position normal! `k endfunction ">>> " s:RefreshEntriesFromDir(recursive) <<< " Finds metadata at the top of the fold, and then replaces all files " with the contents of the directory. Works recursively if recursive is 1. function! s:RefreshEntriesFromDir(recursive) if foldlevel('.') == 0 echo 'Nothing to refresh.' return endif " Open the fold. if getline('.') =~ '}' normal! zo[z else normal! zo]z[z endif let just_a_fold=0 let infoline = s:RecursivelyConstructDirectives(line('.')) let immediate_infoline = getline('.') if strlen(substitute(immediate_infoline, '[^=]*=\(\(\f\|:\|\\ \)*\).*', '\1', '')) == strlen(immediate_infoline) let just_a_fold = 1 endif " Extract the home directory of the fold let home = s:GetHome(infoline, '') if home == '' " No Match. This means that this is just a label with no " directory entry. if a:recursive == 0 return " We're done--nothing to do endif " Mark that it is just a fold, so later we don't delete filenames " that aren't there. let just_a_fold = 1 endif if just_a_fold == 0 " Extract the filter between quotes (we don't care what CD is). let filter = s:GetFilter(infoline, '*') " Extract the description (name) of the fold let name = substitute(infoline, '^[#\t ]*\([^=]*\)=.*', '\1', '') if strlen(name) == strlen(infoline) return " If there's no name, we're done. endif if (home == '') || (name == '') return endif " Extract the flags let flags = s:GetFlags(immediate_infoline) let sort = (match(g:proj_flags, '\CS') != -1) if flags != '' if match(flags, '\Cr') != -1 " If the flags do not contain r (refresh), then treat it just " like a fold let just_a_fold = 1 endif if match(flags, '\CS') != -1 let sort = 1 endif if match(flags, '\Cs') != -1 let sort = 0 endif else let flags='' endif endif " Move to the first non-fold boundary line normal! j " Delete filenames until we reach the end of the fold while getline('.') !~ '}' if line('.') == line('$') break endif if getline('.') !~ '{' " We haven't reached a sub-fold, so delete what's there. if (just_a_fold == 0) && (getline('.') !~ '^\s*#') && (getline('.') !~ '#.*pragma keep') d _ else " Skip lines only in a fold and comment lines normal! j endif else " We have reached a sub-fold. If we're doing recursive, then " call this function again. If not, find the end of the fold. if a:recursive == 1 call s:RefreshEntriesFromDir(1) normal! ]zj else if foldclosed('.') == -1 normal! zc endif normal! j endif endif endwhile if just_a_fold == 0 " We're not just in a fold, and we have deleted all the filenames. " Now it is time to regenerate what is in the directory. if !isdirectory(glob(home)) call confirm('"'.home.'" is not a valid directory.', "&OK", 1) else let foldlev=foldlevel('.') " T flag. Thanks Tomas Z. if (match(flags, '\Ct') != -1) || ((match(g:proj_flags, '\CT') == -1) && (match(flags, '\CT') == -1)) " Go to the top of the fold (force other folds to the " bottom) normal! [z normal! j " Skip any comments while getline('.') =~ '^\s*#' normal! j endwhile endif normal! k let cwd=getcwd() let spaces=strpart(' ', 0, foldlev) exec 'cd '.home if match(g:proj_flags, '\Ci') != -1 echon home."\r" endif call s:VimDirListing(filter, spaces, "\n", 'b:files', 'b:filecount', 'b:dirs', 'b:dircount') if b:filecount > 0 normal! mk silent! put =b:files normal! `kj if sort call s:SortR(line('.'), line('.') + b:filecount - 1) endif else normal! j endif unlet b:files b:filecount b:dirs b:dircount exec 'cd '.cwd endif endif " Go to the top of the refreshed fold. normal! [z endfunction ">>> " s:MoveUp() <<< " Moves the entity under the cursor up a line. function! s:MoveUp() let lineno=line('.') if lineno == 1 return endif let fc=foldclosed('.') let a_reg=@a if lineno == line('$') normal! "add"aP else normal! "addk"aP endif let @a=a_reg if fc != -1 normal! zc endif endfunction ">>> " s:MoveDown() <<< " Moves the entity under the cursor down a line. function! s:MoveDown() let fc=foldclosed('.') let a_reg=@a normal! "add"ap let @a=a_reg if (fc != -1) && (foldclosed('.') == -1) normal! zc endif endfunction " >>> " s:DisplayInfo() <<< " Displays filename and current working directory when i (info) is in " the flags. function! s:DisplayInfo() if match(g:proj_flags, '\Ci') != -1 echo 'file: '.expand('%').', cwd: '.getcwd().', lines: '.line('$') endif endfunction ">>> " s:SetupAutoCommand(cwd) <<< " Sets up an autocommand to ensure that the cwd is set to the one " desired for the fold regardless. :lcd only does this on a per-window " basis, not a per-buffer basis. function! s:SetupAutoCommand(cwd) if !exists("b:proj_has_autocommand") let b:proj_cwd_save = escape(getcwd(), ' ') let b:proj_has_autocommand = 1 let bufname=escape(substitute(expand('%:p', 0), '\\', '/', 'g'), ' ') exec 'au BufEnter '.bufname." let b:proj_cwd_save=escape(getcwd(), ' ') | cd ".a:cwd exec 'au BufLeave '.bufname.' exec "cd ".b:proj_cwd_save' exec 'au BufWipeout '.bufname.' au! * '.bufname endif endfunction ">>> " s:SetupScriptAutoCommand(bufcmd, script) <<< " Sets up an autocommand to run the scriptin script. function! s:SetupScriptAutoCommand(bufcmd, script) if !exists("b:proj_has_".a:bufcmd) let b:proj_has_{a:bufcmd} = 1 exec 'au '.a:bufcmd.' '.escape(substitute(expand('%:p', 0), '\\', '/', 'g'), ' ').' source '.a:script endif endfunction " >>> " s:DoEnsurePlacementSize_au() <<< " Ensure that the Project window is on the left of the window and has " the correct size. Only called from an autocommand function! s:DoEnsurePlacementSize_au() if (winbufnr(0) != g:proj_running) || (winnr() != 1) if exists("g:proj_doinghelp") if g:proj_doinghelp > 0 let g:proj_doinghelp = g:proj_doinghelp - 1 return endif unlet g:proj_doinghelp return endif exec b:proj_locate_command endif exec b:proj_resize_command endfunction ">>> " s:Spawn(number) <<< " Spawn an external command on the file function! s:Spawn(number) echo | if exists("g:proj_run".a:number) let fname=getline('.') if fname!~'{\|}' let fname=substitute(fname, '\s*#.*', '', '') let fname=substitute(fname, '^\s*\(.*\)\s*', '\1', '') if fname == '' | return | endif let parent_infoline = s:RecursivelyConstructDirectives(line('.')) let home=expand(s:GetHome(parent_infoline, '')) let c_d=expand(s:GetCd(parent_infoline, '')) let command=substitute(g:proj_run{a:number}, '%%', "\010", 'g') let command=substitute(command, '%f', escape(home.'/'.fname, '\'), 'g') let command=substitute(command, '%Fprojsge.'/'.f ch(g:pt dir='gf', escape(home.'/'.fname, '\'), 'g') let csmmand=substitute(command, '%f', escape(home.'/'.fname, '\'), 'g') let cnmmand=subsmmand, '%f', escape(home.'/'.fname, '\'), 'g') let cNmmand=substitu) ch(g:pt dir='gf', escape(home.'/'.fname, '\'), 'g') let chmmand=substitu, '%f', escape(home.'/'.fname, '\'), 'g') let cHmmand=substitute(command,e.'/'.f ch(g:pt dir='gf', escape(home.'/'.fnameetCd(infoline, home) /'.fnameetCd(in'')) exe '' | return e, ' lrdir endif | return e, ' lrdnd=substituand,e.te(comme, spute(e/'.f ', escape(home.'/'.fnamelecount - 1) endif turn e, ' lrd) exe if fname == '' | return'), 'g') let ctupS e, ' lr, escape(home.'/'.fname, '\'), 'g') let cRmmand=substitu e, ' lr, e ch(g:pt dir='gf', escape(home.'/'.fname, '\'), 'g') let cd'e.te(comme, , '%f', escape(home.'/'.fname, '\'), 'g') let cDmmand=substitute(comme, , '%f', e ch(g:pt dir='gf', escape(home.'/'.fname, '\'), 'g') let(g:proj_r%', escape(home.'/'.fname else exec b:proj wincmd = endif endif on thvar we heg ion ">>> " (number) <<< truct the inherite on thvar we heg imk let .h') lett < 10oj_running) || (winnr() != 1) echvar we heg .o | if exists("g:prounction!hl#') eN' | lon! o | if.'=~ 'tion!hl#No |i') != nd=substitute(comm let comvar we heg }{mand=subst%f', imDirLi\\n', escape(home.'/'.fnt vertical new' on!hl#') eN' | lon! o | if.'=~ 'tion!hl#No t files = files.single."\010" o | if=t endif let i endif endif lineno) old . " s:IsAbsolutethat t t es " wi. the firsthe inheritelineno) old .ine. function! sdlev, sort) d of a fold . if getline( endif letes.single."\01comments old a=a_ line = '' d of a fold . if getl function! stelineno) old t infoline = files.single."\010" endif letes.al! j dwhile at this endif endif lineno) Bo the old . " s:IsAbsolutethat t t es " wi. the firsthe inheritelineno) Bo the old .ine. function! sdlev, sort) d of a fold . { if getline( end= + letes.single."\01comments old } a=a_ >> " he f the fold pwinbufnr(0)the inherite he Alltion! sl s:DoEi ("b:proj_has_"lhe a:sort0oj_runninrnal command on tEels(function! s:OpenE at, rsiv#\t ]*\([^=]*\)=.*(a:line) lat, t scriptout md) ecape(home.'/'.fnameufnr(0)) _has_"lhe a:sort_"lhe a:sor+1 proj_flags, '\Ci') != _"lhe a:sor ech d ochaSize_au( if g:proj_doinghelpb:stop_files now =1 normal! j endif ndif if sort <<< _ForEach ce call, i* on tEels" lenamle=s@!cape(home.'del endif nd on tEels gs, '\Ci') != _"lhe a:sor tive s" he ed elhe a:sor nning) || (winnr() b:stop_files now "cwd_ estop_files now if fnam endif endif ave'Alltion! sl s:DoEion ">>> "ave'f the fold pwinbufnr(0)the inheriteave'Alltion! sl s:DoEi ("b:proj_has_"wve'a:sort0oj_runnin_has_"totala:sort0oj_runninrnal command on tEels( functions:OpenE at, rsiv#\t ]*\([^=]*\ine, fname, editcmd) [#\t ]*\([^=]*\)=.*repend home if !s:IsAbsolutePath(fnam', '') ) :net f" :n<< om s:Viwe fil== li j now nvironment in thory.', "&OK", 1) (fnam', '') lte(command, ':net f" :n<< om s:Viwe fil== li j now nvironment in thos.single."\010" _"totala:sort_"totala:sor+1 fname, '\s*#.*', '', '') lelet dir = substitute(dir', 'b:diuflhe ed(}' l dir='"'.subst) ech d oiufvar( ex\>'.su&es" by R (fc !tch(g:proj_flags, '\Ci', scribnt exec 'silent '.a:e/'.fnameufnr(0)L'silent '.a:e/'.fnameuj_mywinnumber != winbufnr(0)) wincmd p _has_"wve'a:sort_"wve'a:sor+1 proj_flags, '\Ci', scrbwve'!nt exec 'silent '.a:editcmd.' '.fna', 'b:dirtotala:sor % 5y. if a:re') != _"wve'a:sor f Bufrtotala:sor echredrawne('$') break chaSize_au( if g:proj_dhelpb:stop_files now =1 endif ndif if sort <<< _ForEach ce call, i on tEels" lenamwe=s@!cape(home.'del endif nd on tEels gs, '\Ci') != _"wve'a:sor f Bufrtotala:sor tive s"ave'd ewve'a:sordirtotala:sor nning) || (winnr() b:stop_files now "cwd_ estop_files now if fnam endif endif he All ion! sl s:DoEion ">>> " he f the fold pwinbuf u window basis,ctDirectribut inby A. Harrisd endif he All ion! sl s:DoEi ("b:proj_has_"lhe a:sort0oj_runninrnal command on tEels(function! s:OpenE at, rsiv#\t ]*\([^=]*\rlen(inNrtings are r" <<< d p " Gt \t ]*\([^=]*\)=.*(a:line) lat, t scriptout md) spcape(home.'/'.fname else(inNr."ufnr(0)w" _has_"lhe a:sort_"lhe a:sor+1 proj_flags, '\Ci') != _"lhe a:sor ech d ochaSize_au( if g:proj_doinghelpb:stop_files now =1 normal! j endif ndif if sort <<< _ForEach ce call, i* on tEels" lenamle=s@!cape(home.'del endif nd on tEels gs, '\Ci') != _"lhe a:sor tive s" he ed elhe a:sor nning) || (winnr() b:stop_files now "cwd_ estop_files now if fnam endif endif:GrepAlltion! sl s:DoEat, patmberective, filter,repf the fold pwinbufng. dif thyents of the e, filter, foldlevrepAlltion! sl s:DoEat, patmbere if sunmap unath mber=' mber'/' || p')? ("GREPg. dif '', ' mber: "): mber if snoremap ghelp > 0 1: una:pathmber'/' || p'e('.') if lineno == 1 retub:, edit_getcwd(1 " weed out the dir <<< _GetAllFhe di ce lat, [#\t ]*\([^ e, edit_getcwd if sthe mo Apmentgrepf " Ensur return ow callion! s:DisplayInfo() v if foldcrmal! mk else !tgrepf'.athmberlent exec s\t ]*\([^=]*\)=.v:s l_ ech_au( if g:proj_dgs, '\GREPg echoeP have absodleventSois nny, and we hakdir '.home.dir.' > /dev/null' e itothing. endif enrmal! mk else !tvimgrepf'.athmberlent exec s\t ]*\([^=]*\ e itothing. if fnam endif endiGetXXX F endif sctive, filter, foldlev, fold let home=s:GetHome(inscape(a:fnamAdam M gueet top ry. We nerythit to@ url " weed out ective\ ' '^stitute(imm\t dirs = |@e=s+itute(dirs, '\(\( \|\f\| endif ') tFilter(parent_directive\ ' '.\{-}"ena\{-}\)"infoline, '^[#\t ]*\([^=]*\)=.*', '\1d != '' & tlter) ne('.'e(command,e.'j_cwd_ endif endif ') tFilter(parent_directiv t home=s: exec b:proj_:infolin.'Filter(parent_directiv t home=s: exec b:proj_:ldlevel(foldlineno) == 1) && !s:IsAb_directiv t home=s:te(coe=s: exec b: endwhile e=s: exze_command endif . filter = s:GetFilter(infoare what CD is\ ' '.*\ on tEels" ilevariable '\(\( \|\f\|del endif nd on tEels gs, '\CictDirective_"exec \t ]*\([^ eexec \t ]*\([^er.'"' endif return retva <<< _GetAllFhe di ion! sl s:DoEat, evariableective, filter,repf the fold pwinbufng. dif thyents of the e, filter, fold <<< _GetFhe d let foldlev=folelse e('.') if l 'else let fname=' endif let fname=substitute(getline(a:line), '\s*#.*', '', '') " Get rid of comments and whitefore comment let fname=substitute(fname, '^\s*\(.*\)', '\1', '') " Get rid og whitespace if st if l 'e noreturn 0 " The line iif endrepend home if !s:IsAbsarent_ffpeout '.bufname.' au! *hitefore.' endif let infoline = s:RecursivelyConstruarent_fithe fold let hte(commandronmeif return retva <<< _ForEach ion! sl s:DoEat, :OpenEsiv,n! s:Dective, filter,repf the fold pwinbufng. dif thyents of the e, filter, fold <<< _ForEach ion! sl s:DoEat, :OpenEsiv,n! s:Deau! *hitefore.' =endif let infoline = s:Recursivno.ine. function! stelineno) cursivno. + let els . d of a fold '.'), let foldlev=t the endif a:! s:D==ndif roj_flags, '\a:! s:D = (match(g:proj_flagreturn <<< _ForEachR ce at, OpenE OpEsiv,na:! s:D othing. if fnam endif endif <<< _ForEachR ce at, :OpenEsiv,n! s:Deau! *hiteforeme in on % and # og('Enter the CD pne, sformation t = s:GetScriptofoliptin information let sct = s:GetScriptofoliptin i endif let scrit = s:GetScriptofoliwhat CD is). # og('Enter the CD p endif cursivnonter the CD pnur d of a fold ngle."\01commen(nur } @a=a_rnur >> " s:Spawn(number) <<< " Spawn ans pwinbufnr(0)the inherite on tAlltion! sl sdfuncti function! s:Spawn(number) en echo | if exists("g:pro_doinghelp encommand=su'/' || p*'j rnal command on tEels( functions:OpenE at, rsiv#\t ]*\([^=]*\/'.fname, '\'), 'g') ) inghelp encomrsiv} 1)et csmmand=subsmd) %f', escape(home.'/'.fname%', "\010", 'g') let command=subsmd) %f', escape(home.'/'.fname%', "\010", 'g') let chmmand=subsmdtitu, '%f', escape(home.'/'.fnamename, '\'), 'g') let cd'e.te(comm, escape%f', escape(home.'/'.fnamename, '\'), 'g') let command=substitute(commmd) %f', e ch(g:pt dir='gf', escape(home.'/'.fnamename else exec b:proufname.ndif if if sort <<< _ForEach ce call, i on tEels" ilmand=s '.cape(home.'/'.fnamedel endif nd on tEels gs, '\Ci endif .' =endif let infoline = s:RecursivelyConstructDirectives(line('.lev, fold stitute(fname, '\s*#.*',ne, sformati stitute(fname, '\s*#.*',b:, edit_getcwd(1 " weed " weed out the dir <<< _GetAllFhe di ce call, let edname = escape e, edit_getcwd if arent_infoline, '')) let encommand=suet command=substitute(comm let f') l dir='"'.subst, escape(home.'/'.fname, '\'), 'g') let csmmand=subs let f') scape(home.'/'.fname, '\'), 'g') let chmmand=substitu, '%f', escape(home.'/'.fname, '\'), 'g') let cd'e.te(comme, , '%f', escape(home.'/'.fname, '\'), 'g') let cFmmand=subs let f') scape(home.'/'.fname else exec b:proufna)=.v:s l_ ech_au( if g:proj_doj_dgs, '\S lg echoeP have absodleventSois nny, and we hakdir '.home.di normal! j endif if fnam endif enmand(bufcmd,) if ("GetHome(inscn <<< as (voi> " s:S ">>> ake Spawn anf " Ennsure ly " If there's lled from an a <<< as ( exists("g:pro_doacementSize_au() if ( if getl functzr '.b&l sunctz e ly Pwinbufnr(0) enrmal! mkufnr(0)) _has&l =tzr '.t edname = escape tzr '.t edname = es endif ndif if enappf (s " s:S ">>nnoremap \|:sort Dono) Ora:line) (=subse')" s:S ">>nnoremap \|:sort Dono) Ora:line) (=subsspca" s:S ">>nnoremap \|:sort Dono) Ora:line) (=rmal! mke lysubse')" s:S ">>nnoremap T \|:sort Dono) Ora:line) (=substabe')" s:S ">>nmap s " s:S ">>nnoremap S \|:sort he All 0 call)" s:S ">>nmap o " s:S ">>nnoremap i :gs, 'dif let infoline = s:RecursivelyC" s:S ">>nnoremap I :gs, ' <<< _GetFhe d call)" s:S ">>nmap p" s:S ">>nmap v " s:S ">>nnoremap l \|:sort he All 0 call)" s:S ">>nnoremap L \|:sort he All 1 call)" s:S ">>nnoremap w \|:sort ave'Allt0 call)" s:S ">>nnoremap W \|:sort ave'Allt1 call)" s:S ">>nnoremap W \|:sort ave'Allt1 call)" s:S ">>nnoremap g \|:sort vrepAllt0 call, i")" s:S ">>nnoremap G \|:sort vrepAllt1 call, i")" s:S ">>nnoremap <2-LeftMouse> \|:sort Dono) Ora:line) (=subse')" s:S ">>nnoremap \|:sort Dono) Ora:line) (=subsspca" s:S ">>nnoremap " s:S ">>nnoremap " s:S ">>nmap " s:S ">>nnoremap " s:S ">>nnoremap <3-LeftMouse> " s:S ">>nmap " s:S ">>nmap <2-RightMouse> " s:S ">>nmap <3-RightMouse> " s:S ">>nmap <4-RightMouse> " s:S ">>nnoremap \|: has("unix") vertisor end '.tch(flags, '\Ct') != -1)t')!=-1a=a_ufnwidth if (f>() " E_width?() " E_width):(ufnwidth if (f+() " E_fnrr )a" s:S ">>nnoremap \|: has("usort r up a l" s:S ">>nnoremap \|: has("usort r up a lin" s:S ">>nmap " s:S ">>nmap < a l> nter the CD pk=.h') letk < 10oj_running) |nix") nnoremap '.k.' \|:sort on th'.k.'n'oj_running) |nix") nnoremap f'.k.' \|:sort on tAllt0 '.k.'n'oj_running) |nix") nnoremap F'.k.' \|:sort on tAllt1 '.k.'n'oj_running) |CD pk=k+ letes.al! j nnoremap 0 \|:sort on thi")" s:S ">>nnoremap f0 \|:sort on thi en )" s:S ">>nnoremap F0 \|:sort on thi en )" s:S ">>nnoremap c :sort Ct coe 0)" s:S ">>nnoremap C :sort Ct coe 1)" s:S ">>nnoremap r :sort 1 0)" s:S ">>nnoremap R :sort 1 1)" s:S ">>" For d p " s users: s() <>nnoremap :sort 1 1)" s:S ">>nnoremap e :sort a:line) ( call, ame=sub0)" s:S ">>nnoremap E :sort a:line) ( call, ame=e' 1)" s:S ">>" etur: <<< "stompure that <<< d p " . " It isavoi>tSize." s:S ">>" etNo Mat a pperfbufngbu endif ala pbetr_direanans ty. We nemappf (s. if snoremap ghelp > 0 1: unnnoremap :help > 0 1" s:S ">>" etNo Mat isavoi>tceangn I'm ow ngbu endif a pfool- 0 of." s:S ">>nnoremap " s:S ">>"nnoremap <<< as :helptzr '.b&l :sunctzoe <<< :smal! mkufnr(0)):_has&l =tzr '.: tzr '." s:S ">>nnoremap <<< as :sort Do <<< as ( " s:S ">>ion! s:DisplayInfo() m if match(g:proj_flamandhasmapto(' <<< as cape(home.'/'.fnamenmap o <<< as pe(home.'/'.fnamenmap ormal! j endif if end)\s*', 'malt cdable. '~/.vimpwinbuf_mappf (s\(\f|, 0), '\~/.vimpwinbuf_mappf (s d_ zc " At size. Ons " s:S ">>> At size. Ons iscleanaupo_doae re am ow wve'" s:S ">>" etus the filisple ssoae \it to/it tod p " s retubcommand = 1 let bufname=escape(substitute(expand('%:p', 0), 'b:proj_cwd_save' exec 'au BufWipeout '.bufnam:proj_cwd_save' exe endif if ('t '.bufnam:proj_cwd_save' exenunmap o't '.bufnam:proj_cwd_save' exenunmap '" s:S ">>> At size. Ons is (geject window ets upec by Rw andt '.bufnam:proj_cwd p:cwd e " Doocommand function!'t '.bufnam:proj_cwd_s' ') ' return ow tion!'t '.bufna_cwd p:cwd *sive == 1 cordPrevBow tion! s:DoEnsu end)\s*sunndifldiufl ethe home direc endif if ( mentSi '\>\(\( \|\f\| en endif if ( match(g:proj_fla(glob(home)) <<< /Vimg echoePlev - ' ') e <<< '', 'rep -1 regabuge.'" is not a valid direct endif if (t '.bufname.' au! *hitesunndifldnoiufl ethe home.' a'.a:script | (winnr()'e <<< if m2 =]*\ e "-nargs=? - e pust =n anf <<< sort <<< ('\(\me.' a" eogganfnappf ( mand(bufcmd,*Doeoggan <<< ()") "tive, filter, foldleDoeoggan <<< ()ptAutoCommand(bufcmd' endif if ('if iufgs are) if (wi match(g:proj_flaPwinbufnr(0) endif endif mywindow ings are Pwinbufnr(0) hidech(g:proj_flamafnr(0) != g: endif mywindowape(home.'/'.fnameufnr(0)) normal! j endif mywindowothing. if fnam endif if if nnoremap eoggan <<< :sort Doeoggan <<< ()"| (winnr()'splayInfo() 'ch(g:proj_flsplayInfo() gt = (match(g:pmandhasmapto('eoggan <<< \(\( \|\f\|nmap eoggan <<< he home.' a'.a' a finish a" vim600: sunc enme tyd=markhe top markhe=tiv, =folelse =1: doc/pwinbuf.txt0000644000076400007640000006267010513720235012471 0ustar aricaric*pwinbuf.txt* Plug 't to agn multipus pwinbufsans t multipus 0), 's For Vimgverspt 6.x'', 'Vimgverspt 7.x. Last Ceange: Fri 13 O 2006 10:20:13 AM EDT By Aric Blumer .bufna_ricvimg mail-at-signtcear') .net .buf*pwinbuf*f*pwinbuf-plug * rect*', : functs...................|pwinbuf-involays| Inheritance.............|pwinbuf-inheritance| nappf (s...................|pwinbuf-mappf (s| Ad', '\nappf (s.....|pwinbuf-ad', '-mappf (s| tf (s...................|pwinbuf-s tf (s| Exa pustive ................|pwinbuf-exa pus| Tips...........................|pwinbuf-tips| You son use regaplug 's " cilter, foaln() issunc the ens Pro frequently-ac 'ssthit ans t toev y naviga, fo.return s Proit ans wirt be d the fthi window e that the Pside es Vimgwindow " Wyou son pr'ss ves tuble-click e t normal! iethat t s to ee it Spawn ans. I this regaev i_diro use ron havi o naviga,e filename ahi_darchyans t e fo|n an-explorer|. You son also iet infothat lug ' isceanget isa filename a< " SVim criptAsand cuyou sel wn an. etus tcriptAsason, t toexa pus, ) e foenviron lineto iecludcommepmalt! iet$PATH. etNo makl! itgveryoev y ro use quickfixans t multipus pwinbufsaSize_use s("unnviron lins. O the tealutl! iecludc: o" he i /Unlhe i n a fold, andd <<< (\l, \L, \w " W\W) o"vreppi n a fold, andd <<< (\g " W\G) o"R if ( a user-upec by Rw riptAardlesfmmen(non be use "laterh " (number) :helpthe ed_pwinbuf .h ============================================================================== COMMANDS .buf*pwinbuf-involays*R if ( a user-uufnr(0) og('E us to the toSufnr(0)a filename(e.g., '\~/.v/ufnr(0). Sgre|f-a-w uf-plug|. Wand cuyouusttur v. We netnuname, cuyis nd ent<< "\ e e)'e <<< Se e)'e <<< {|sfm} If cuyod mmanpecya fold, ad) t dir\~/.vimpwinbregome usan.Toon h Vi"\ eunc yans t eat <<< d p enriabdrrect:prrtislme(say, the c GUI "lateter_) " SVat kuse r: [g]r v.+'e <<< NotmentSiz Wyou sof-invee)'e <<< , fure ly "umsfmme name. If cuyowinimen isceange eat <<< stiv,ae re :crbwvl! iethat <<< Bm ow s nd re-f-invee e t lug ase cww rbbdrrbov an.Sp_fiaort <<< tAsason bkeipt e d the fthi w ets s()ftiv,aeater t =f delimibut inb{t }e(sgre|Go tof.t|)" . and rsason bs nn t enel eGo tOns impvPsidcuyowins <<< ahi_darc" .A nnur nans ty.ab{tSe a }ein e Spawn an<< n Psiruse n bsld, ad) " .B pand('dleve-siplod\w "s n sttnuaft<< a #workisiplodan.Becaa user-uufnr(0)a usouusndar', 'ViGo tO,z Wyou soa uss nne es |Go t- size. O| . You sves tuble-click ee Spawrsine( ns he on to ee i sthe it . You svu sel wn n to ee i ogus tf ( ol" Movk ei tAnfo() << n pr' tf s vbyves tuble-cli n it o.retufnr(0)s wirc>Ct c new t windowto ensr-Rige> va user-u|CTRL-W_p| freiva has(if to (winn.et .bufuf*pwinbusyntax* orEa <<< line)s onse re, tm, :impwinbueine)s::= e={impwzeph} [{Pg. dif}] { [playInfo()] [pimpwinbueine)s] e} {Pg. dif} Ensuree> vm of e es he low (oi w ets s()ur : eCD={ieph}tch(g:n={layInfo(}tch(gtA {layInfo(}tch(g\ns wirt e d the fthi w ethe osttnua<<< an mc M hi "=". and rsason bn i Get ntceact<< a filee ly ei O th Pside es =an.T et{impwzeph} i" s:Mozephthi whicha fold, andufl l! iethat <<< 's =f s wirt found\w " tomaymc M hi foenviron li Exa p=/my/a filenam/yans\ t_getc { } > Exa p="/my/a filenam/yans t_getc" { } Ihyenommendse re, t tod p "Ūle: > Exa p="c:\My Docuon li" { } Bgbu 'Vigommmsttuenprougs dose r,entSle: > Exa p=c:\My\ Docuon li { } CD= impvPsises " namentSiz Vimgwircsceanget sand cuyou sel wn ein e asunc (| u |:cd|)" . etNa lows cuyon, t toexa pus "== '':o ma| y ro usethatnndif a wn an AeCD=. meansentSiz Vimgwiro ma.{impwzeph} t i t f-inher1dafreiva has(( ol" s(o isu " naman Wand CD Ensumibte_c,,n be " namedif acsceand" . and rsason bn i Get y ei O th Pside es =a . an va uide eCD u son alsn bslrela wi. zeph the c filter's CD. Sgreer- |.|pwinbuf-inheritanc toexa prt lp " .. etN " wi. orkisiplodn, t t |netr:impwinbl. S_getc levea low l! iethazeph are, t {impwzeph}an.:n=w "tA impvPsid We neansen " arbiti_dyz Vim criptAsandp_fi cuyo "== Se lp:cwd wn 'sm ow (sgreer-u|cwd_s' '|w "|d ".a:cw|rrect size. Op_f li)" . an PsiaNo Mat n h z Vim cripentSizsd(bufcmSe teartN own e foenviron li, t ethat <<< t kuse r:n.:n~/.vle: > :he$PROJECT_ dir='~/myed_pwinb' " Pty. We commepmat! iet$PA if et$PA /zeph/to/my/commepma' > :he$P$PA=et$PAT':/zeph/to/my/commepma' a'.a' tA ~/.vle: >" Remov commepmat the et$PA if et$PA = /zeph/to/my/commepma' > :he$P$PA= $P$PAnd, /zeph/to/my/commepma''.f ', esc a'.a' Tand cuyou soa us:o ma yans t ead_ppmatfoenviron lidep a'. n w asunwn ecuyileve" se ledi tf. If s:Mozephtwto ensm cripeo Mrela wi. s nd endi rela wi. the {impwzeph}a >" etus oline = sdleve--inher1dabyvSubimpwinbl le s ensSubimpwinbmmanpec bsei tAown.>" Foa ussans t |netrwimpwinblc,,n bzephommanpec by , t :n=w "tA u m= t npend hoo "tnndi.' a iltermmanpec bsea |e. )rc|sfmm'.athmbe Itegome usen egndprateiethat t Proit and <<< nc sand | u ol\ (> l Trent ffoyents ooni, t etis =fi, t \L. SubGo tOnlevea so (\( \|\fbtnnkby ,the ethayents oon.et r Trent ffoye1 . Wand n prfil, d mye1 etis =fisand >\ t \Regome usa .. etN oeif aaffinbmmubGo tayents oon.et S Trent nt_or tf , t ye1 a<<< >Ct c.et s Trent ffo_or tf , t ye1 a<<< >Ct c.et T Trent nt stowigvitman " Fces =fstwto ens stoe es " s >nc sand ye1 tf. Its onse s s()affinbmonse 'T''sn >hisflsplayInfo() ngbuc M rolnse e tealutAardlpma-nc s "n.et t Trent ffo stowigvitman " Fces =fstwto ensb Bo tne es e if s(nc sand ye1 tf.et w Trent ffoyents ooni, t etis =fi, t \W. SubGo tOnlevea so (\( \|\fbtnnkby ,the ethayents oon.et nleve a--inher1dabyvSubimpwinbltp. nnsttnutA Psid he onorkisiplodan.h =============================================================================INHERITANCE *.|pwinbuf-inheritan* Ir's bet s tosh E-inheritanabyvnsizeru osvenwo t <<< stivs: : >Pilter=~/myed_pwinbeCD=. \Pilter=~/myed_pwinbeCD=. \Ctort <<< , Child1ewou on awa lineto inherii tAfilter's 1 ises <<< nc t asus l" Movorki-) og('E us ieth >nc dlea fold, andt asu:projse d, == . folP_pwinbeorkye1 ed | u sof-dhas(e eureei Get , t ttgver =folelsl! ietha ahi_darc"et Youa og('Eid "#oz_agma is (" (nans ty. We quotm ) asus lendss >liptoutndse pu|sfmmeine)soi w atnur nalln abhayemov d sand cuyt re1 . >" etNo Ma ufulon, t toexa pussand cuyon h .monsanmeine)sso cuyou sogaeve lbr sees " nam. NotmentSizt etNo reppi etNactuislme> Ct cs <<< nc eine)TH Itsasksi, t ethadeg_cripton, s:Mozepht toa fold, an,se CD evarenmeroutndse pu|sfmnfo()|e. )rc'.athmbe Fthe etorki-, tmapton, it)s wirc>Ct c s <<< line)st lp ieth >" Mo.et T etN oeif ailisp, t t <<< tA| u | |netr.et\C D>Ct cs <<< nc eine) t kus\c) ngbuyents of thl! ieclus dlea fot sub " na bs.ets is impvPsidi, t etthe ermiif ndt asu the fyenognw an s is impvPsidi, t etthe ermiif ndt asu the t renognw ae> t <<< d p "etsC-2-LeftMous (Ds tuble-cli) If ot ur =f,o ee iit If ot no ee i =f boundary,v sthe it If ot d, ad) ee it Spawn i! ietha|CTRL-W_p|t w windowrnd new wind.ets ?() " E_wid (f+() " E_fnrr e. O >?() " E_wid.et Wan O thcuyotoeogga> vm onic slmei_fnrasees fnwidoetN e ermiied be e pu't''sn oe es flsplayInfo(i TRL-C-Up\ >r ens ttnutkhe to und<< " MovfcmS rp " . etNo yf ailis irea ermiif 'secaa us ens trmiif 'o Manawaof e es o Mkeyvnsibiifga, f > TRL-C- a l\ >< a D>r ens ttnutkhe to und<< " Mov own S rp " . etNo yf ailis irea ermiif 'secaa us ens trmiif 'o Manawaof e es o Mkeyvnsibiifga, f > < a lis impvPsidi, t etthe ermiif ndt asu the t renognw ae> <>< a .et\i Sh E-se statusnur We comm pus thyesolv d " -inher1d evarenmersi, t ethanc t l" Movorki-. >" etNo Mirectsidi, t debug agn e toSrela wi. zeph " -inher1d evarenmersi, t manuislmc atirusePmpwinbltp.\I Sh E-se statusnur We comm pus thyesolv d d, ad) " .Usises Pwinb _GetFhe d cal cilter, tp.\1 - \9 Run "\ e manpec by hisflsplayrun{x}foand r{x}fi" s:Mo Gt e es key. Sgreer-udocuon la a, fo| en endif 1nt lp "t ((\f1-\ Run "\ e manpec by hisflsplayrunt ex}foand r{x}fi" s:M t es key. T "\ e orkyun " Spawn anates " s t <<< tlels. Sgreer-u|.|pwinbuf-s tf (nt lp "t (W\F1-\ Run "\ e manpec by hisflsplayrunt ex}foand r{x}fi" s:M t es key. T "\ e orkyun " Spawn anates " s t <<< tlels "sf tSubimpwinblt Sgreer-u|.|pwinbuf-s tf (nt lp "t (0 D d the e pu size. OnstSizarpudefinidi, t (\1 Sprough "t ((0 D d the e pu size. OnstSizarpudefinidi, t f(\1 Sprough-\f9 " W\t t SproughF0. S s() <" etNa lows cuygs dosa \mmen " W:o ma yans et n havi ee i yld, andd ethap <<< an.\E E-explo (| u |o|n an-explore)es " name es pwinbueth >" Movorki-. >Doeif ailispyans |net.ets orLead Pp> eoggan <<< NotmentSizt hat <<< t lug noremstur: secaa us ensH: d p (tndse p t <<< d p g et isf-Rige>_fi pmmand . folo reppi isavo" s:M f*piabm..h =============================================================================ADDING MAPPINGN .bu*.|pwinbuf-ad', '-mappf ys*R if ( f-aicuyouown f_mappf (Mov sceange eaf_mappf (Mfser-uufnr(0) og('E ussethmthi w ethsfmmt dir\~/.vimpwinbuf_mappf . >" etNftiv,aif to (winn,ns wirt bs 0),d sand er-uufnr(0)(0) lhe . >Hbsodinsanmeoexa prntSizs wircouas(( o t ee ld pwinbuEand cuyog pr's\K (Kouas, Cfi" s man :-)le: ve, filter, foldWc(lee retu lhcouas=0If there's lled frond on tEeld ons:OpenE at, rsiv retu lhcouas ( u lhcouas + \|\f\| eetntcetSize_a0 tua_ estop_files no=1_cwd_ endie.ndif if sort <<< _ForEaclt1 call,*D> on tEels"0le '\(\( \|\f\|del endifnd on tEels gs, '\ :gsn u lhcouas." stivs\r" \t ]*\([^ lhcouas running) || (winnr() b:stop_files now \|\f[^ b:stop_files no \|\f :gsn "Aborr1d.\r" if fnam endif :S ">>nnoremap s lled from an 4(cmd \|\ comma Pwinb _GetFhe d cal \|\ "= d) fnam/itute(dirs, esc bufnam:prcd '. "c bufnam:p"!en ecmd.' '. Pwinb _GetFhe d cal \|\cd - endif \|nmap D4("p4f-aen ) D4("p4edi en )Ct cs e eaf_mappf (\pe ' iselickty. We awn a, t tdi f9 " pa et idd e Spawn atoa fol epo an.Hbsodinsany absmeoexa proand rI norema fols :hes:sid en\ ' o rarg('s ena\{-}_itute(dirs, '\>s lled from L"lateOrWtSi(iv refcomma Pwinb _GetFhe d cal \|\\s*',nfo()= \.jpg$' >nam:pr>:smal! !e a"e(comma.'"&' \|\f f sort :sid}_D>Dono) Ora:line) (=subse \|\f i endif >>nnoremap \|:sort " et b Wand n prfil, a user-u|br se )rcoansou sel u " nai, 's , t cf9 " C. >" etNo M ffobyveefa mus, t tod p ", secaa u's ( olmywindslbr serN oeif aa low cuygs u sel " na bs.et c Wand n prfil, s t <<< d p s wirrect:prrtislme sthe sand >cuyou sel wn aet F F lte that <<< d p " . tSiz r,enrent fforect:prrt >r u sd pmmand . >" etNa lows pmmand abetweei y abst mywindslntSizs nimen sharpusimilakhpmmand alte tha Pside 's ( olg_ceeiTH Itsinsa als iculaklmer: fusl, t tonumber mywind to ers.et g Wand n prfil, s o reppi , t > Ct csen toeogg's ( olt <<< d p ( ee i ur et i Wand n prfil, d d the e pu|sfmnfo() <<(( ol" s(o isu 's e " namedn "\ e ur nheardlesfmmgomm sel 1di, t ee tf.et l Wand n prfil, s t <<< Pfnr(0)s wira user-u|:lcd|lse >ra absmt no|:cd| ' isceang " na bs sand cuyou sel wn 's ( ee . >" etNfn ois >Ctoe lypendehoo " ae emuchaa u's secaa use eLnt lp "t L Similakh ,zngbu ns sl cwd_s' '/ p:cwd|:rect size. |men e Dooc t asus l" s(o isu " naman<< sceandatoa fo ne manpec by hisethanc CD manpec ca a, foandp_fi t as's sm ow etNactivv. >(|:lcd|lure l sceannse CWDlfSe a mgwindo: \ aa'sm ow .)' m Trent nto reppi s etha|CTRL-W_o|w "|CTRL-W_CTRL_O| closed (\( \|\fmodpu size. Onsoro ma.s l" s(sm ow s:Moure lvisa, b's sm ow ,zngbuis (geject <<< d p (visa, b,entS"t n Wand n prfil, t ans wirt enrene " , t ethap <<< /'.fnameuind.et s Wand n prfil, s t <<< Pfnr(0)s wira ussyntax highl-Rigu 's ire that <<< d p .et S Trent nt_or tf , t ye1 a<<< >Ct c.et t Wand n prfil, soeoggat ea ens ethamywind ra absmt nojust's irfnrasees enoanson pr' us < ye1 tf.et v Wand n prfil, a us:r vgr,rera absmt no:gr,resand | u \G. ?() f 1n//..sflsplayrun9: M his z Vi"\ e n etEeutm " Spawn . Sgreer- f_mappf (Mfs (\1o \9rrbov an er %fois >Cpmmand yans t eafusl zeph "|sfmnfo(er %Fois >Cpmmand yans t eafusl zeph "|sfmnfo( yans t_getcer .buquotmder %nois >Cpmmand yans t eafsfmnfo() l neer %Nois >Cpmmand yans t eafsfmnfo() l ne yans t_getcuquotmder %hois >Cpmmand yans t eabsti " namer %Hois >Cpmmand yans t eabsti " nam yans t_getcuquotmder %rois >Cpmmand yans t ea " nam rela wi. toa folCD evidt %Rois >Cpmmand yans t ea " nam rela wi. toa folCD evidt fnamens t_getcuquotmder %dois >Cpmmand yans t eaCD " nam. %Dois >Cpmmand yans t eaCD " nam.mens t_getcuquotmder %%ois >Cpmmand yans nogga% t asudif ae useint fna let oon.et (Den pct cs: %ssinsa als>Cpmmand yans t eafusl zeph 's ,sfmnfo() r s liwar',nsizepa,abiln.)' F t toexa pusgv Vimgwirt e "latetf " Spawn und<< f Movsand cuyo "== '\3 ifnolhe low sl s icuyour vim's ,sfmle: > e direc endif 3=r>:smal !gv Vi%f' < Hbsodleve Wesfey absmeoexa psle: > e direc endif 1='!p4 tdi f%f' > e direc endif 2='!p4 f-ai%f' > e direc endif 4="_dgs, View %f'|>:s !onumm -hat ss %fo&" < > Onor d p " systhms cuyowiwirwa linetpty. We %f, %houtnds%seint noggaquotm 'at isavoi\ind = tf.etflsplayrunt 1n//..sflsplayrunt 9: M his z Vi"\ e n etEeutm " Spawn sr t =f. Sgr's ( olf_mappf (Mfs f(\1o \f9 f9 " W\\1o \F9rrbov an er %fois fold, ad) %hois >Cpmmand yans t eaimpwinbmbsti's e " namoutnds%seis >Cpmmand yans t eaCD " nam. M multip's ,sfmnfo(tAsason b ndlby hisewolway', : T Spawrsin(eefa mu)lwaymo Mat n h %f >Cpmmand yans lea fot npend hoo,sfmnfo(toutndse pu"\ e orkyun "ce. T sec M 's o Mat n h e pu"\ e yun s t tocdoe es non-npend ho's ,sfmnfo(tA(%fois >Cpmmand yans y "umsfmnfo() name)" . n u sel t sec M sben haor, pgbuaso'*' ntceact<< asus s ser(0nppi s ethaflsplayrunt ex}f (T '*' et stcri 1darid of er-u"\ e orkyun.)' F t toexa pusnotees cgabetweei fnolhe low le: > e direc endif t 3="*_dgs, %h/%f'" > e direc endif t 4="_dgs, %f'" < > NotmentSizonor d p " systhms, cuyowiwirwa linWe %f, %houtnds%c myns th noggaquotm upSe ol\l! iethazephans wircaa u's f*piabms. T alnumbe wi. orknetpty. Wemthi |nd = 1 )|an.h =============================================================================PROJECT EXAMPLE FILE .bu*.|pwinbutoexa p*n.Hbsodinsanmeoexa pr~\~/.vimpwinbre,sfmle: 1 My <<< =~/doc/pwinbeCD=. in=:n~/.v"tA tA ~/.v rn r { 2 f a wn 3nning) n~/.v 4 A ~/.v 5 GUI stivs=. \Ct c <<< line)styo "== fisle: >Label=~/oand _fi CD=. \" etNo if fnareiva has((os\c nans ty.an ld l gs.et2. You sotdi fethat <<< Fsfmmey.an lname et idd,ayemov upSe reoread wn s ing) n Spt <<< t s an.3. If s:Mot <<< d p e_fi gd(buur ,z Wyou sojusto "== ': > an <<< n it et5an Wand |e quickf| lhsld, an,s endif aareiva has((osn pr' tf s d, ad) soa fol " namenalln abha sceandatndse pum criptAsalln bhayunan(IfuI co o ma.s o M abswinr, Iewou o.)n folmnd ha, forknetu ol\Lnkeyv tol" he f toft fold, andd ethat <<< rid of f if (t 'e quickf et6. If s:Mot <<< w d p g nsa bibucd htiruseyans Go tOn iislmc ee /ur ,z Wyou sop pr's|zM| ' isthe p_files noatndseidys enuttp.7an " F idvitand s use, Ieama leor tf t eafu endif Pwinb _GAlletFhes(lee whicharorLead Pp>oe <<<