[Vim-latex-cvs] vimfiles/plugin explorer.vim,1.1,1.1.2.1

[<mi...@us...>]

Update of /cvsroot/vim-latex/vimfiles/plugin
In directory sc8-pr-cvs1:/tmp/cvs-serv24393

Modified Files:
      Tag: texproject-branch
	explorer.vim 
Log Message:
Introduction of texproject:
1. explorer.vim
Changes responsible for showing only files belonging to project
2. texmenuconf.vim
Menu for project
3. main.vim
Sourcing of latex-suite/texproject.vim
4. texviewer.vim
Changes responsible for ref/cite completion from project (if exists)
5. texproject.vim
Functions and command for project actions
6. projecttemplate.vim
Template of project file.



Index: explorer.vim
===================================================================
RCS file: /cvsroot/vim-latex/vimfiles/plugin/explorer.vim,v
retrieving revision 1.1
retrieving revision 1.1.2.1
diff -C2 -d -r1.1 -r1.1.2.1
*** explorer.vim	4 Apr 2003 23:27:45 -0000	1.1
--- explorer.vim	18 Apr 2003 19:33:01 -0000	1.1.2.1
***************
*** 96,99 ****
--- 96,110 ----
  endif
  
+ " Project files
+ if !exists("g:projFiles")
+   let g:projFiles=''
+ endif
+ 
+ if !exists("g:projName")
+   let g:projName='[No Name]'
+ endif
+ 
+ 
+ 
  " Field to sort by
  if !exists("g:explSortBy")
***************
*** 305,308 ****
--- 316,328 ----
    endif
  
+   " Set filter for project files
+   let b:projFormula = substitute(g:projFiles, '\([^\\]\),', '\1\\|', 'g')
+   let b:projFormula = substitute(b:projFormula, '^', '\\(', '')
+   let b:projFormula = substitute(b:projFormula, '$', '\\)', '')
+   if b:projFormula != '\(\)'
+     let b:proj="\n\" Project Name: " . g:projName
+   else
+     let b:proj=''
+   endif
    " Show the files
    call s:ShowDirectory()
***************
*** 650,655 ****
    else
      let fileLen=strlen(currLine)
!     if (b:filterFormula!="") && (currLine =~ b:filterFormula)
!       " Don't show the file if it is to be filtered.
        d _
      endif
--- 670,684 ----
    else
      let fileLen=strlen(currLine)
! 	if !exists("w:projView") || w:projView == 0
! 	  let w:projView = 0
!     else
! 	  let b:projdir = Tex_GetMainFileName(":p:h")
! 	  if (b:projFormula!='')&&(b:completePath.currLine!~b:projdir.'/'.b:projFormula)
! 	    " Show only files in project
! 	    d _
! 	  endif
! 	endif
! 	if (b:filterFormula!="") && (currLine =~ b:filterFormula)
!        "Don't show the file if it is to be filtered.
        d _
      endif
***************
*** 749,753 ****
        let @f="\" Press ? for keyboard shortcuts\n"
      endif
!     let @f=@f."\" Sorted by ".w:sortdirlabel.w:sorttype.b:suffixeslast.b:filtering."\n"
      let @f=@f."\"= ".b:completePath."\n"
      put! f
--- 778,782 ----
        let @f="\" Press ? for keyboard shortcuts\n"
      endif
!     let @f=@f."\" Sorted by ".w:sortdirlabel.w:sorttype.b:suffixeslast.b:filtering.b:proj."\n"
      let @f=@f."\"= ".b:completePath."\n"
      put! f