utils 0.0.10 → 0.0.12

data/lib/utils/config/vim/autoload/vimball.vim

@@ -122,7 +122,7 @@ fun! vimball#MkVimball(line1,line2,writelevel,...) range
   while linenr <= a:line2
    let svfile  = getline(linenr)
 "   call Decho("svfile<".svfile.">")
- 
+
    if !filereadable(svfile)
     call vimball#ShowMesg(s:ERROR,"unable to read file<".svfile.">")
 	call s:ChgDir(curdir)
@@ -130,7 +130,7 @@ fun! vimball#MkVimball(line1,line2,writelevel,...) range
 "    call Dret("MkVimball")
     return
    endif
- 
+
    " create/switch to mkvimball tab
    if !exists("vbtabnr")
     tabnew
@@ -139,7 +139,7 @@ fun! vimball#MkVimball(line1,line2,writelevel,...) range
    else
     exe "tabn ".vbtabnr
    endif
- 
+
    let lastline= line("$") + 1
    if lastline == 2 && getline("$") == ""
 	call setline(1,'" Vimball Archiver by Charles E. Campbell, Jr., Ph.D.')
@@ -189,7 +189,7 @@ endfun
 
 " ---------------------------------------------------------------------
 " vimball#Vimball: extract and distribute contents from a vimball {{{2
-"                  (invoked the the UseVimball command embedded in 
+"                  (invoked the the UseVimball command embedded in
 "                  vimballs' prologue)
 fun! vimball#Vimball(really,...)
 "  call Dfunc("vimball#Vimball(really=".a:really.") a:0=".a:0)
@@ -242,7 +242,7 @@ fun! vimball#Vimball(really,...)
   " give title to listing of (extracted) files from Vimball Archive
   if a:really
    echohl Title     | echomsg "Vimball Archive"         | echohl None
-  else             
+  else
    echohl Title     | echomsg "Vimball Archive Listing" | echohl None
    echohl Statement | echomsg "files would be placed under: ".home | echohl None
   endif
@@ -421,7 +421,7 @@ fun! vimball#RmVimball(...)
   if filereadable(".VimballRecord")
 "   call Decho(".VimballRecord is readable")
 "   call Decho("curfile<".curfile.">")
-   keepalt keepjumps 1split 
+   keepalt keepjumps 1split
    sil! keepalt keepjumps e .VimballRecord
    let keepsrch= @/
 "   call Decho('search for ^\M'.curfile.'.\m: ')
@@ -606,7 +606,7 @@ fun! s:RecordInFile(home)
   if exists("s:recordfile") || exists("s:recorddir")
    let curdir= getcwd()
    call s:ChgDir(a:home)
-   keepalt keepjumps 1split 
+   keepalt keepjumps 1split
 
    let cmd= expand("%:tr").": "
 "   call Decho("cmd<".cmd.">")

data/lib/utils/config/vim/ftplugin/xml.vim

@@ -1,6 +1,6 @@
 " Vim script file                                           vim600:fdm=marker:
 " FileType:     XML
-" Author:       Devin Weaver <vim (at) tritarget.com> 
+" Author:       Devin Weaver <vim (at) tritarget.com>
 " Maintainer:   Devin Weaver <vim (at) tritarget.com>
 " Last Change:  $Date: 2008-10-16 10:01:12 -0400 (Thu, 16 Oct 2008) $
 " Version:      $Revision: 78 $
@@ -16,14 +16,14 @@
 "                 install documentation code and providing good bug fixes.
 "               Guo-Peng Wen for the self install documentation code.
 "               Shawn Boles <ickybots (at) gmail.com> for fixing the
-"                 <Leader>x cancelation bug. 
+"                 <Leader>x cancelation bug.
 "               Martijn van der Kwast <mvdkwast@gmx.net> for patching
 "                 problems with multi-languages (XML and PHP).
 
 " This script provides some convenience when editing XML (and some SGML)
 " formated documents.
 
-" Section: Documentation 
+" Section: Documentation
 " ----------------------
 "
 " Documentation should be available by ":help xml-plugin" command, once the
@@ -31,11 +31,11 @@
 "
 " You still can read the documentation at the end of this file. Locate it by
 " searching the "xml-plugin" string (and set ft=help to have
