doc/project.txt0100644000425700003600000005156707401746733013207 0ustar aricalchemy*project.txt* Plugin for managing multiple projects with multiple sources For Vim version 6.0. Last Change: Fri 30 Nov 2001 01:20:11 PM EST By Aric Blumer Aric.Blumer@marconi.com *project* *project-plugin* Contents: Commands...................|project-invoking| Inheritiance............|project-inheritance| Mappings...................|project-mappings| Settings...................|project-settings| Example File................|project-example| Tips...........................|project-tips| You can use this plugin's basic functionality to set up a list of frequently-accessed files for easy navigation. The list of files will be displayed in a window on the left side of the Vim window, and you can press or double-click on filenames in the list to open the files. I find this easier to use than having to navigate a directory hierarchy with the |file-explorer|. You can also instruct the Plugin to change to a directory and to run Vim scripts when you select a file. These scripts can, for example, modify the environment to include compilers in $PATH. This makes it very easy to use quickfix with multiple projects that use different environments. Other features include: o Loading/Unloading all the files in a Project (\l, \L, \w, and \W) o Grepping all the files in a Project (\g and \G) o Running a user-specified script on a file (can be used to launch an external program on the file) (\1 through \9) o Running a user-specified script on all the files in a Project (\f1-\f9 and \F1-\F9) o High degree of user-configurability o Also works with |netrw| using the XXXX://... notation where XXXX is ftp, rcp, scp, or http. All of this is specified within a simple text file and a few global variables in your vimrc file. You must set 'nocompatible' in your |vimrc| file to use this plugin. You can stop the plugin from being loaded by setting the "loaded_project" variable: > :let loaded_project = 1 ============================================================================== COMMANDS *project-invoking* You can use the plugin by placing it in your plugin directory (e.g., ~/.vim/plugin). See |add-global-plugin|. When you start vim the next time, you then enter the command > :Project or > :Project {file} If you do not specify the filename, $HOME/.vimprojects is used. To have Vim come up with the Project Window enabled automatically (say, from a GUI launcher), run Vim like this: [g]vim +Project Note that you can invoke :Project on only one file at a time. If you wish to change the Project File, do a :bwipe in the Project Buffer, then re-invoke the Plugin as described above. Several Projects can be kept and displayed in the same file, each in a fold delimited by { and } (see |fold.txt|). There can be any number of nested folds to provide you with a Project hierarchy. Any line without a { or a } in the file is considered to be a filename. Blank lines are ignored, and any text after a # is ignored. Because the plugin uses standard Vim folds, you can use any of the |fold-commands|. You can double-click on the first line of a fold to open and close it. You can select a file to open by putting the cursor on its name and pressing or by double-clicking on it. The plugin will create a new window to the right or use the |CTRL-W_p| equivalent if it exists. *project-syntax* Each Project Entry has this form: project_entry ::= ={projpath} [{options}] { [ filename ] [ project_entry ] } {options} is one or more of the following (on the same line): CD={path} in={filename} out={filename} filter="{pat}" flags={flag} Note that a project_entry can reside within a project_entry. This allows you to set up a hierarchy within your Project. The will be displayed in the foldtext and cannot contain "=". There can be no space character directly on either side of the =. The {projpath} is the path in which the files listed in the Project's fold will be found. If the path is a relative path, then the plugin constructs the whole path from the Project's parent, grandparent, etc., all the way up the hierarchy. An outermost project_entry must have an absolute path. See the |project-inheritance| example below. CD= provides the directory that Vim will change to when you select a file in that fold (using |:cd|). This allows you, for example, to enter |:make| to use the local Makefile. A CD=. means that Vim will make {projpath} or its inherited equivalent the current working directory. When CD is omitted, the directory is not changed. There can be no space on either side of the =. The value of CD can also be a relative path from a parent's CD. See the |project-inheritance| example below. This directive is ignored for |netrw| projects. in= and out= provide the means to run arbitrary Vim scripts whenever you enter or leave a file's buffer (see the |BufEnter| and |BufLeave| autocommand events). The idea is to have a Vim script that sets up or tears down the environment for the Project like this: in.vim: > let $PROJECT_HOME='~/my_project' " Put the compiler in $PATH if $PATH !~ '/path/to/my/compiler' let $PATH=$PATH.':/path/to/my/compiler' endif out.vim: > " Remove compiler from $PATH if $PATH =~ '/path/to/my/compiler' let $PATH=substitute($PATH, ':/path/to/my/compiler', '', 'g') endif Then you can use :make with the proper environment depending on what file you are currently editing. If the path to the script is relative, then it is relative from {projpath}. These directives are inherited by Subprojects unless the Subproject specifies its own. For use with |netrw| projects, the paths specified for in= and out= must be absolute and local. filter= specifies a |glob()| file pattern. It is used to regenerate the list of files in a Project fold when using the \r (r) map in the Project Window. The filter value must be in quotes because it can contain multiple file patterns. If filter is omitted, then the * pattern is used. There can be no space on either side of the =. A Subproject will inherit the filter of its parent unless it specifies its own filter. flags= provides the means to enable/disable features for a particular fold. The general mnemonic scheme is for lower case to turn something off and upper case to turn something on. {flag} can contain any of the following characters: flag Description ~ l Turn off recursion for this fold for \L. Subfolds are also blocked from the recursion. r Turn off refresh. When present, do not refresh this fold when \r or \R is used. This does not affect subfold recursion. S Turn on sorting for refresh and create. s Turn off sorting for refresh and create. T Turn on top gravity. Forces folds to the top of the current fold when refreshing. It has the same affect as the 'T' flag in g:proj_flags, but controls the feature on a per-fold basis. t Turn off top gravity. Forces folds to the bottom of the current fold when refreshing. w Turn off recursion for this fold for \W. Subfolds are also blocked from the recursion. Flags are not inherited by Subprojects. Any text outside a fold is ignored. ============================================================================== INHERITANCE *project-inheritance* It's best to show inheritance by comparing these two Project Files: > Parent=~/my_project CD=. filter="Make* *.mk" flags=r { Child1=c_code { } Child2=include CD=. filter="*.h" { } } Child1's path is "~/my_project/c_code" because ~/my_project is inherited. It also inherits the CD from Parent. Since Parent has CD=., the Parent's cwd is "~/my_project". Child1 therefore inherits a CD of "~/my_project". Finally, Child1 inherits the filter from Parent. The flags are not inherited. Child2 only inherits the "~/my_project" from Parent. Thus, the example above is exactly equivalent to this: > Parent=~/my_project CD=. filter="Make* *.mk" flags=r { Child1=~/my_project/c_code CD=~/my_project filter="Make* *.mk" { } Child2=~/my_project/include CD=~/my_project/include filter="*.h" { } } (For a real Project, Child1 would not want to inherit its parent's filter, but this example shows the concept.) You can always enter \i to display what the cursor's project inherits. ============================================================================== MAPPINGS *project-mappings* Map Action ~ \r Refreshes the Project fold that the cursor is in by placing in the fold all the files that match the filter. The Project is refreshed using an indent of one space for every foldlevel in the hierarchy. Note that this mapping is actually r, and the default of || is \. This does not work for Projects using |netrw|. \R Executes \r recursively in the current fold and all folds below. This does not work for Projects using |netrw|. \c Creates a Project fold entry. It asks for the description, the path to the files, the CD parameter, and the filename |glob()| pattern. From this information, it will create the Project Entry below the cursor. This does not work for Projects using |netrw|. \C Creates a Project fold entry like \c, but recursively includes all the subdirectories. Select a file to open in the |CTRL-W_p| window or in a new window. If the cursor is on a fold, open or close it. \s Same as but horizontally split the target window. s is provided for those terminals that don't recognize . \o Same as but ensure that the opened file is the only other window. o is provided for those terminals that don't recognize . \v Same as but only display the file--the cursor stays in the Project Window. <2-LeftMouse> (Double-click) If on a closed fold, open it. If on an open fold boundary, close it. If on a filename, open the file in the |CTRL-W_p| window or in a new window. Same as . Same as . Increase the width of the Project Window by g:proj_window_increment or toggle between a width of g:proj_window_width + g:proj_window_increment and g:proj_window_width. Whether you toggle or monotonically increase the width is determined by the 't' flag of the g:proj_flags variable (see |project-flags|). Note that a Right Mouse click will not automatically place the cursor in the Project Window if it is in a different window. The window will go back to the g:proj_window_width width when you leave the window. Same as \ Move the text or fold under the cursor up one row. This may not work in a terminal because the terminal is unaware of this key combination. is provided for those terminals that don't recognize . \ Move the text or fold under the cursor down one row. This may not work in a terminal because the terminal is unaware of this key combination. is provided for those terminals that don't recognize . \i Show in the status line the completely resolved and inherited parameters for the fold the cursor is in. This is intended for debugging your relative path and inherited parameters for manually entered Projects. \1 - \9 Run the command specified in g:proj_run{x} where {x} is the number of the key. See the documentation of g:proj_run1 below. \f1-\f9 Run the command specified in g:proj_run_fold{x} where {x} is the number of the key. The command is run on the files at the current Project level. See the |project-settings| below. \F1-\F9 Run the command specified in g:proj_run_fold{x} where {x} is the number of the key. The command is run on the files at the current Project level and all Subprojects. See the |project-settings| below. \0 Display the commands that are defined for \1 through \9. \f0 Display the commands that are defined for \f1 through \f9 and \F1 through \F0. Same as \F0. \l Load all the files in the current Project level into Vim. While files are being loaded, you may press any key to stop. \L Load all the files in the current Project and all Subprojects into Vim. Use this mapping with caution--I wouldn't suggest using \L to load a Project with thousands of files. (BTW, my Project file has more than 5,300 files in it!) While files are being loaded, you may press any key to stop. \w Wipe all the files in the current Project level from Vim. (If files are modified, they will be saved first.) While files are being loaded, you may press any key to stop. \W Wipe all the files in the current Project and all Subprojects from Vim. (If files are modified, they will be saved first.) While files are being wiped, you may press any key to stop. \g Grep all the files in the current Project level. \G Grep all the files in the current Project level and all Subprojects. \e Set up the Environment for the Project File as though you had selected it with . This allows you to do a \e and a :make without having to open any files in the project. \E Explore (using |file-explorer|) the directory of the project the cursor is in. Does not work with netrw. Note that the Project Plugin remaps :help because the Help Window and the Project Window get into a fight over placement. The mapping avoids the problem. ============================================================================== ADDING MAPPINGS You can add your own mappings or change the mappings of the plugin by placing them in the file $HOME/.vimproject_mappings. This file, if it exists, will be sourced when the plugin in loaded. Here is an example that will count the number of entries in a project when you press \K (Kount, C is taken :-): > function! s:Wc() let b:loadcount=0 function! SpawnExec(infoline, fname, lineno, data) let b:loadcount = b:loadcount + 1 if getchar(0) != 0 | let b:stop_everything=1 | endif endfunction call Project_ForEach(1, line('.'), "*SpawnExec", 0, '') delfunction SpawnExec echon b:loadcount." Files\r" unlet b:loadcount if exists("b:stop_everything") unlet b:stop_everything echon "Aborted.\r" endif endfunction nnoremap K :call Wc() ============================================================================== SETTINGS *project-settings* You can set these variables in your vimrc file before the plugin is loaded to change its default behavior g:proj_window_width The width of the Project Window that the plugin attempts to maintain. Default: 24 The Project Plugin is not always successful in keeping the window where I want it with the size specified here, but it does a decent job. g:proj_window_increment The increment by which to increase the width of the Project Window when pressing or clicking the . Default: 100 (See |project-mappings|.) *project-flags* g:proj_flags Default: "imst" Various flags to control the behavior of the Project Plugin. This variable can contain any of the following character flags. flag Description ~ i When present, display the filename and the current working directory in the command line when a file is selected for opening. l When present, the Project Plugin will use the |:lcd| command rather than |:cd| to change directories when you select a file to open. This flag is really obsolete and not of much use because of L below. L Similar to l, but install a BufEnter/Leave |:autocommand| to ensure that the current working directory is changed to the one specified in the fold CD specification whenever that buffer is active. (|:lcd| only changes the CWD for a window, not a buffer.) m Turn on mapping of the |CTRL-W_o| and |CTRL-W_CTRL_O| normal mode commands to make the current buffer the only visible buffer, but keep the Project Window visible, too. s When present, the Project Plugin will use syntax highlighting in the Project Window. S Turn on sorting for refresh and create. t When present, toggle the size of the window rather than just increase the size when pressing or right-clicking. See the entry for in |project-mappings|. T When present, put Subproject folds at the top of the fold when refreshing. g:proj_run1 ... g:proj_run9 Contains a Vim command to execute on the file. See the mappings of \1 to \9 above. %f is replaced with the filename, %h is replaced with the home directory, and %d is replaced with the CD directory. (Deprecated: %s is also replaced with the filename for backward compatibility.) Use %F to put in the filename with spaces quoted. For example, gvim will be launched on the file under the cursor when you enter \3 if the following is in your vimrc file: > let g:proj_run3='silent !gvim %f' < Here are a few other examples: > let g:proj_run1='!p4 edit %f' let g:proj_run2='!p4 add %f' let g:proj_run4="echo 'Viewing %f'|sil !xterm -e less %f &" < On Windows systems you will want to put the %f, %h, and %d in single quotes to avoid \ escaping. < g:proj_run_fold1 ... g:proj_run_fold9 Contains a Vim command to execute on the files in a fold. See the mappings of \f1 to \f9 and \F1 to \F9 above. %f is the filename, %h is replaced with the project home directory, and %d is replaced with the CD directory. Multiple filenames can be handled in two ways: The first (default) way is to have %f replaced with all the absolute filenames, and the command is run once. The second is to have the command run for each of the non-absolute filenames (%f is replaced with one filename at a time). To select the second behavior, put an '*' character at the beginning of the g:proj_run_fold{x} variable. (The '*' is stripped before the command is run.) For example, note the difference between the following: > let g:proj_run_fold3="*echo '%h/%f'" let g:proj_run_fold4="echo '%f'" < Note that on Windows systems, you will want the %f, %h, and %c within single quotes, or the \ in the paths will cause problems. The alternative is to put them in |escape()|. ============================================================================== PROJECT EXAMPLE FILE *project-example* Here is an example ~/.vimprojects file: > 1 My Project=~/c/project CD=. in=in.vim out=out.vim flags=r { 2 Makefile 3 in.vim 4 out.vim 5 GUI Files=. filter="gui*.c gui*.h" { 6 gui_window.c 7 gui_dialog.c 8 gui_list.c 9 gui.h # Header file 10 } 11 Database Files=. filter="data*.c data*.h" { 12 data_read.c 13 data_write.c 14 data.h 15 } 16 OS-Specific Files { 17 Win32=. filter="os_win32*.c os_win32*.h" { 18 os_win32_gui.c 19 os_win32_io.c 20 } 21 Unix=. filter="os_unix*.c os_unix*.h" { 22 os_unix_gui.c 23 os_unix_io.c 24 } 25 } 26 } (Don't type in the line numbers, of course.) ============================================================================== TIPS ON USING PROJECT PLUGIN *project-tips* 1. You can create a Project Entry by entering this: > Label=~/wherever CD=. filter="*.c *.h" { } < Then you can put the cursor in the fold and press \r. The script will fill in the files (C files in this case) from this directory for you. This is equivalent to \c without any dialogs. 2. You can edit the Project File at any time to add, remove, or reorder files in the Project list. 3. If the Project Window ever gets closed, you can just enter > :Project < to bring it back again. (You don't need to give it the filename; the plugin remembers.) If you have the 'm' flag set in g:proj_flags, then you get the Project Window to show up again by pressing |CTRL-W_o|. This, of course, will close any other windows that may be open that the cursor is not in. 4. Adding files to a Project is very easy. To add, for example, the 'more.c' file to the Project, just insert the filename in the Project Entry then hit on it. 5. When |quickfix| loads files, it is not equivalent to pressing on a filename, so the directory will not be changed and the scripts will not be run. (If I could make this otherwise, I would.) The solution is to use the \L key to load all of the files in the Project before running quickfix. 6. If the Project window gets a bit cluttered with folds partially open/closed, you can press |zM| to close everything and tidy it up. 7. For advanced users, I am exporting the function Project_GetAllFnames() which returns all the filenames within a fold and optionally all its Subprojects. Also, I export Project_ForEach() for running a function for each filename in the project. See the code for examples on how to use these. ============================================================================== THANKS The following people have sent me patches to help with the Project Plugin development: Tomas Zellerin Lawrence Kesteloot vim:ts=8 sw=8 noexpandtab tw=78 ft=help: plugin/project.vim0100600000425700003600000014244107401015127013656 0ustar aricalchemy"============================================================================= " File: project.vim " Author: Aric Blumer (Aric.Blumer@marconi.com) " Last Change: Tue 27 Nov 2001 05:57:27 PM EST " Version: 1.0pre5 ©2001 "============================================================================= " See documentation in accompanying help file 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') let g:proj_flags='imst' " Project default flags 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 let b:maxwinheight = winheight('.') else silent! 99wincmd h 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 ">>> " 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 foldmethod=marker foldmarker={,} commentstring=%s foldcolumn=0 nonumber noswapfile shiftwidth=1 setlocal foldtext=ProjFoldText() nobuflisted nowrap 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.\{-}=\s*\(\f\|:\)\+' contains=projectDescription,projectWhiteError syntax match projectDescription '\S[^=]\{-}\S='he=e-1,me=e-1 contained nextgroup=projectDirectory,projectWhiteError syntax match projectDescription '{\|}' syntax match projectDirectory '=\(\f\|:\)\+' 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[0] == '/' || a:path[0] == '~' || a:path[0] == '\\' || a:path[1] == ':' return 1 endif if a:path =~ '^ftp:' || a:path =~ '^rcp:' || a:path =~ '^scp:' || a:path =~ '^http:' return 2 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 " Bug in Vim60: this next line doesn't work, but hopefully will in future. " It works reasonably well with the bug, but is not 100% accurate. if bufname('.') == bufname(g:proj_running) exec 'silent vertical new' else exec 'silent vertical split | silent! bnext' endif wincmd p " Go back to the Project Window and ensire 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('.') != g:proj_running return endif if !exists('g:proj_splitting') let g:proj_splitting=1 call s:DoSetup() " Ensure that all the settings are right if winbufnr(2) == -1 " We're the only window right now. " If n == winnr(), then there is no CTRL_W-p window " So we have to create a new one if bufname('#') == '' exec 'silent vertical split | bnext' if bufnr('.') == g:proj_running | new | endif else exec 'silent vertical new '.bufname('#') endif wincmd p " Go back to the Project Window and ensire it is the right width endif silent! wincmd H exec 'vertical resize '.g:proj_window_width unlet g:proj_splitting let g:mycounter = winbufnr('.') endif 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 echorr '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!', "&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!', "&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), '#.*', '', '') " Get rid of comments 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=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 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.' '.escape(fname, ' ') else silent exec 'silent '.a:editcmd.' '.escape(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(proje let lineno = lWe "~/my_project" from Path, don't prepend home 'souse> ,\n en" .We cessful i endidple filen let c_d = '.' silent exec 'silent '.a:editcma:edit ' ') if aendif " Extract any CD information scriptin let c_d = s:GetCd(a:inriptin(infoline, home) if c_d != '' && (s:Isriptin(inif (foldlevel(foldlin! curring no = lriptin(i"~/my_project" from Path, don't .riptin(i cful f If . I'.a:filn let c_d = '.' silent exec 'silenmmand(c_d) home) e''.expand'out, flagsexec 'silent vertical newugin .riptin(i if aendif " Extract any CD iGetScriptout(infoline, home) if c_d != '' && (s:Isriptinut(iif (foldlevel(foldlin! curring no = lriptinut("~/my_project" from Path, don't .riptiniles cful f If . I'.a:filn let c_d = '.' silent exec 'silenmmand(c_d) home) e''.ep') ', filter) ) if aendif " Extract any CD indif >> " s:OpenEntry2(line, iDoolutOrecmd, editdit0crimd1the filename uUs \f9 and a cltMouse>. .ndow getmt aut or close it. >> " s:RecursivelyConstruVim Liset g(xample sparojec, feualltdow appi' is sw appic-): > le ' is sw le c-): ! s:ConstructInfo(homeVim Liset g(xample sparojec, feualltdow appi' is sw appic-): > le ' is sw le c-): ! any CD iGetS i returnilename s=(foldlevel(t_filter | en endif any CD infChopt in the endif any CD inf Apdif ProFrom t cloful funclag} can cosivelwherevFrom ' Then oline = getlinelet p_' ilse neno) let p_' iname='.' i mn=0dx(xample sndif elserunn i call s:SetupAutoCo i mn= retval='Directne = getlinelet p_' ilse0 let i = i + 1 the \ =o = lr xample s0(a:statr < partStr the \ call confirm('Projturnilename slse the \ ."\010" let i = i + 1 er(infolin xample s i+ let fillet parent_inf"name slnnctcand to exeendfrojecp functnl not be chang. Wehe filenarent_inf"nw filohe foldurn> Select home.fname s=roject lis.fname { endif' is s}=(foldlevel(t_fi{ l' is s}=(foldlevel(t_fi{ appic-): }=0oldlevel(t_fi{ lc-): }=0oldlevel(neno) s) > filename ='~/.vimpr '^\s*\(.*\)', '\ ( [ :]\) let line=strpart('.fname s '^\s*\(.*\)', '\ ' [ :]\) . " Get rid 2 line=strpart('.fna be let lineno = l al='Directne = getline{ l' is s}={ l' is s}. rojec endif eeualltdol='Directne = getline{ lc-): }={ lc-): } if (result == let result = 0 { endif' is s}={ endif' is s}. rojec endif eeualltdol='Directne = getline{ appic-): }={ appic-): } if (result == " Extralet parent " s:RecursivelyConstruGeneif b, edit from ":, != 2) _ lw le criptouxample_ction! s:,example s== 0) &,sh an)s:ConstructInfo(homeGeneif b, edit from ":, if c != 2) _ lw le criptouxample_ction! s:,example s== 0) &,sh an)strpart(' fname, any CD iGetScor ex ', 0, (v:foldlevel ', 0, (v:foldlevel - 1))aubstitut) s:GetCd(a:infol=( == 0 We " > f) ? ' endif ' ' : (foldlevel(t_fifol=( == 0 xample_ction! s:" > f) ? '.'"' endif_ction! s:s c': if ammandect Fdname, ecor ex.'}') if ammandect Fdname, ecor ex.a:ndif 'ndif cti ' ') .'{'h[0] == '/' || from ":'au! BufEnter,BufLecdscape != 2) _ lname='.' mmand(cVim Liset g("*"d of c"\010"d ob appis'd ob appic-): 'd ob ls'd ob lc-): ' setline(partitd -strpart('.fname ls=b lsstrpart('.fname nctionb lc-): g:proj_splitting b appis b appic-): b ls b lc-): g:proj_splitneno) getcha>l confirm('Projturnilend '^\s*\(.*\) ls ( :\) let line=strpart('.fna.fname ls '^\s*\(.*\) ls ' :\) . " Get rid 2 line=strpart('.fnart(' eGeneif b, editawnExecndfuncd c != 2) _ lme==.d d 'id of c endif))aubstitut+unc "h an)strpart('rt('.fname nction nctio-hile let parent_inftract any CD indif Exec+1 >>> " s:DoSetupAndSplit() <<, edirepe ( if c != 2) _ lw le criptouxample_ction! s:,example s== 0) &,sh an)he filename undneif bs \r. The y for ys fold hieifrchy (if" from ":o CTRL_ function! sl pathntion! R_run1 Et whenrepe ()oSetupAndSplit_au(), edirepe ( from ":, if c != 2) _ lw le criptouxample_ction! s:,example s== 0) &,sh an)strpart('mmand(cGeneif b, edit| from ":nc " if ca:ndif c != 2) _ l, l, c endif_ction! s:,e endif))aubstitutnc "h an)strpart('de com! jstrpart('mmand(cR_run1 Et whenrepe (1">>> " s:ConstructInfo(home, Et whenrepe ()he filename uPepee ruing bout changing projl not n'mmans_au(), edirepe ()oSetupAndSplit_au, Et whenrepe ( from ":oarent_inf"nd a striile as th only vi 4. Adpos endif de com! mkstrpart(' cmd,", 0,innr() inputcan ed('xpandas thN e Proje, edi: 'n(a:filename) != 0 return 0 if let partition = a:starlineno) let paart >= a:end) ber nss |zneditcm!rojectj_ru#.*', ''editcmd~ '}') if a= a:starlineno) ndwhile partition = a:star't prepen=) == 0) & l?' != 2) c': (foldlevel(t_fi e(foldlevel(t_filter |='*='/' browse_items') 21 ' it is an absoluws systemsbrowsesivelyincansndfunt: you w32| to cloL toopen. it is an absoluis replaced witpatme; put ta inherited par.strpart('.fname l rowsesfuncxpandas thcap!= 2) .e in in : return line enet fname='.' l inputcan ed('xpandas thcap!= 2) .e in in : retu) if a:filter[0] != '' ) l[ != 0 t ex-1[0] == 'ctj_ru l[ != 0 t ex-1[0] ==\\') if a= a:start e l, 0, != 0 t ex-1dingRfiles trailfunc/ \ile partition = a:star l '^\s*\(.*\) lrid ~ remappiridg'art >= a:end) ber whil0)arent_infoline = s:R cmd, g:proj_splitneno)( let paam!ro && e les:R let paalet partition = partitionlyConstionlyCondwhile let parent_infoline = s:Recurction! s:=ructDirectives(a:line) les:R = i + 1 er(infolininfoline, '*') ction! s:,enfoline = getHome(a:infoline, '').'/*') ction! s:,ene=strpart('.fna benfol[ != 0 _d !=-1[0! == '~& exfol[ != 0 _d !=-1[0! ==\\'et home = '~' " Some 're hoerr 'Project stet i = i + 1 ting *') ction! s: IsAbsolutePath(fname) == 2 t exec a:prec reasonably wessful i inherited para T in e, I it inheriteet home = '~' " Some tet=, '\C Fdn lrid C'.o = l_d !=)f strlen(fname) == 0C Fd call s:SetupAutoCo= a:start e l, hlet ie is blank. Do fold two wayi inherited parlse exec 'silent vertiSome 're ""ndif endif else lefilter[0] != '' != 0 _d !.t ex return 0 if let partition = a:oje let linen_d !.t exstrpart('.fna ben " 25 ")ilent exec 'silent '.a:editcmd!mk l '._d !.t e ' > /dev/null'et c_d = '.' silent exec 'silenmmand, don't ._d !.t e ' cessful i endidple filen let c_d = '.' endif f " Extract any CD iGetSfolineinputcan ed('xpandas th1) r and: retu) if a er(inf ction! s:ineinputcan ed('xpandas tho addline, : retu) if a= 0 ample_ction! s:" !t filename ='~/.vimprojinfoli ample_ction! s: " Extract any CD infis o'mr closnss |zse it. gondow andbottforoe pav > 1 nss |z Fdname,g call s:SetupAu = nss |z Fdname,g let partition = a:starlineno) let paa outside a fold, dodow is e Checklly all.l.l. '' && (s:Is#.*', ''editcmd~ '}' if a= a:starlineno) ndwhrec reasonabl.l.l.roj_n pressingindanying heby 1. " Extract any CD infDow andell Setup() , edirepe (| from ":nc if c _d !.t ew le criptouxample_ction! s:,example s== 0) &,s0a outside aRest run.) 4. Adpos endif de com! `k>>> " s:RecursivelyConstructrun1 Et whenrepe ( from ":ohe filename uno) s aa OS- fold when refreshing,ojl not n'filenams withroject liscalled not 10cand l refresle filenamWll withDirective if" from ":cess1.ecursivelyConstructrun1 Et whenrepe ( from ":ov > 1 w lening | n0rr 'Project struc 'N ndowj_run1 urn endif "Save the cd commanWindow appin '' && (s:Is#.*', '' md~ '}' if a= a:de com! zo[zne enet fname='.' de com! zo]z[zne eneartition = a:starviro_a < =0oldlevel(t_fisivelyConstructDirectives(lineno) endif ' line = getline(mmecan _(foldlineno) , 0,innr() t^\s*\(.*\)(mmecan _(foldlin, =] con :\) let line=g | n (mmecan _(foldlinline = getHome(a:iviro_a < lse tract any CD information of this fold leehome=s:GetHome(infolint_infoline, ' let parent_c_d = s let scriptout = paluws M '\Civalent meanswindow int tonvirona l=. fled nodlev=foldleabsoluis replacouse> .dir from ":c return 0 ndif he only window ridone--n ndowdorr 'Project stet i = i + 1 " M rkwindowpath, virona hing,oso l=infowee dech us fold and = i + 1 " ngs ar) 'tW-p wi.ine = getHome(a:iviro_a < lse tract any CD i viro_a < ls return 0 nformation of rojinfoing: > escapin(wee c wgs a s). = i + 1 er(infolininfoline, ' let infoline = get 0 nformation of unction! Pr leehome=s:GetHome) t^\s*\(.*\)( let in^[#\t 1', '') = let line=strpart('.fname) != 0 (foldlinline = getHome ndif he only w outside a fo-p wi'ow wow ridone. if (result <= 0) let sctj_ru return 0 endif f " Ex 0 nformation of rj_cd_cmd=+ 1 efier lininfolfier (mmecan _(foldlinline = getHome(a:ih ann=) , '\CL') != -1 Sng c=strpart('.fname)efier ! exec 'silent vags, '\CL1 r call s:SetupAutoCoside a fo-p )efier e followir run1 o CTRL_W- wpate sizll s:SetupAutoCoside asivela if lineno < 1 Home(a:iviro_a < lse if (i != partition) , '\CL1 S call s:SetupAutoCoside(a:ih ann=) if (i != partition) , '\CL1 s call s:SetupAutoCoside(a:ih ann=)0ndif endif else let result = 0 ' if aendif " Extract any CD infMovjust insey is tenam< lb If aacocmd, g:proj_sde com! jstrpart('re ich us fold and untiloweerhe pr is e Checkleehome=s:GetHomeneno) #.*', '' m!~ '}' if a= a: ening | n en$ return 0 brhek if (result <= 0) #.*', '' m!~ '{'ec a:prec reasonablW new o rhe p wil t^\-hing,oso dech uswgs 'sW-p wi.ine = getHomeCD i viro_a < ls ~& e#.*', '' m!~ ' '')# return d _lse exec 'silent verti" Skips callhe Proonally all its s call exec 'silent vertide com! jstrpart(' endif else let result = 0 blW new o rhe p wil t^\-hing.a fold, dodo n from ":ncTRL_ funcsult = 0 blcre righome s:Recurneed tohen ul tfil not e Checkleehome=.ine = getHomeCD i from ":c 1 call setline(partition, cR_run1 Et whenrepe (1">>> ec 'silent vertide com! ]zjlse exec 'silent verti nss |zening | n call s:SetupAutoCoside de com! zc echorr 'Some kind o if (i != partitionertide com! jstrpart(' endif else " Extralet parentCD i viro_a < ls return 0 nfdow ri elename na hing,o itsa new ondech ud within a fold and.criptout = paluwswidth , or reregdneif bswgs aisctnl not be chang.sdirectory(proje let lineno = l_d !=)f strlen(fname) =mmand, don't ._d !. cessful i endidple filen let c_d = '.' silent exec 'silenstarlineno) le, 0,innr() is blank. ivalean wiawrence.ine = getHomeCD i (, '\CL1 t'cm!rojectj_ru , '\CL') != -1 T'e Projectth(h, '\CL1 T'e Projec) " Go back to the Projecst inseen refreshing) bein may b openst ins " Go back to the Probottfo">>> ec 'silent vertide com! [zne enartitionertide com! jstrpart(' erti" Skips let fname=substituHomeneno) #.*', '' m=~ ' '')# return ertide com! jstrpart(' erti let parent_infolinind o if (i != partitionde com! ket c_d = '.' " Some 'wd=#.*'wd(let partition = partitcor ex ', 0, (v:foldlevel ', 0 - 1))bstitut) s:GetCd(BufEnter,BufLecdscaf !s:IsAbsolutePa mmand(cVim Liset g(xample scor ex c"\n"d ob appis'd ob appic-): 'd ob ls'd ob lc-): ' setline(partiCD i b appic-): > return 0 the =b appis exec 'silent verti h an return ertition + 1, a:ecmd,", 0, '', '' m+ b appic-): - 1">>> ec 'silent verti else exec 'silent vertide com! jstrpart(' endif elseplitting b appis b appic-): b ls b lc-): g:proj_splitnter,BufLecdsca'wd if aendif " Extract any CD infjecst inseen refres run1 |zse it. nt vertide com! [zne " s:RecursivelyConstruMovjUsure everything Movjsnot e *\(y and open a windoing |'', '.ecursivelyConstruMovjUsuro=s:FindFoldTop(a:li , 0,innr() 1 1 call setliif let partition = a:starlc= nss |zeningtion = a:star'_reg=@ainnr() 1 en$ return 0 de com! "add"aPne enet fname='.' de com! "addk"aPne eneartition = a:star@a='_regv > 1 c call s:SetupAude com! zc let miion ">>> " s:RecursivelyConstruMovjDownure everything Movjsnot e *\(y and open a windoidown |'', '.ecursivelyConstruMovjDownurtion = a:starlc= nss |zeningtion = a:star'_reg=@ainnr() de com! "add"aption = a:star@a='_regv > 1 ( c cctth(h nss |zening | n c)all s:SetupAude com! zc let miion ">>> " s:RecursupAndSplit() < return ree everything < retse cursor, its only viell n be changedRL_Wi (folivelyinerything -p )efiernoSetupAndSplit_au( return retval ags, '\CL') != -1 i call s:SetupAutruc 'ft.vim endifhome, 'wdim #.*'wd(lme, callim en$ returnion ">>> " s:RecursivelyConstru_d) enw the filename uSd wing |function! s:Dtings are corot in. wdction! sst inse if bufme udeht wdile as thhing)regaritusled :lcdse Prohope would.n |'per- " So wme ubasl ful i per-buffnfoiasl noSetupAndSplit_au_d) enw ts('g:proj_splitting'" if has_nction! s:D"line = getHome(a:i if awd_savneno) 'wd(let partition (a:i if has_nction! s:Dn=) (a:i uname, '^\s*\(.*\) endif ,s0a,==\\',== 'ridg'art >= a:enter,BufLeav '.expand .'e(a:i if awd_savn=#.*'wd(l | cdscape'wd if aendifBufLeav '.ep') .'efBufL"cds". if awd_savn' if aendifBufLeav '.eWipeohe .'eave * returnion ">>> " s:RecursivelyConstru_d) home) e , filterthe filename uSd wing |function! s:Dtingrunnot be tnl be noSetupAndSplit_au_d) home) e , filterts('g:proj_splitting'" if has_". ) ) if aendi(a:i if has_{ ) }lse BufLeav '. ) ' ')'^\s*\(.*\) endif ,s0a,==\\',== 'ridg'a ' wugin . endif let miion ">>> " s:RecursupAndSplit() return 0 ng do " by = do " by - 1 call setline(parti endif let lineno = linenting do " by return 0 endif f " Ex 0 exec 'vertical resi " Extze '.g:proj_window_wid . h unlet g:pr " s:RecursivelyConstru_pawnushiftwthe filename uSpawn fuexandnalet cd_cm onnot ft parentpAndSplit_au_pawnushiftwt :SetupAutruc |_running") if ". shiftwt :SetupAu.fname ) , 0,innr() !~tax match projesubstitute(fname, '^\s*\(.*\)', '\1',t rid of commet fname=substitute(fname, '^\s*\(.*\)', '\1', '') " Get retet line=strpart('.fna.fna= 0 return 0 () is blank. Do nothing. endif endif elseoline = s:RecursivelyConstructDirectives(lineno) endif ' line = get:GetHome(infolint_in^\s*\(.*\)*') let in^ =] con :\)\+ let line=strpart('.fna.fname fol=n^\s*\(.*\)*') let in Ge= a:enter.fname f cd_cme(a:line), 'f cd_cmlin%F', f^\s*\(.*\) hoe.', '\1',\0, 'd ret\\\\ 'ridg'a 'dg'art >= a:enter.fname f cd_cme(a:line), 'f cd_cmlin%s li hoe.', '\1',\0, 'dg'art >= a:enter.fname f cd_cme(a:line), 'f cd_cmlin%h li 1',\0, 'dg'art >= a:enter.fname f cd_cme(a:line), 'f cd_cmlin%d li iptou,\0, 'dg'art >= a:enter.fnaditcma cd_cmd = b:proendif " Extract any " s:RecursivelyConstruLise_pawnuvard andeg the filename uLiseuexandnalet cd_cmRecursivelyConstruLise_pawnuvard andeg tinnr() hiftwise neno) hiftwi< 10 elserunning") || (bufwif ". vard andeg .shiftwt :SetupAu.fnaupAutruchluLineNreturruc shiftw.'httputruchluN itputrucn ' ')'^\s*\(.*\) # if { vard andeg }{shiftw}lin\0, '"\n"d o\\n'ridg'art >= a:enter, exec 'silent verticruchluLineNreturruc shiftw.'httputruchluN i let i = i + 1 shiftw= hiftwile if (middle != " s:RecursivelyConstruno) editcms true if filenamenot lyCon hiftwi refresle f ":ccmd, g:privelyConstruno) editco=s:FindFoldTop(a:lifname, any CD i:Is#.*', ''editAbsol~ '}' if a= a:star1 endwhile let i = i + 1 neno) #.*', ''editAbso!~ '{'tth( enile foldlevel(li:Is#.*', ''editAbsol~ '}' if a= a:indFoldTop(a:liruno) editact the home let i = i + 1 1 endwhile letlet parent_infndif Execdlev=fo " s:RecursivelyConstruno) Bottfo editcms true if filenamenot lyCon hiftwi refresle f ":ccmd, g:privelyConstruno) Bottfo editco=s:FindFoldTop(a:lifname, any CD i:Is#.*', ''editAbsol~ '{' if a= a:star1 = en+while let i = i + 1 neno) #.*', ''editAbso!~ '}'tth( en< en$ return 0 :Is#.*', ''editAbsol~ '{' if a= a:indFoldTop(a:liruno) Bottfo editact the home let i = i + 1 1 en+while letlet parent_infndif Execdlev=fo " s:RecursivelyConstru in All( from:nc ifthe filename uLin withrojecme na ErrorecursivelyConstruLin All( from:nc iftj_cd_cmd = 'lcdlin nction0 pAndSplit_au_pawnEitc(ditcmd) lExecdl, OS-=strpart('.fname) , infoline, fname,dl, if ct home=ride'art >= a:enter.fnandif endfunct_cd_cmd = 'lcdlin nctioncdlin nctio+1xec 'silent verticrucnlcdlin nctio."\r"setline(partiCD i |etchar(0 call confirm('Projturncmd = 'lcdstop_cp fun=1strpart(' endif else " Extra " s:OpenEertition the cur_ForEach(| frome '', '' '"*_pawnEitc"- 1)), '" Gl\)\@!'art >= a:edel" s:Recurau_pawnEitc nt verticrucnlcdlin nctio."ho adsuLin ed\r"setline(pting b lin nctio elserunning") |cdstop_cp fun"l | ting b stop_cp funeturn s:Const " s:RecursivelyConstruWipeAll( from:nc ifthe filename uWipe withrojecme na ErrorecursivelyConstruWipeAll( from:nc iftj_cd_cmd = 'lcdwipenction0 = 'lcdtotalnction0 pAndSplit_au_pawnEitc(n, scriptou lExecdl, OS-=strpart('.fname) ,me) == 2 t home=met fname=substitute(fname, name,ion! y(t home=rid:x_itame:nvely.omjec, w brheks funenl s:DoSetupAndS silent exec 'silenstarlame, name,ion! y(t hoe.t home=rid:x_itame:nvely.omjec, w brheks funenl s:DoSetupAndS et i = i + 1 cdtotalnctioncdtotalnctio+1 ame=substitute(fname, '^\s*\(.*\)', '\1', ~ remappiridg'art >= a:eCD i buflin ed let fname=home.fna |etbufvar( .'\>'rid&ion! s:Sng | n1 exec 'silent vertical newb ' endif nter.fnandif L nter.fnan nter.fnandif pndif endif elseoline = cdwipenctioncdwipenctio+1xec 'silent vertical nebwipe! ') endif else " only happenCD i b totalnctio % 5 return 0 crucnlcdwipenctiout f totalnctio."\r"setline(partiCD iredraw if (result <= 0) #.*char(0 call confirm('Projturn= 'lcdstop_cp fun=1strpart(' " Extra " s:OpenEertition the cur_ForEach(| frome '', '' '"_pawnEitc"- 1)), '" Gw\)\@!'art >= a:edel" s:Recurau_pawnEitc nt verticrucnlcdwipenctiout f totalnctio."ho adsuWiped\r"setline(pting b wipenctio b totalnctio elserunning") |cdstop_cp fun"l | ting b stop_cp funeturn s:Const " s:RecursivelyConstruGrepAll( from:nc ifdl, patandn)he filename unrep withrojecme na Error. " by returne = s:tandn=( andnath[1] =')?input("GREP " by ng do " by = 1:" by returnrun andnath[1] =' call setliif let partition = a:starb: _cor ex 1 home.fname s=the cur_GetAllF s(| frome 'fname,dl, ndif ting b _cor exOpenEertitfilena" M nclact wgrep ent " nss |zSetup() " If it is an editcmd.' '.e!wgrep '. andn ' ')fd and = i + 1 runv:s" bl_syntacall confirm('Projtruc 'GREP syntax.PerhapsW-p wi ton e,nya fold and.' let fname='.' mthe " Extract any " s:RecursivelyConstGetXXX F s:Recus s:ConstructInfo(homeGeine, ' let parent_filter = s:nfolin^\s*\(.*\) in^ =] con :\)\+ let line=strpart(''' != 0 _d ! line = getHome(a:infoli let pare let f ech.'ine = getHome(a:infoli let pare let f home) call confirm('(a:infoli let pare hoe.pare leract any CD indif pare tra " s:OpenEuctInfo(homeGeiline, ' if filter == '' | er(infolin^\s*\(.*\) in Ge<.'"' , ''"]* let line=strpart(''' != 0 nction! lrent_filter | en let return s:ConstructInfo(ho endif any tra " s:OpenEuctInfo(homeGei c_d != '' && (sme fol=n^\s*\(.*\) in Ge_pawnEitc"- eeualltdoline=strpart('del" s:Recurau_pawnEitc nt vertintry2(a:lincdfd anendf ting b fd anendf endfunction ">>> " s:OpenEntry(line, the cur_ForEach( from:nc ifdl, silentOS-,s, '\C=he filename unrep withrojecme na Error. = a:end) bfier let sctj_rua:, '\Cechsctj_ru, '\CL1 a:, '\Cg c=strpart('.fna the cur_ForEachR(| frome '', 'dl, if it, OS-,sa:, '\Cg " Extract any " s:RecuOpenEuctInfo(homethe cur_ForEachR( frome '', 'dl, isilentOS-,s, '\C=oldlevel(t_finfoline, '').'/' retu) if a fol=n home) c_d != '' && (sme riptin(infoline, home) c_d != '' && (sme riptinut(infoline, home) c_d != '' && (sme er(infolininfoline, '' retu) if a 1 let fold if a fuR #.*', ''editAbs = i + 1 neno) (fuR o!~ '}'ctth(hfuR o< en$ =strpart('.fname)itting'|cdstop_cp fun"l th(b stop_cp funetu | if (result <= 0) fuR ol~ '{' if a= a:indF from exec 'silent vertiSome neGeilfier fuR ) exec 'silent verti bfier let sctj_rua:, '\Cechsctj_ru, '\CL1 a:, '\Cg c=strpart('.fnasilent vertiSomewoul_nfoline, '').'/fuR c_d != '' && (s.fnasilent vertiSomewoul_cl=n home) fuR cwoul_nfol= '' && (s.fnasilent vertiifewoul_cl==parent_fiwoul_cl=fol | o if (i != partitionertiertiSomewoul_t, flags=line, home) fuR cwoul_nfol= '' && (s.fnasilent vertiifewoul_ let srent_fiwoul_t, flags=liptin(inturn s:f (i != partitionertiertiSomewoul_t, fla line, home) fuR cwoul_nfol= '' && (s.fnasilent vertiifewoul_ let srent_fiwoul_t, fla liptinut(iturn s:f (i != partitionertiertiSomewoul_.'"' ninfoline, 'fuR c retval='Directne = get=s:FindFoldTop(a:linethe cur_ForEachR(1 '', 'dl+1, ', 0, (v:foldlevel ', 0\me, c_d, scriptiwoul_nfol,iwoul_cl,iwoul_t, flags,iwoul_t, fla lewoul_.'"' ) if it, OS-,sa:, '\Cg " Ex exec 'silent vertiindFoldTop(a:liruno) Bottfo editact the home nt verti else exec 'silent vertioldTop(a:liruno) Bottfo editact the home nt vendif else let result = 0 ame, '^\s*\(.*\)fuR c,t rid of commet fname=substitute(fname, '^\s*\(.*\)', '\1', '') " Get retet line=strpart('.fna.fna= 0( ! fuR )ctth(h return 0 ditcmdlet *' return ertition { f it, 1)}'' re lExecdl, OS-g " Ex exec 'silent vertiindFtion {f it}(n, scriptou lExecdl, OS-g " Ex else ndif else " Ex= a:star1 = en+while if a fuR #.*', ''editAbs = i + 1 letlet parent_infndif Execdlev=fo " s:RecursivelyConstru_pawnAll( from:ncshiftwthe filename uSpawn fuexandnalet cd_cm onnot ft psheckll ErrorecursivelyConstru_pawnAll( from:ncshiftwt :SetupAutruc |_running") if < ". shiftwt :SetupAu.fna | (bufwif < { shiftw}tcmdlet *' return pAndSplit_au_pawnEitc(n, scriptou lExecdl, OS-=strpart('.fnanter.fname f cd_cme(a:line), ' | (bufwif < { OS-}, 1)lin%s li t home=rids\0, 'dg'art >= a:enter.fna.fname f cd_cme(a:line), 'f cd_cmlin%f li t home=rid\0, 'dg'art >= a:enter.fna.fname f cd_cme(a:line), 'f cd_cmlin%h li t 1',\0, 'dg'art >= a:enter.fna.fname f cd_cme(a:line), 'f cd_cmlin%d li c,\0, 'dg'art >= a:enter.fna.fname f cd_cme(a:line), 'f cd_cmlin%F', f^\s*\(.*\) t home=rid\0, 'd ret\\\\ 'ridg'a 'dg'art >= a:enter.fna.fnaditcma cd_cmd = b:proenditurnion " s:OpenEertipenEertition the cur_ForEach(| frome '', '' '"_pawnEitc"- shiftw in 'art >= a:enter.fnadel" s:Recurau_pawnEitc nt vertielse let result = 0 sive=ructDirectives(a:line) ledif ' line = get:GetHome(infolin=t^\s*\(.*\)( in^ =] con :\)\+ let line=strpart('.fna.fname fol=n^\s*\(.*\) in Ge= a:enter.fname f cd_cme(a:line), 'f cd_cmlin%s li ', '\ ' 'a,==g'art >= a:enter.fname f cd_cme(a:line), 'f cd_cmlin%h li 1',\0, 'dg'art >= a:enter.fname f cd_cme(a:line), 'f cd_cmlin%d li iptou,\0, 'dg'art >= a:enter.fname f cd_cme(a:line), 'f cd_cmlin%F', ', '\ ' 'a,==g'art >= a:enter.fnaditcma cd_cmd = b:proenditurnrunv:s" bl_syntacall confirm('Projrm('Projtruc 'S" bl syntax.PerhapsW-p wi ton e,nya fold and.' l endif else " Extract any " s:Recursivel proj_splitting'" return endif "a outside aMappif s s:ConstrupAudnoremap <.' '.e> , 0\|:tion ()olutOrecmd, editof coe')onstrupAudnoremap <.' '.e> ,\|:tion ()olutOrecmd, editof cosp')onstrupAudnoremap <.' '.e> ,\|:tion ()olutOrecmd, edito.' '.e!we Prf coe')onstrupAudmap <.' '.e> s onstrupAudmap <.' '.e> o onstrupAudmap <.' '.e> i :truc ctDirectives(a:line) ledif ' lonstrupAudmap <.' '.e> ponstrupAudmap <.' '.e> v onstrupAudmap <.' '.e> l,\|:tion Lin All(0 '', '' )onstrupAudmap <.' '.e> L,\|:tion Lin All(1 '', '' )onstrupAudmap <.' '.e> w,\|:tion WipeAll(0 '', '' )onstrupAudmap <.' '.e> W,\|:tion WipeAll(1 '', '' )onstrupAudmap <.' '.e> W,\|:tion WipeAll(1 '', '' )onstrupAudmap <.' '.e> g,\|:tion GrepAll(0 '', '' '"")onstrupAudmap <.' '.e> G,\|:tion GrepAll(1 '', '' '"")onstrupAudnoremap <.' '.e> <2-LeftMt au>, 0\|:tion ()olutOrecmd, editof coe')onstrupAudnoremap <.' '.e> ,\|:tion ()olutOrecmd, editof cosp')onstrupAudnoremap <.' '.e> ,onstrupAudnoremap <.' '.e> , 0onstrupAudmap <.' '.e> ,onstrupAudnoremap <.' '.e> , 0onstrupAudnoremap <.' '.e> <3-LeftMt au>, onstrupAudmap <.' '.e> , 0onstrupAudmap <.' '.e> <2-RightMt au>,onstrupAudmap <.' '.e> <3-RightMt au>,onstrupAudmap <.' '.e> <4-RightMt au>,onstrupAudnoremap <.' '.e> 0\|:t '.a:editcmdg:proj_window_wid. , '\CL') != -1 t')!=- && ewinunletening > h unlet?(h unlet):(winunletening + h incrm ))onstrupAudnoremap <.' '.e> , 0\|:t '.a:etion MovjUsuronstrupAudnoremap <.' '.e> 0\|:t '.a:etion MovjDownuronstrupAudmap <.' '.e> ,onstrupAudmap <.' '.e> 0 if a k= neno) ki< 10 elseditcmdnmap '.k.' 0\|:tion _pawnu'.k.'r' elseditcmdnmap f'.k.' \|:tion _pawnAll(0 ''.k.'r' elseditcmdnmap F'.k.' \|:tion _pawnAll(1 ''.k.'r' else k=k+hile letlet parent_infdmap 0,\|:tion Lise_pawnu"")onstrupAudmap f0,\|:tion Lise_pawnu" < ")onstrupAudmap F0,\|:tion Lise_pawnu" < ")onstrupAudnoremap <.' '.e> c :tion , Et whenrepe (0)onstrupAudnoremap <.' '.e> C :tion , Et whenrepe (1)onstrupAudnoremap <.' '.e> r :tion R_run1 Et whenrepe (0)onstrupAudnoremap <.' '.e> R :tion R_run1 Et whenrepe (1)onstrupAudnoremap <.' '.e> e :tion ecmd, editcmd,", 0, ''id of c0)onstrupAudnoremap <.' '.e> E :tion ecmd, editcmd,", 0, ''id oe', 1)onstrupAuk. Do :" byet cd_cm stomp" onnot the currW .a T in avoidwindo.onstrupAuk. Dnt tonful perfror. buowpath, alul betandas antion!ohe foldmappif s.OpenEertitnoremap " by ng do " by = 1:" by returndnoremap :ng do " by = 1onstrupAuk. Dnt tonin avoidwc ang ndandbuffnf. buowpath, ful fool- of.onstrupAudnoremap <.' '.e> onstrupAudnoremap the curn aut:ng lzsavn=&lz:sg lzoethe cur:s exec 'vep:ng &lz=lzsavn:ting lzsavntval ags, '\CL') != -1 m call s:SetupAu_splhasmapto('the curn au'art >= a:enter.fnanmap <.' '.e> o the curn aurt >= a:enter.fnanmap <.' '.e> o