-" appropriate syntaxic coloration). 
+" appropriate syntaxic coloration).
 
 " Note: If you used the 5.x version of this file (xmledit.vim) you'll need to
 " comment out the section where you called it since it is no longer used in
-" version 6.x. 
+" version 6.x.
 
 " TODO: Revamp ParseTag to pull appart a tag a rebuild it properly.
 " a tag like: <  test  nowrap  testatt=foo   >
@@ -53,9 +53,9 @@ let b:last_wrap_atts_used = ""
 
 " WrapTag -> Places an XML tag around a visual selection.            {{{1
 " Brad Phelan: Wrap the argument in an XML tag
-" Added nice GUI support to the dialogs. 
+" Added nice GUI support to the dialogs.
 " Rewrote function to implement new algorythem that addresses several bugs.
-if !exists("*s:WrapTag") 
+if !exists("*s:WrapTag")
 function s:WrapTag(text)
     if (line(".") < line("'<"))
         let insert_cmd = "o"
@@ -125,7 +125,7 @@ function s:Callback( xml_tag, isHtml )
         let text = HtmlAttribCallback (a:xml_tag)
     elseif exists ("*XmlAttribCallback")
         let text = XmlAttribCallback (a:xml_tag)
-    endif       
+    endif
     if text != '0'
         execute "normal! i " . text ."\<Esc>l"
     endif
@@ -148,7 +148,7 @@ function s:IsParsableTag( tag )
     if strpart (a:tag, strlen (a:tag) - 2, 1) == '/'
         let parse = 0
     endif
-    
+
     return parse
 endfunction
 endif
@@ -257,7 +257,7 @@ function s:BuildTagName( )
   "forwards command will jump to the next tag otherwise
 
   " Store contents of register x in a variable
-  let b:xreg = @x 
+  let b:xreg = @x
 
   exec "normal! v\"xy"
   if @x=='>'
@@ -289,7 +289,7 @@ function s:BuildTagName( )
 endfunction
 endif
 
-" TagMatch1 -> First step in tag matching.                           {{{1 
+" TagMatch1 -> First step in tag matching.                           {{{1
 " Brad Phelan: First step in tag matching.
 if !exists("*s:TagMatch1")
 function s:TagMatch1()
@@ -306,13 +306,13 @@ function s:TagMatch1()
   if match(b:xreg, '^/')==-1
     let endtag = 0
   else
-    let endtag = 1  
+    let endtag = 1
   endif
 
  " Extract the tag from the whole tag block
  " eg if the block =
  "   tag attrib1=blah attrib2=blah
- " we will end up with 
+ " we will end up with
  "   tag
  " with no trailing or leading spaces
  let b:xreg=substitute(b:xreg,'^/','','g')
@@ -320,7 +320,7 @@ function s:TagMatch1()
  " Make sure the tag is valid.
  " Malformed tags could be <?xml ?>, <![CDATA[]]>, etc.
  if match(b:xreg,'^[[:alnum:]_:\-]') != -1
-     " Pass the tag to the matching 
+     " Pass the tag to the matching
      " routine
      call <SID>TagMatch2(b:xreg, endtag)
  endif
@@ -349,7 +349,7 @@ function s:TagMatch2(tag,endtag)
   endif
 
   if a:endtag==0
-     let stk = 1 
+     let stk = 1
   else
      let stk = 1
   end
@@ -360,7 +360,7 @@ function s:TagMatch2(tag,endtag)
  let wrapval = &wrapscan
  let &wrapscan = 1
 
-  "Get the current location of the cursor so we can 
+  "Get the current location of the cursor so we can
   "detect if we wrap on ourselves
   let lpos = line(".")
   let cpos = col(".")
@@ -375,8 +375,8 @@ function s:TagMatch2(tag,endtag)
       let iter = -1
   endif
 
-  "Loop until stk == 0. 
-  while 1 
+  "Loop until stk == 0.
+  while 1
      " exec search.
      " Make sure to avoid />$/ as well as /\s$/ and /$/.
      exec "normal! " . match_type . '<\s*\/*\s*' . a:tag . '\([[:blank:]>]\|$\)' . "\<Cr>"
@@ -404,7 +404,7 @@ function s:TagMatch2(tag,endtag)
 
      if match(b:xreg,'^/')==-1
         " Found start tag
-        let stk = stk + iter 
+        let stk = stk + iter
      else
         " Found end tag
         let stk = stk - iter
@@ -412,7 +412,7 @@ function s:TagMatch2(tag,endtag)
 
      if stk == 0
         break
-     endif    
+     endif
   endwhile
 
   let &wrapscan = wrapval
@@ -453,7 +453,7 @@ endif
 " VisualTag -> Selects Tag body in a visual selection.                {{{1
 " Modifies mark z
 if !exists("*s:VisualTag")
-function s:VisualTag( ) 
+function s:VisualTag( )
     if strpart (getline ("."), col (".") - 1, 1) == "<"
         normal! l
     endif
@@ -467,7 +467,7 @@ function s:VisualTag( )
     normal! `z
 endfunction
 endif
- 
+
 " InsertGt -> close tags only if the cursor is in a HTML or XML context {{{1
 " Else continue editing
 if !exists("*s:InsertGt")
@@ -488,7 +488,7 @@ function s:InsertGt( )
   else
     if col(".") == col("$") - 1
       startinsert!
-    else 
+    else
       execute "normal! l"
       startinsert
     endif
@@ -559,7 +559,7 @@ function! s:XmlInstallDocumentation(full_name, revision)
     " Figure out document path based on full name of this script:
     let l:vim_plugin_path = fnamemodify(a:full_name, ':h')
     "let l:vim_doc_path   = fnamemodify(a:full_name, ':h:h') . l:doc_path
-    let l:vim_doc_path    = matchstr(l:vim_plugin_path, 
+    let l:vim_doc_path    = matchstr(l:vim_plugin_path,
             \ '.\{-}\ze\%(\%(ft\)\=plugin\|macros\)') . l:doc_path
     if (!(filewritable(l:vim_doc_path) == 2))
         echomsg "Doc path: " . l:vim_doc_path
@@ -740,7 +740,7 @@ ex. <hr> becomes <hr /> (see |xml-plugin-settings|)
 
 NOTE: If you used the VIM 5.x version of this file (xmledit.vim) you'll need
 to comment out the section where you called it. It is no longer used in the
-VIM 6.x version. 
+VIM 6.x version.
 
 Known Bugs {{{2 ~
 
@@ -938,4 +938,4 @@ The following is a sample html.vim file type plugin you could use:
 === END_DOC
 """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
 " vim: set tabstop=8 shiftwidth=4 softtabstop=4 smartindent
-" vim600: set foldmethod=marker smarttab fileencoding=iso-8859-15 
+" vim600: set foldmethod=marker smarttab fileencoding=iso-8859-15

data/lib/utils/config/vim/indent/IndentAnything_html.vim

@@ -14,7 +14,7 @@ let b:indent_anything_echo = 1
 
 "
 " Adjust the default indentation for comments.  Set the comments for html to
-" look like this: 
+" look like this:
 "
 "       <!--
 "          - comment here

data/lib/utils/config/vim/indent/javascript.vim

@@ -1,17 +1,17 @@
 "
-" Copyright 2006 Tye Zdrojewski 
+" Copyright 2006 Tye Zdrojewski
 "
 " Licensed under the Apache License, Version 2.0 (the "License"); you may not
 " use this file except in compliance with the License. You may obtain a copy of
 " the License at
-" 
+"
 " 	http://www.apache.org/licenses/LICENSE-2.0
-" 
+"
 " Unless required by applicable law or agreed to in writing, software distributed
 " under the License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR
 " CONDITIONS OF ANY KIND, either express or implied. See the License for the
 " specific language governing permissions and limitations under the License.
-" 
+"
 "
 "
 " Script:

data/lib/utils/config/vim/plugin/Decho.vim

@@ -89,7 +89,7 @@ au Filetype Decho nmap <silent> <buffer> <F1> :setlocal noro ma<cr>
 "        writes messages to a small window (g:decho_winheight lines)
 "        on the bottom of the screen
 fun! Decho(...)
- 
+
   " make sure that SaveWinPosn() and RestoreWinPosn() are available
   if !exists("g:loaded_cecutil")
    runtime plugin/cecutil.vim
@@ -111,7 +111,7 @@ fun! Decho(...)
 	let eakeep= &ea
 	set ei=BufEnter,WinEnter,WinLeave,ShellCmdPost,FocusGained noea
    endif
- 
+
    " As needed, create/switch-to the DBG buffer
    if !bufexists(g:decho_bufname) && bufnr("*/".g:decho_bufname."$") == -1
     " if requested DBG-buffer doesn't exist, create a new one
@@ -119,13 +119,13 @@ fun! Decho(...)
 	exe "keepjumps silent! bot ".g:decho_winheight."new ".fnameescape(g:decho_bufname)
     setlocal noswf
 	keepjumps silent! %d
- 
+
    elseif bufwinnr(g:decho_bufname) > 0
     " if requested DBG-buffer exists in a window,
     " go to that window (by window number)
     exe "keepjumps ".bufwinnr(g:decho_bufname)."wincmd W"
     exe "res ".g:decho_winheight
- 
+
    else
     " user must have closed the DBG-buffer window.
     " create a new one at the bottom of the screen.
@@ -133,10 +133,10 @@ fun! Decho(...)
     setlocal noswf
     exe "keepjumps b ".bufnr(g:decho_bufname)
    endif
- 
+
    set ft=Decho
    setlocal noswapfile noro nobl fo=n2croql
- 
+
    "  make sure DBG window is on the bottom
    wincmd J
   endif
@@ -235,7 +235,7 @@ fun! Decho(...)
    keepjumps $
    keepjumps let res= append("$",smsg)
    setlocal nomod
- 
+
    " Put cursor at bottom of DBG window, then return to original window
    exe "res ".g:decho_winheight
    keepjumps norm! G
@@ -247,7 +247,7 @@ fun! Decho(...)
    if exists("swp")
     call RestoreWinPosn(swp)
    endif
- 
+
    if g:decho_bufenter
     let &ei= eikeep
 	let &ea= eakeep
@@ -478,7 +478,7 @@ if has("clientserver") && executable("gvim")
     if g:dechomode == s:DECHOREM
     	let g:dechomode= s:DECHOWIN
     endif
- 
+
    elseif a:mode == 1
     " turn remote debugging on
     if g:dechomode != s:DECHOREM
@@ -511,11 +511,11 @@ if has("clientserver") && executable("gvim")
       endtry
      endwhile
     endif
- 
+
    else
     echohl Warning | echomsg "DechoRemote(".a:mode.") not supported" | echohl None
    endif
- 
+
  endfun
 endif
 
@@ -524,7 +524,7 @@ endif
 "  by the user;   DechoVarOn [varname]
 fun! s:DechoVarOn(...)
   let g:dechomode= s:DECHOVAR
-  
+
   if a:0 > 0
    let g:dechofile= a:1
    if a:2 =~ '^g:'
@@ -553,7 +553,7 @@ endfun
 if v:version >= 700
  fun! s:DechoTab(mode,...)
  "  call Dfunc("DechoTab(mode=".a:mode.") a:0=".a:0)
- 
+
    if a:mode
     let g:dechomode = s:DECHOTAB
 	let g:dechofile = (a:0 > 0)? a:1 : ""
@@ -579,7 +579,7 @@ if v:version >= 700
    else
     let g:dechomode= s:DECHOWIN
    endif
- 
+
  "  call Dret("DechoTab")
  endfun
 endif

data/lib/utils/config/vim/plugin/IndentAnything.vim

@@ -1,12 +1,12 @@
 "
-" Copyright 2006 Tye Zdrojewski 
+" Copyright 2006 Tye Zdrojewski
 "
 " Licensed under the Apache License, Version 2.0 (the "License"); you may not
 " use this file except in compliance with the License. You may obtain a copy of
 " the License at
-" 
+"
 " 	http://www.apache.org/licenses/LICENSE-2.0
-" 
+"
 " Unless required by applicable law or agreed to in writing, software distributed
 " under the License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR
 " CONDITIONS OF ANY KIND, either express or implied. See the License for the
@@ -240,7 +240,7 @@ function! IndentAnything()
     " Find non-blank lines above the current line.
     let lastlnum = prevnonblank(currlnum - 1)
     let prevlnum = prevnonblank(lastlnum - 1)
-    if lastlnum != 0 
+    if lastlnum != 0
         let lastline = getline(lastlnum)
     endif
     if prevlnum != 0
@@ -249,7 +249,7 @@ function! IndentAnything()
     if b:contTraversesLineComments
         let lastcodelnum = GetPrevNonBlankNonComment(currlnum - 1)
         let prevcodelnum = GetPrevNonBlankNonComment(lastcodelnum - 1)
-        if lastcodelnum !=0 
+        if lastcodelnum !=0
             let lastcodeline = getline(lastcodelnum)
         endif
     endif
@@ -281,7 +281,7 @@ function! IndentAnything()
         " If we're not in the middle of a block comment (because we haven't
         " made any adjustments for that), then process block indentation.
         for trio in b:indentTrios
-            let b:pairadj += s:GetPairIndent(currline, lastline, lastlnum, 
+            let b:pairadj += s:GetPairIndent(currline, lastline, lastlnum,
                         \ trio[0], trio[1], trio[2])
         endfor
     endif
@@ -392,8 +392,8 @@ function! s:GetPostBlockCommentIndent(LastLNum)
 
     let l:ind = indent(l:comment_start_lnum)
 
-    if 1 || l:ind != 0 && b:indent_anything_echo 
-        let g:lastindent = g:lastindent . 
+    if 1 || l:ind != 0 && b:indent_anything_echo
+        let g:lastindent = g:lastindent .
                     \ "GetPostBlockCommentIndent: " . l:ind
     endif
 
@@ -460,7 +460,7 @@ function! s:GetPairIndent(CurrLine, LastLine, LastLNum, Head, Mid, Tail)
         " If the line starts with an open, The close shouldn't be counted as
         " such, because we're looking for closes that didn't start on this
         " line.
-        if a:LastLine =~ '^\s*' . a:Head || 
+        if a:LastLine =~ '^\s*' . a:Head ||
                     \ (a:Mid != '' && a:LastLine =~ '^\s*' . a:Mid)
             let levels = 1
         endif
@@ -479,19 +479,19 @@ function! s:GetPairIndent(CurrLine, LastLine, LastLNum, Head, Mid, Tail)
                 " *if* there was a match, and not worry about where it is.
                 "
                 "let pairend = searchpair(a:Head, a:Mid, a:Tail, 'W')
-                "if pairend == 0 || a:LastLNum != pairend 
+                "if pairend == 0 || a:LastLNum != pairend
                 "let pairend = searchpair(a:Head, a:Mid, a:Tail, 'W', '', a:LastLNum)
                 let pairend = searchpair(a:Head, a:Mid, a:Tail, 'W',
                             \'InCommentOrString()', a:LastLNum)
-                if pairend == 0 "|| a:LastLNum != pairend 
+                if pairend == 0 "|| a:LastLNum != pairend
 
                     " STARTS with a:Tail, since we already know the line
                     " matches it.
                     if b:lastclosed.at < col('.') && (
-                                \ a:LastLine =~ '^\s*' . a:Tail 
+                                \ a:LastLine =~ '^\s*' . a:Tail
                                 \ || (a:Mid != '' && a:LastLine =~ '^\s*' . a:Mid) )
-                        let b:lastclosed = { 
-                                    \ 'at' : col('.'), 
+                        let b:lastclosed = {
+                                    \ 'at' : col('.'),
                                     \ 'head' : a:Head,
                                     \ 'mid' : a:Mid,
                                     \ 'tail' : a:Tail }
@@ -511,8 +511,8 @@ function! s:GetPairIndent(CurrLine, LastLine, LastLNum, Head, Mid, Tail)
                 " Track the last close to try to match pairs that start on
                 " line continuations
                 if b:lastclosed.at < col('.')
-                    let b:lastclosed = { 
-                                \ 'at'   : col('.'), 
+                    let b:lastclosed = {
+                                \ 'at'   : col('.'),
                                 \ 'head' : a:Head,
                                 \ 'mid'  : a:Mid,
                                 \ 'tail' : a:Tail }
@@ -525,7 +525,7 @@ function! s:GetPairIndent(CurrLine, LastLine, LastLNum, Head, Mid, Tail)
     " If the current line starts with a close, count it.  It won't effect the
     " indentation of the next line because it is the first thing on the line
     " and won't be counted as a "close on the last line".
-    if a:CurrLine =~ '^\s*' . a:Tail 
+    if a:CurrLine =~ '^\s*' . a:Tail
                 \ || (a:Mid != '' && a:CurrLine =~ '^\s*' . a:Mid)
         let levels -= 1
     endif
@@ -535,7 +535,7 @@ function! s:GetPairIndent(CurrLine, LastLine, LastLNum, Head, Mid, Tail)
 
     let adj = &sw*levels
     if adj != 0 && b:indent_anything_echo
-        let g:lastindent = g:lastindent . 
+        let g:lastindent = g:lastindent .
                     \ "GetPairIndent(" . a:Head . "/" . b:lastclosed.at . "):" . adj . " "
     endif
 
@@ -571,7 +571,7 @@ function! s:GetContIndent(Rule, CurrLine, LastLine, LastLNum, PrevLNum)
 
     " Should be able to just search to the line....
     " " Figure out the last and previous continuation status
-    " if lastmatchlnum && lastmatchlnum == a:LastLNum 
+    " if lastmatchlnum && lastmatchlnum == a:LastLNum
     "     let lastcont = 1
     " endif
     if lastmatchlnum == a:LastLNum
@@ -612,7 +612,7 @@ function! s:GetContIndent(Rule, CurrLine, LastLine, LastLNum, PrevLNum)
     endif
 
     " Should be able to just search to the line....
-    " if ( lastmatchlnum && lastmatchlnum == a:PrevLNum ) 
+    " if ( lastmatchlnum && lastmatchlnum == a:PrevLNum )
     "             \ || ( prevmatchlnum && prevmatchlnum == l:prevlnum )
     "     let prevcont = 1
     " endif
@@ -626,11 +626,11 @@ function! s:GetContIndent(Rule, CurrLine, LastLine, LastLNum, PrevLNum)
         let prevcont = 1
     endif
 
-    "echom "lastcont: " . lastcont . 
-    "            \ ", prevcont: " . prevcont . 
+    "echom "lastcont: " . lastcont .
+    "            \ ", prevcont: " . prevcont .
     "            \ ", lastmatchlnum: " . lastmatchlnum .
     "            \ ", prevmatchlnum: " . prevmatchlnum .
-    "            \ ", lastlnum: " . a:LastLNum . 
+    "            \ ", lastlnum: " . a:LastLNum .
     "            \ ", PrevLNum: " . a:PrevLNum
     let firstcont = (lastcont && !prevcont)
     let firstcont = ((lastcont && !prevcont) || (lastcont && b:pairadj))
@@ -645,14 +645,14 @@ function! s:GetContIndent(Rule, CurrLine, LastLine, LastLNum, PrevLNum)
 
 
     "if firstcont && a:CurrLine !~ '^\s*{'
-    if firstcont 
+    if firstcont
         if has_key(a:Rule, 'ignore') && a:CurrLine =~ a:Rule.ignore
             let g:lastindent .= "(ignoring '" . a:Rule.ignore . "') "
         else
             let adj = adj + &sw
         endif
         "elseif postcont && a:LastLine !~ '^\s*{' "&& !b:pairadj
-    elseif postcont 
+    elseif postcont
         if has_key(a:Rule, 'ignore') && a:LastLine =~ a:Rule.ignore
             let g:lastindent .= "(ignoring '" . a:Rule.ignore . "') "
         else
@@ -663,7 +663,7 @@ function! s:GetContIndent(Rule, CurrLine, LastLine, LastLNum, PrevLNum)
     call cursor(origline, origcol)
 
     if adj != 0 && b:indent_anything_echo
-        let g:lastindent = g:lastindent . 
+        let g:lastindent = g:lastindent .
                     \ "GetContIndent('" . a:Rule.pattern . "'):" . adj . " "
     endif
     return adj