Initial commit

dotfiles/bash/colors

@@ -0,0 +1,26 @@
+#!/bin/sh
+
+# get some fancy colorz
+      black="\[\033[0;30m\]"
+        red="\[\033[0;31m\]"
+      green="\[\033[0;32m\]"
+     yellow="\[\033[0;33m\]"
+       blue="\[\033[0;34m\]"
+    magenta="\[\033[0;35m\]"
+       cyan="\[\033[0;36m\]"
+      white="\[\033[0;37m\]"
+     lblack="\[\033[1;30m\]"
+       lred="\[\033[1;31m\]"
+     lgreen="\[\033[1;32m\]"
+    lyellow="\[\033[1;33m\]"
+      lblue="\[\033[1;34m\]"
+   lmagenta="\[\033[1;35m\]"
+      lcyan="\[\033[1;36m\]"
+     lwhite="\[\033[1;37m\]"
+     normal="\[\033[1;0m\]"
+
+coldemo="colors demo: \n$black  black$red  red$green  green$yellow  yellow"
+coldemo="${coldemo}$blue  blue$magenta  magenta$cyan  cyan$white  white\n "
+coldemo="${coldemo}$lblack lblack$lred lred$lgreen lgreen$lyellow lyellow"
+coldemo="${coldemo}$lblue lblue$lmagenta lmagenta$lcyan lcyan$lwhite lwhite\n"
+coldemo="${coldemo}$normal normal\n"

dotfiles/bash/global-after.bashrc

@@ -0,0 +1,35 @@
+#!/bin/bash
+
+######################################################
+### things to do AFTER host/user-specific settings ###
+######################################################
+
+### .... ###
+### BASH ###
+### '''' ###
+
+make_ps1() {
+    source "${HOME}/.bash/colors"
+    # these functions must be already defined by ~/.bash/user/*.bashrc
+    # and ~/.bash/host/*.bashrc
+    ps1u=$(make_ps1u)
+    ps1h=$(make_ps1h)
+    ps1w="$lblue\w$normal";
+    ps1G='$(__git_ps1 "(%s)")';
+    ps1g="$green$ps1G$normal";
+    echo "$ps1u@$ps1h:$ps1w$ps1g$normal\$ ";
+}
+
+make_ps2() {
+    source "${HOME}/.bash/colors"
+    echo "$white>$yellow>$lyellow>$normal ";
+}
+
+# and use to assemble own PS1
+export PS1=$(make_ps1)
+export PS2=$(make_ps2)
+
+### ...... ###
+### OTHERS ###
+### '''''' ###
+

dotfiles/bash/global-before.bashrc

@@ -0,0 +1,34 @@
+#!/bin/bash
+
+#######################################################
+### things to do BEFORE host/user-specific settings ###
+#######################################################
+
+### .... ###
+### BASH ###
+### '''' ###
+
+export HISTCONTROL=$HISTCONTROL${HISTCONTROL+:}ignoredups
+export HISTIGNORE=$HISTIGNORE:ls:ll:la:cd
+export GLOBIGNORE=.:..
+
+# some more aliases
+alias ll='ls -lh'
+alias grep='grep -I'    # do not match binary files
+alias open='gnome-open'
+alias diff='diff -u'
+
+### ...... ###
+### OTHERS ###
+### '''''' ###
+
+# make green git bash trinket even cooler
+export GIT_PS1_SHOWDIRTYSTATE=true
+export GIT_PS1_SHOWUNTRACKEDFILES=true
+
+# disable mounting things like SFTP to ~/.gvfs when accessed
+# via GIO (used by nautilus etc.)
+export GVFS_DISABLE_FUSE=1
+
+# disable the terrible beep sound (only for X; for tty?, blacklist pcspkr)
+[[ ${!DISPLAY[@]} ]] &&  xset b off

dotfiles/bash/host/azzgoat.bashrc

@@ -0,0 +1,30 @@
+#!/bin/bash
+
+### .... ###
+### BASH ###
+### '''' ###
+
+make_ps1h() {
+    echo "$rwd\h$normal";
+}
+
+# my tools as aliases
+alias          se="$HOME/bin/se"
+alias      mkexec="$HOME/bin/mkexec.pl"
+alias         cgo="$HOME/bin/cgo"
+alias opera-study="$HOME/bin/opera-study"
+alias  opera-dwww="$HOME/bin/opera-dwww"
+alias      winpdb="$HOME/local/winpdb/winpdb"
+alias        node="$HOME/local/node/bin/node"
+alias         npm="$HOME/local/node/bin/npm"
+alias         tap="./node_modules/tap/bin/tap.js"
+alias  tap-reader="./node_modules/tap/bin/tap-reader.js"
+
+alias diff="colordiff"
+
+
+### ...... ###
+### OTHERS ###
+### '''''' ###
+
+export PERL5LIB="$PERL5LIB:$HOME/lib/minions/lib"

dotfiles/bash/host/brn-mahdal.bashrc

@@ -0,0 +1,26 @@
+#!/bin/bash
+
+### .... ###
+### BASH ###
+### '''' ###
+
+make_ps1h() {
+    echo "$cyan\h$normal";
+}
+
+# my tools as aliases
+alias        mkexec="$HOME/lib/minions/bin/mkexec.pl"
+alias opera-lennycz="opera -pd $HOME/.opera-lennycz"
+alias        winpdb="$HOME/local/winpdb/winpdb"
+
+alias diff="colordiff -u"
+alias gnucash="LANG=cs_CZ.utf8 gnucash"
+
+### ...... ###
+### OTHERS ###
+### '''''' ###
+
+export PERL5LIB="$PERL5LIB:$HOME/lib/minions/lib"
+
+export current_project=mobile-issues
+

dotfiles/bash/host/hugo.bashrc

@@ -0,0 +1,24 @@
+#!/bin/bash
+
+### .... ###
+### BASH ###
+### '''' ###
+
+make_ps1h() {
+    echo "$lblack\h$normal";
+}
+
+# my tools as aliases
+alias tap="./node_modules/tap/bin/tap.js"
+alias tap-reader="./node_modules/tap/bin/tap-reader.js"
+alias diff="colordiff -u"
+alias git="git-achievements"
+
+
+### ...... ###
+### OTHERS ###
+### '''''' ###
+
+export PATH="$PATH:$HOME/bin/git-achievements/"
+export PERL5LIB="$PERL5LIB:$HOME/lib/minions/lib"
+export PERL5LIB="$PERL5LIB:$HOME/local/gnucash-importer/lib"

dotfiles/bash/setup/bashrc.diff

@@ -0,0 +1,18 @@
+--- /etc/skel/.bashrc	2012-07-13 01:31:07.000000000 +0200
++++ /home/lennycz/.bashrc	2013-03-16 17:32:21.658612859 +0100
+@@ -108,3 +108,15 @@
+     . /etc/bash_completion
+   fi
+ fi
++
++if [ -x "${HOME}/.bash/user/$(whoami).bashrc" ]; then
++    source "${HOME}/.bash/user/$(whoami).bashrc";
++fi
++
++if [ -x "${HOME}/.bash/host/$(hostname).bashrc" ]; then
++    source "${HOME}/.bash/host/$(hostname).bashrc";
++fi
++
++if [ -x "${HOME}/.bash/global-after.bashrc" ]; then
++    source "${HOME}/.bash/global-after.bashrc";
++fi

dotfiles/bash/user/aloism.bashrc

@@ -0,0 +1,5 @@
+#!/bin/bash
+
+make_ps1u() {
+    echo "$lyellow\u$normal";
+}

dotfiles/bash/user/lennycz.bashrc

@@ -0,0 +1,7 @@
+#!/bin/bash
+
+make_ps1u() {
+    echo "$lyellow\u$normal";
+}
+
+export LC_TIME="cs_CZ.utf8"

dotfiles/vim/autoload/pathogen.vim

@@ -0,0 +1,328 @@
+" pathogen.vim - path option manipulation
+" Maintainer:   Tim Pope <http://tpo.pe/>
+" Version:      2.2
+
+" Install in ~/.vim/autoload (or ~\vimfiles\autoload).
+"
+" For management of individually installed plugins in ~/.vim/bundle (or
+" ~\vimfiles\bundle), adding `call pathogen#infect()` to the top of your
+" .vimrc is the only other setup necessary.
+"
+" The API is documented inline below.  For maximum ease of reading,
+" :set foldmethod=marker
+
+if exists("g:loaded_pathogen") || &cp
+  finish
+endif
+let g:loaded_pathogen = 1
+
+function! s:warn(msg)
+  if &verbose
+    echohl WarningMsg
+    echomsg a:msg
+    echohl NONE
+  endif
+endfunction
+
+" Point of entry for basic default usage.  Give a relative path to invoke
+" pathogen#incubate() (defaults to "bundle/{}"), or an absolute path to invoke
+" pathogen#surround().  For backwards compatibility purposes, a full path that
+" does not end in {} or * is given to pathogen#runtime_prepend_subdirectories()
+" instead.
+function! pathogen#infect(...) abort " {{{1
+  for path in a:0 ? reverse(copy(a:000)) : ['bundle/{}']
+    if path =~# '^[^\\/]\+$'
+      call s:warn('Change pathogen#infect('.string(path).') to pathogen#infect('.string(path.'/{}').')')
+      call pathogen#incubate(path . '/{}')
+    elseif path =~# '^[^\\/]\+[\\/]\%({}\|\*\)$'
+      call pathogen#incubate(path)
+    elseif path =~# '[\\/]\%({}\|\*\)$'
+      call pathogen#surround(path)
+    else
+      call s:warn('Change pathogen#infect('.string(path).') to pathogen#infect('.string(path.'/{}').')')
+      call pathogen#surround(path . '/{}')
+    endif
+  endfor
+  call pathogen#cycle_filetype()
+  return ''
+endfunction " }}}1
+
+" Split a path into a list.
+function! pathogen#split(path) abort " {{{1
+  if type(a:path) == type([]) | return a:path | endif
+  let split = split(a:path,'\\\@<!\%(\\\\\)*\zs,')
+  return map(split,'substitute(v:val,''\\\([\\,]\)'',''\1'',"g")')
+endfunction " }}}1
+
+" Convert a list to a path.
+function! pathogen#join(...) abort " {{{1
+  if type(a:1) == type(1) && a:1
+    let i = 1
+    let space = ' '
+  else
+    let i = 0
+    let space = ''
+  endif
+  let path = ""
+  while i < a:0
+    if type(a:000[i]) == type([])
+      let list = a:000[i]
+      let j = 0
+      while j < len(list)
+        let escaped = substitute(list[j],'[,'.space.']\|\\[\,'.space.']\@=','\\&','g')
+        let path .= ',' . escaped
+        let j += 1
+      endwhile
+    else
+      let path .= "," . a:000[i]
+    endif
+    let i += 1
+  endwhile
+  return substitute(path,'^,','','')
+endfunction " }}}1
+
+" Convert a list to a path with escaped spaces for 'path', 'tag', etc.
+function! pathogen#legacyjoin(...) abort " {{{1
+  return call('pathogen#join',[1] + a:000)
+endfunction " }}}1
+
+" Remove duplicates from a list.
+function! pathogen#uniq(list) abort " {{{1
+  let i = 0
+  let seen = {}
+  while i < len(a:list)
+    if (a:list[i] ==# '' && exists('empty')) || has_key(seen,a:list[i])
+      call remove(a:list,i)
+    elseif a:list[i] ==# ''
+      let i += 1
+      let empty = 1
+    else
+      let seen[a:list[i]] = 1
+      let i += 1
+    endif
+  endwhile
+  return a:list
+endfunction " }}}1
+
+" \ on Windows unless shellslash is set, / everywhere else.
+function! pathogen#separator() abort " {{{1
+  return !exists("+shellslash") || &shellslash ? '/' : '\'
+endfunction " }}}1
+
+" Convenience wrapper around glob() which returns a list.
+function! pathogen#glob(pattern) abort " {{{1
+  let files = split(glob(a:pattern),"\n")
+  return map(files,'substitute(v:val,"[".pathogen#separator()."/]$","","")')
+endfunction "}}}1
+
+" Like pathogen#glob(), only limit the results to directories.
+function! pathogen#glob_directories(pattern) abort " {{{1
+  return filter(pathogen#glob(a:pattern),'isdirectory(v:val)')
+endfunction "}}}1
+
+" Turn filetype detection off and back on again if it was already enabled.
+function! pathogen#cycle_filetype() " {{{1
+  if exists('g:did_load_filetypes')
+    filetype off
+    filetype on
+  endif
+endfunction " }}}1
+
+" Check if a bundle is disabled.  A bundle is considered disabled if it ends
+" in a tilde or its basename or full name is included in the list
+" g:pathogen_disabled.
+function! pathogen#is_disabled(path) " {{{1
+  if a:path =~# '\~$'
+    return 1
+  elseif !exists("g:pathogen_disabled")
+    return 0
+  endif
+  let sep = pathogen#separator()
+  let blacklist = g:pathogen_disabled
+  return index(blacklist, strpart(a:path, strridx(a:path, sep)+1)) != -1 && index(blacklist, a:path) != 1
+endfunction "}}}1
+
+" Prepend the given directory to the runtime path and append its corresponding
+" after directory.  If the directory is already included, move it to the
+" outermost position.  Wildcards are added as is.  Ending a path in /{} causes
+" all subdirectories to be added (except those in g:pathogen_disabled).
+function! pathogen#surround(path) abort " {{{1
+  let sep = pathogen#separator()
+  let rtp = pathogen#split(&rtp)
+  if a:path =~# '[\\/]{}$'
+    let path = fnamemodify(a:path[0:-4], ':p:s?[\\/]\=$??')
+    let before = filter(pathogen#glob_directories(path.sep.'*'), '!pathogen#is_disabled(v:val)')
+    let after  = filter(reverse(pathogen#glob_directories(path.sep."*".sep."after")), '!pathogen#is_disabled(v:val[0:-7])')
+    call filter(rtp,'v:val[0:strlen(path)-1] !=# path')
+  else
+    let path = fnamemodify(a:path, ':p:s?[\\/]\=$??')
+    let before = [path]
+    let after = [path . sep . 'after']
+    call filter(rtp, 'index(before + after, v:val) == -1')
+  endif
+  let &rtp = pathogen#join(before, rtp, after)
+  return &rtp
+endfunction " }}}1
+
+" Prepend all subdirectories of path to the rtp, and append all 'after'
+" directories in those subdirectories.  Deprecated.
+function! pathogen#runtime_prepend_subdirectories(path) " {{{1
+  call s:warn('Change pathogen#runtime_prepend_subdirectories('.string(a:path).') to pathogen#surround('.string(a:path.'/{}').')')
+  return pathogen#surround(a:path . pathogen#separator() . '{}')
+endfunction " }}}1
+
+" For each directory in the runtime path, add a second entry with the given
+" argument appended.  If the argument ends in '/{}', add a separate entry for
+" each subdirectory.  The default argument is 'bundle/{}', which means that
+" .vim/bundle/*, $VIM/vimfiles/bundle/*, $VIMRUNTIME/bundle/*,
+" $VIM/vim/files/bundle/*/after, and .vim/bundle/*/after will be added (on
+" UNIX).
+function! pathogen#incubate(...) abort " {{{1
+  let sep = pathogen#separator()
+  let name = a:0 ? a:1 : 'bundle/{}'
+  if "\n".s:done_bundles =~# "\\M\n".name."\n"
+    return ""
+  endif
+  let s:done_bundles .= name . "\n"
+  let list = []
+  for dir in pathogen#split(&rtp)
+    if dir =~# '\<after$'
+      if name =~# '{}$'
+        let list +=  filter(pathogen#glob_directories(substitute(dir,'after$',name[0:-3],'').'*[^~]'.sep.'after'), '!pathogen#is_disabled(v:val[0:-7])') + [dir]
+      else
+        let list += [dir, substitute(dir, 'after$', '', '') . name . sep . 'after']
+      endif
+    else
+      if name =~# '{}$'
+        let list +=  [dir] + filter(pathogen#glob_directories(dir.sep.name[0:-3].'*[^~]'), '!pathogen#is_disabled(v:val)')
+      else
+        let list += [dir . sep . name, dir]
+      endif
+    endif
+  endfor
+  let &rtp = pathogen#join(pathogen#uniq(list))
+  return 1
+endfunction " }}}1
+
+" Deprecated alias for pathogen#incubate().
+function! pathogen#runtime_append_all_bundles(...) abort " {{{1
+  if a:0
+    call s:warn('Change pathogen#runtime_append_all_bundles('.string(a:1).') to pathogen#incubate('.string(a:1.'/{}').')')
+  else
+    call s:warn('Change pathogen#runtime_append_all_bundles() to pathogen#incubate()')
+  endif
+  return call('pathogen#incubate', map(copy(a:000),'v:val . "/{}"'))
+endfunction
+
+let s:done_bundles = ''
+" }}}1
+
+" Invoke :helptags on all non-$VIM doc directories in runtimepath.
+function! pathogen#helptags() abort " {{{1
+  let sep = pathogen#separator()
+  for glob in pathogen#split(&rtp)
+    for dir in split(glob(glob), "\n")
+      if (dir.sep)[0 : strlen($VIMRUNTIME)] !=# $VIMRUNTIME.sep && filewritable(dir.sep.'doc') == 2 && !empty(filter(split(glob(dir.sep.'doc'.sep.'*'),"\n>"),'!isdirectory(v:val)')) && (!filereadable(dir.sep.'doc'.sep.'tags') || filewritable(dir.sep.'doc'.sep.'tags'))
+        helptags `=dir.'/doc'`
+      endif
+    endfor
+  endfor
+endfunction " }}}1
+
+command! -bar Helptags :call pathogen#helptags()
+
+" Execute the given command.  This is basically a backdoor for --remote-expr.
+function! pathogen#execute(...) abort " {{{1
+  for command in a:000
+    execute command
+  endfor
+  return ''
+endfunction " }}}1
+
+" Like findfile(), but hardcoded to use the runtimepath.
+function! pathogen#runtime_findfile(file,count) abort "{{{1
+  let rtp = pathogen#join(1,pathogen#split(&rtp))
+  let file = findfile(a:file,rtp,a:count)
+  if file ==# ''
+    return ''
+  else
+    return fnamemodify(file,':p')
+  endif
+endfunction " }}}1
+
+" Backport of fnameescape().
+function! pathogen#fnameescape(string) abort " {{{1
+  if exists('*fnameescape')
+    return fnameescape(a:string)
+  elseif a:string ==# '-'
+    return '\-'
+  else
+    return substitute(escape(a:string," \t\n*?[{`$\\%#'\"|!<"),'^[+>]','\\&','')
+  endif
+endfunction " }}}1
+
+if exists(':Vedit')
+  finish
+endif
+
+let s:vopen_warning = 0
+
+function! s:find(count,cmd,file,lcd) " {{{1
+  let rtp = pathogen#join(1,pathogen#split(&runtimepath))
+  let file = pathogen#runtime_findfile(a:file,a:count)
+  if file ==# ''
+    return "echoerr 'E345: Can''t find file \"".a:file."\" in runtimepath'"
+  endif
+  if !s:vopen_warning
+    let s:vopen_warning = 1
+    let warning = '|echohl WarningMsg|echo "Install scriptease.vim to continue using :V'.a:cmd.'"|echohl NONE'
+  else
+    let warning = ''
+  endif
+  if a:lcd
+    let path = file[0:-strlen(a:file)-2]
+    execute 'lcd `=path`'
+    return a:cmd.' '.pathogen#fnameescape(a:file) . warning
+  else
+    return a:cmd.' '.pathogen#fnameescape(file) . warning
+  endif
+endfunction " }}}1
+
+function! s:Findcomplete(A,L,P) " {{{1
+  let sep = pathogen#separator()
+  let cheats = {
+        \'a': 'autoload',
+        \'d': 'doc',
+        \'f': 'ftplugin',
+        \'i': 'indent',
+        \'p': 'plugin',
+        \'s': 'syntax'}
+  if a:A =~# '^\w[\\/]' && has_key(cheats,a:A[0])
+    let request = cheats[a:A[0]].a:A[1:-1]
+  else
+    let request = a:A
+  endif
+  let pattern = substitute(request,'/\|\'.sep,'*'.sep,'g').'*'
+  let found = {}
+  for path in pathogen#split(&runtimepath)
+    let path = expand(path, ':p')
+    let matches = split(glob(path.sep.pattern),"\n")
+    call map(matches,'isdirectory(v:val) ? v:val.sep : v:val')
+    call map(matches,'expand(v:val, ":p")[strlen(path)+1:-1]')
+    for match in matches
+      let found[match] = 1
+    endfor
+  endfor
+  return sort(keys(found))
+endfunction " }}}1
+
+command! -bar -bang -range=1 -nargs=1 -complete=customlist,s:Findcomplete Ve       :execute s:find(<count>,'edit<bang>',<q-args>,0)
+command! -bar -bang -range=1 -nargs=1 -complete=customlist,s:Findcomplete Vedit    :execute s:find(<count>,'edit<bang>',<q-args>,0)
+command! -bar -bang -range=1 -nargs=1 -complete=customlist,s:Findcomplete Vopen    :execute s:find(<count>,'edit<bang>',<q-args>,1)
+command! -bar -bang -range=1 -nargs=1 -complete=customlist,s:Findcomplete Vsplit   :execute s:find(<count>,'split',<q-args>,<bang>1)
+command! -bar -bang -range=1 -nargs=1 -complete=customlist,s:Findcomplete Vvsplit  :execute s:find(<count>,'vsplit',<q-args>,<bang>1)
+command! -bar -bang -range=1 -nargs=1 -complete=customlist,s:Findcomplete Vtabedit :execute s:find(<count>,'tabedit',<q-args>,<bang>1)
+command! -bar -bang -range=1 -nargs=1 -complete=customlist,s:Findcomplete Vpedit   :execute s:find(<count>,'pedit',<q-args>,<bang>1)
+command! -bar -bang -range=1 -nargs=1 -complete=customlist,s:Findcomplete Vread    :execute s:find(<count>,'read',<q-args>,<bang>1)
+
+" vim:set et sw=2:

dotfiles/vim/bundle/lh-vim-lib/.VimballRecord

@@ -0,0 +1 @@
+lh-vim-lib-3.1.1.vmb: call delete('/home/lennycz/Dropbox/Config/dotfiles/vim/bundle/lh-vim-lib/.//autoload/lh/askvim.vim')|call delete('/home/lennycz/Dropbox/Config/dotfiles/vim/bundle/lh-vim-lib/.//autoload/lh/buffer.vim')|call delete('/home/lennycz/Dropbox/Config/dotfiles/vim/bundle/lh-vim-lib/.//autoload/lh/buffer/dialog.vim')|call delete('/home/lennycz/Dropbox/Config/dotfiles/vim/bundle/lh-vim-lib/.//autoload/lh/command.vim')|call delete('/home/lennycz/Dropbox/Config/dotfiles/vim/bundle/lh-vim-lib/.//autoload/lh/common.vim')|call delete('/home/lennycz/Dropbox/Config/dotfiles/vim/bundle/lh-vim-lib/.//autoload/lh/encoding.vim')|call delete('/home/lennycz/Dropbox/Config/dotfiles/vim/bundle/lh-vim-lib/.//autoload/lh/env.vim')|call delete('/home/lennycz/Dropbox/Config/dotfiles/vim/bundle/lh-vim-lib/.//autoload/lh/event.vim')|call delete('/home/lennycz/Dropbox/Config/dotfiles/vim/bundle/lh-vim-lib/.//autoload/lh/float.vim')|call delete('/home/lennycz/Dropbox/Config/dotfiles/vim/bundle/lh-vim-lib/.//autoload/lh/function.vim')|call delete('/home/lennycz/Dropbox/Config/dotfiles/vim/bundle/lh-vim-lib/.//autoload/lh/graph/tsort.vim')|call delete('/home/lennycz/Dropbox/Config/dotfiles/vim/bundle/lh-vim-lib/.//autoload/lh/icomplete.vim')|call delete('/home/lennycz/Dropbox/Config/dotfiles/vim/bundle/lh-vim-lib/.//autoload/lh/list.vim')|call delete('/home/lennycz/Dropbox/Config/dotfiles/vim/bundle/lh-vim-lib/.//autoload/lh/menu.vim')|call delete('/home/lennycz/Dropbox/Config/dotfiles/vim/bundle/lh-vim-lib/.//autoload/lh/option.vim')|call delete('/home/lennycz/Dropbox/Config/dotfiles/vim/bundle/lh-vim-lib/.//autoload/lh/path.vim')|call delete('/home/lennycz/Dropbox/Config/dotfiles/vim/bundle/lh-vim-lib/.//autoload/lh/position.vim')|call delete('/home/lennycz/Dropbox/Config/dotfiles/vim/bundle/lh-vim-lib/.//autoload/lh/syntax.vim')|call delete('/home/lennycz/Dropbox/Config/dotfiles/vim/bundle/lh-vim-lib/.//autoload/lh/visual.vim')|call delete('/home/lennycz/Dropbox/Config/dotfiles/vim/bundle/lh-vim-lib/.//doc/lh-vim-lib.txt')|call delete('/home/lennycz/Dropbox/Config/dotfiles/vim/bundle/lh-vim-lib/.//lh-vim-lib-addon-info.txt')|call delete('/home/lennycz/Dropbox/Config/dotfiles/vim/bundle/lh-vim-lib/.//lh-vim-lib.README')|call delete('/home/lennycz/Dropbox/Config/dotfiles/vim/bundle/lh-vim-lib/.//macros/menu-map.vim')|call delete('/home/lennycz/Dropbox/Config/dotfiles/vim/bundle/lh-vim-lib/.//mkVba/mk-lh-vim-lib.vim')|call delete('/home/lennycz/Dropbox/Config/dotfiles/vim/bundle/lh-vim-lib/.//plugin/let.vim')|call delete('/home/lennycz/Dropbox/Config/dotfiles/vim/bundle/lh-vim-lib/.//plugin/lhvl.vim')|call delete('/home/lennycz/Dropbox/Config/dotfiles/vim/bundle/lh-vim-lib/.//plugin/ui-functions.vim')|call delete('/home/lennycz/Dropbox/Config/dotfiles/vim/bundle/lh-vim-lib/.//plugin/words_tools.vim')|call delete('/home/lennycz/Dropbox/Config/dotfiles/vim/bundle/lh-vim-lib/.//tests/lh/function.vim')|call delete('/home/lennycz/Dropbox/Config/dotfiles/vim/bundle/lh-vim-lib/.//tests/lh/list.vim')|call delete('/home/lennycz/Dropbox/Config/dotfiles/vim/bundle/lh-vim-lib/.//tests/lh/path.vim')|call delete('/home/lennycz/Dropbox/Config/dotfiles/vim/bundle/lh-vim-lib/.//tests/lh/test-Fargs2String.vim')|call delete('/home/lennycz/Dropbox/Config/dotfiles/vim/bundle/lh-vim-lib/.//tests/lh/test-askmenu.vim')|call delete('/home/lennycz/Dropbox/Config/dotfiles/vim/bundle/lh-vim-lib/.//tests/lh/test-command.vim')|call delete('/home/lennycz/Dropbox/Config/dotfiles/vim/bundle/lh-vim-lib/.//tests/lh/test-menu-map.vim')|call delete('/home/lennycz/Dropbox/Config/dotfiles/vim/bundle/lh-vim-lib/.//tests/lh/test-toggle-menu.vim')|call delete('/home/lennycz/Dropbox/Config/dotfiles/vim/bundle/lh-vim-lib/.//tests/lh/topological-sort.vim')

dotfiles/vim/bundle/lh-vim-lib/autoload/lh/askvim.vim

@@ -0,0 +1,150 @@
+"=============================================================================
+" $Id: askvim.vim 520 2012-03-19 18:09:15Z luc.hermitte $
+" File:		autoload/lh/askvim.vim                                    {{{1
+" Author:	Luc Hermitte <EMAIL:hermitte {at} free {dot} fr>
+"		<URL:http://code.google.com/p/lh-vim/>
+" License:      GPLv3 with exceptions
+"               <URL:http://code.google.com/p/lh-vim/wiki/License>
+" Version:	3.0.0
+" Created:	17th Apr 2007
+" Last Update:	$Date: 2012-03-19 19:09:15 +0100 (Mon, 19 Mar 2012) $ (17th Apr 2007)
+"------------------------------------------------------------------------
+" Description:	
+" 	Defines functions that asks vim what it is relinquish to tell us
+" 	- menu
+" 
+"------------------------------------------------------------------------
+" Installation:	
+" 	Drop it into {rtp}/autoload/lh/
+" 	Vim 7+ required.
+" History:	
+" 	v2.0.0:
+" 	v3.0.0: GPLv3
+" TODO:		«missing features»
+" }}}1
+"=============================================================================
+
+
+"=============================================================================
+let s:cpo_save=&cpo
+set cpo&vim
+
+"------------------------------------------------------------------------
+" ## Functions {{{1
+" # Debug {{{2
+function! lh#askvim#verbose(level)
+  let s:verbose = a:level
+endfunction
+
+function! s:Verbose(expr)
+  if exists('s:verbose') && s:verbose
+    echomsg a:expr
+  endif
+endfunction
+
+function! lh#askvim#debug(expr)
+  return eval(a:expr)
+endfunction
+
+"------------------------------------------------------------------------
+" # Public {{{2
+" Function: lh#askvim#exe(command) {{{3
+function! lh#askvim#Exe(command)
+  echomsg 'lh#askvim#Exe() is deprecated, use lh#askvim#exe()'
+  return lh#askvim#exe(a:command)
+endfunction
+
+function! lh#askvim#exe(command)
+  let save_a = @a
+  try 
+    silent! redir @a
+    silent! exe a:command
+    redir END
+  finally
+    " Always restore everything
+    let res = @a
+    let @a = save_a
+    return res
+  endtry
+endfunction
+
+
+" Function: lh#askvim#menu(menuid) {{{3
+function! s:AskOneMenu(menuact, res)
+  let sKnown_menus = lh#askvim#exe(a:menuact)
+  let lKnown_menus = split(sKnown_menus, '\n')
+  " echo string(lKnown_menus)
+
+  " 1- search for the menuid
+  " todo: fix the next line to correctly interpret "stuff\.stuff" and
+  " "stuff\\.stuff".
+  let menuid_parts = split(a:menuact, '\.')
+
+  let simplifiedKnown_menus = deepcopy(lKnown_menus)
+  call map(simplifiedKnown_menus, 'substitute(v:val, "&", "", "g")')
+  " let idx = lh#list#match(simplifiedKnown_menus, '^\d\+\s\+'.menuid_parts[-1])
+  let idx = match(simplifiedKnown_menus, '^\d\+\s\+'.menuid_parts[-1])
+  if idx == -1
+    " echo "not found"
+    return
+  endif
+  " echo "l[".idx."]=".lKnown_menus[idx]
+
+  if empty(a:res)
+    let a:res.priority = matchstr(lKnown_menus[idx], '\d\+\ze\s\+.*')
+    let a:res.name     = matchstr(lKnown_menus[idx], '\d\+\s\+\zs.*')
+    let a:res.actions  = {}
+  " else
+  "   what if the priority isn't the same?
+  endif
+
+  " 2- search for the menu definition
+  let idx += 1
+  while idx != len(lKnown_menus)
+    echo "l[".idx."]=".lKnown_menus[idx]
+    " should not happen
+    if lKnown_menus[idx] =~ '^\d\+' | break | endif
+
+    " :h showing-menus
+    " -> The format of the result of the call to Exe() seems to be:
+    "    ^ssssMns-sACTION$
+    "    s == 1 whitespace
+    "    M == mode (inrvcs)
+    "    n == noremap(*)/script(&)
+    "    - == disable(-)/of not
+    let act = {}
+    let menu_def = matchlist(lKnown_menus[idx],
+	  \ '^\s*\([invocs]\)\([&* ]\) \([- ]\) \(.*\)$')
+    if len(menu_def) > 4
+      let act.mode        = menu_def[1]
+      let act.nore_script = menu_def[2]
+      let act.disabled    = menu_def[3]
+      let act.action      = menu_def[4]
+    else
+      echomsg string(menu_def)
+      echoerr "lh#askvim#menu(): Cannot decode ``".lKnown_menus[idx]."''"
+    endif
+    
+    let a:res.actions["mode_" . act.mode] = act
+
+    let idx += 1
+  endwhile
+
+  " n- Return the result
+  return a:res
+endfunction
+
+function! lh#askvim#menu(menuid, modes)
+  let res = {}
+  let i = 0
+  while i != strlen(a:modes)
+    call s:AskOneMenu(a:modes[i].'menu '.a:menuid, res)
+    let i += 1
+  endwhile
+  return res
+endfunction
+" Functions }}}1
+"------------------------------------------------------------------------
+let &cpo=s:cpo_save
+"=============================================================================
+" vim600: set fdm=marker:

dotfiles/vim/bundle/lh-vim-lib/autoload/lh/buffer.vim

@@ -0,0 +1,102 @@
+"=============================================================================
+" $Id: buffer.vim 520 2012-03-19 18:09:15Z luc.hermitte $
+" File:		autoload/lh/buffer.vim                               {{{1
+" Author:	Luc Hermitte <EMAIL:hermitte {at} free {dot} fr>
+"		<URL:http://code.google.com/p/lh-vim/>
+" Licence:      GPLv3
+" Version:	3.0.0
+" Created:	23rd Jan 2007
+" Last Update:	$Date: 2012-03-19 19:09:15 +0100 (Mon, 19 Mar 2012) $
+"------------------------------------------------------------------------
+" Description:	
+" 	Defines functions that help finding windows and handling buffers.
+" 
+"------------------------------------------------------------------------
+" Installation:	
+" 	Drop it into {rtp}/autoload/lh/
+" 	Vim 7+ required.
+" History:	
+"	v1.0.0 First Version
+" 	(*) Functions moved from searchInRuntimeTime  
+" 	v2.2.0
+" 	(*) new function: lh#buffer#list()
+"       v3.0.0 GPLv3
+" TODO:	
+" }}}1
+"=============================================================================
+
+
+"=============================================================================
+let s:cpo_save=&cpo
+set cpo&vim
+
+" ## Functions {{{1
+"------------------------------------------------------------------------
+" # Debug {{{2
+function! lh#buffer#verbose(level)
+  let s:verbose = a:level
+endfunction
+
+function! s:Verbose(expr)
+  if exists('s:verbose') && s:verbose
+    echomsg a:expr
+  endif
+endfunction
+
+function! lh#buffer#debug(expr)
+  return eval(a:expr)
+endfunction
+
+"------------------------------------------------------------------------
+" # Public {{{2
+
+" Function: lh#buffer#find({filename}) {{{3
+" If {filename} is opened in a window, jump to this window, otherwise return -1
+" Moved from searchInRuntimeTime.vim
+function! lh#buffer#find(filename)
+  let b = bufwinnr(a:filename)
+  if b == -1 | return b | endif
+  exe b.'wincmd w'
+  return b
+endfunction
+function! lh#buffer#Find(filename)
+  return lh#buffer#find(a:filename)
+endfunction
+
+" Function: lh#buffer#jump({filename},{cmd}) {{{3
+function! lh#buffer#jump(filename, cmd)
+  if lh#buffer#find(a:filename) != -1 | return | endif
+  exe a:cmd . ' ' . a:filename
+endfunction
+function! lh#buffer#Jump(filename, cmd)
+  return lh#buffer#jump(a:filename, a:cmd)
+endfunction
+
+" Function: lh#buffer#scratch({bname},{where}) {{{3
+function! lh#buffer#scratch(bname, where)
+  try
+    silent exe a:where.' sp '.a:bname
+  catch /.*/
+    throw "Can't open a buffer named '".a:bname."'!"
+  endtry
+  setlocal bt=nofile bh=wipe nobl noswf ro
+endfunction
+function! lh#buffer#Scratch(bname, where)
+  return lh#buffer#scratch(a:bname, a:where)
+endfunction
+
+" Function: lh#buffer#list() {{{3
+function! lh#buffer#list()
+  let all = range(0, bufnr('$'))
+  " let res = lh#list#transform_if(all, [], 'v:1_', 'buflisted')
+  let res = lh#list#copy_if(all, [], 'buflisted')
+  return res
+endfunction
+" Ex: Names of the buffers listed
+"  -> echo lh#list#transform(lh#buffer#list(), [], "bufname")
+" Ex: wipeout empty buffers listed
+"  -> echo 'bw'.join(lh#list#copy_if(range(0, bufnr('$')), [], 'buflisted(v:1_) && empty(bufname(v:1_))'), ' ')
+"=============================================================================
+let &cpo=s:cpo_save
+"=============================================================================
+" vim600: set fdm=marker:

dotfiles/vim/bundle/lh-vim-lib/autoload/lh/buffer/dialog.vim

@@ -0,0 +1,271 @@
+"=============================================================================
+" $Id: dialog.vim 520 2012-03-19 18:09:15Z luc.hermitte $
+" File:		autoload/lh/buffer/dialog.vim                            {{{1
+" Author:	Luc Hermitte <EMAIL:hermitte {at} free {dot} fr>
+"		<URL:http://code.google.com/p/lh-vim/>
+" License:      GPLv3 with exceptions
+"               <URL:http://code.google.com/p/lh-vim/wiki/License>
+" Version:	3.0.0
+" Created:	21st Sep 2007
+" Last Update:	$Date: 2012-03-19 19:09:15 +0100 (Mon, 19 Mar 2012) $
+"------------------------------------------------------------------------
+" Description:	«description»
+" 
+"------------------------------------------------------------------------
+" Installation:	
+" 	Drop it into {rtp}/autoload/lh/
+" 	Vim 7+ required.
+" History:	
+"	v1.0.0 First Version
+" 	(*) Functions imported from Mail_mutt_alias.vim
+"       v3.0.0  GPLv3
+" TODO:		
+" 	(*) --abort-- line
+" 	(*) custom messages
+" 	(*) do not mess with search history
+" 	(*) support any &magic
+" 	(*) syntax
+" 	(*) add number/letters
+" 	(*) tag with '[x] ' instead of '* '
+" }}}1
+"=============================================================================
+
+
+"=============================================================================
+let s:cpo_save=&cpo
+set cpo&vim
+
+
+
+"=============================================================================
+" ## Globals {{{1
+let s:LHdialog = {}
+
+"=============================================================================
+" ## Functions {{{1
+" # Debug {{{2
+function! lh#buffer#dialog#verbose(level)
+  let s:verbose = a:level
+endfunction
+
+function! s:Verbose(expr)
+  if exists('s:verbose') && s:verbose
+    echomsg a:expr
+  endif
+endfunction
+
+function! lh#buffer#dialog#debug(expr)
+  return eval(a:expr)
+endfunction
+
+
+"=============================================================================
+" # Dialog functions {{{2
+"------------------------------------------------------------------------
+function! s:Mappings(abuffer)
+  " map <enter> to edit a file, also dbl-click
+  exe "nnoremap <silent> <buffer> <esc>         :silent call ".a:abuffer.action."(-1, ".a:abuffer.id.")<cr>"
+  exe "nnoremap <silent> <buffer> q             :call lh#buffer#dialog#select(-1, ".a:abuffer.id.")<cr>"
+  exe "nnoremap <silent> <buffer> <cr>          :call lh#buffer#dialog#select(line('.'), ".a:abuffer.id.")<cr>"
+  " nnoremap <silent> <buffer> <2-LeftMouse> :silent call <sid>GrepEditFileLine(line("."))<cr>
+  " nnoremap <silent> <buffer> Q	  :call <sid>Reformat()<cr>
+  " nnoremap <silent> <buffer> <Left>	  :set tabstop-=1<cr>
+  " nnoremap <silent> <buffer> <Right>	  :set tabstop+=1<cr>
+  if a:abuffer.support_tagging
+    nnoremap <silent> <buffer> t	  :silent call <sid>ToggleTag(line("."))<cr>
+    nnoremap <silent> <buffer> <space>	  :silent call <sid>ToggleTag(line("."))<cr>
+  endif
+  nnoremap <silent> <buffer> <tab>	  :silent call <sid>NextChoice('')<cr>
+  nnoremap <silent> <buffer> <S-tab>	  :silent call <sid>NextChoice('b')<cr>
+  exe "nnoremap <silent> <buffer> h	  :silent call <sid>ToggleHelp(".a:abuffer.id.")<cr>"
+endfunction
+
+"----------------------------------------
+" Tag / untag the current choice {{{
+function! s:ToggleTag(lineNum)
+   if a:lineNum > s:Help_NbL()
+      " If tagged
+      if (getline(a:lineNum)[0] == '*')
+	let b:NbTags = b:NbTags - 1
+	silent exe a:lineNum.'s/^\* /  /e'
+      else
+	let b:NbTags = b:NbTags + 1
+	silent exe a:lineNum.'s/^  /* /e'
+      endif
+      " Move after the tag ; there is something with the two previous :s. They
+      " don't leave the cursor at the same position.
+      silent! normal! 3|
+      call s:NextChoice('') " move to the next choice
+    endif
+endfunction
+" }}}
+
+function! s:Help_NbL()
+  " return 1 + nb lines of BuildHelp
+  return 2 + len(b:dialog['help_'.b:dialog.help_type])
+endfunction
+"----------------------------------------
+" Go to the Next (/previous) possible choice. {{{
+function! s:NextChoice(direction)
+  " echomsg "next!"
+  call search('^[ *]\s*\zs\S\+', a:direction)
+endfunction
+" }}}
+
+"------------------------------------------------------------------------
+
+function! s:RedisplayHelp(dialog)
+  silent! 2,$g/^@/d_
+  normal! gg
+  for help in a:dialog['help_'.a:dialog.help_type]
+    silent put=help
+  endfor
+endfunction
+
+function! lh#buffer#dialog#update(dialog)
+  set noro
+  exe (s:Help_NbL()+1).',$d_'
+  for choice in a:dialog.choices
+    silent $put='  '.choice
+  endfor
+  set ro
+endfunction
+
+function! s:Display(dialog, atitle)
+  set noro
+  0 put = a:atitle
+  call s:RedisplayHelp(a:dialog)
+  for choice in a:dialog.choices
+    silent $put='  '.choice
+  endfor
+  set ro
+  exe s:Help_NbL()+1
+endfunction
+
+function! s:ToggleHelp(bufferId)
+  call lh#buffer#find(a:bufferId)
+  call b:dialog.toggle_help()
+endfunction
+
+function! lh#buffer#dialog#toggle_help() dict
+  let self.help_type 
+	\ = (self.help_type == 'short')
+	\ ? 'long'
+	\ : 'short'
+  call s:RedisplayHelp(self)
+endfunction
+
+function! lh#buffer#dialog#new(bname, title, where, support_tagging, action, choices)
+  " The ID will be the buffer id
+  let res = {}
+  let where_it_started = getpos('.')
+  let where_it_started[0] = bufnr('%')
+  let res.where_it_started = where_it_started
+
+  try
+    call lh#buffer#scratch(a:bname, a:where)
+  catch /.*/
+    echoerr v:exception
+    return res
+  endtry
+  let res.id              = bufnr('%')
+  let b:NbTags            = 0
+  let b:dialog            = res
+  let s:LHdialog[res.id]  = res
+  let res.help_long       = []
+  let res.help_short      = []
+  let res.help_type       = 'short'
+  let res.support_tagging = a:support_tagging
+  let res.action	  = a:action
+  let res.choices	  = a:choices
+
+  " Long help
+  call lh#buffer#dialog#add_help(res, '@| <cr>, <double-click>    : select this', 'long')
+  call lh#buffer#dialog#add_help(res, '@| <esc>, q                : Abort', 'long')
+  if a:support_tagging
+    call lh#buffer#dialog#add_help(res, '@| <t>, <space>            : Tag/Untag the current item', 'long')
+  endif
+  call lh#buffer#dialog#add_help(res, '@| <up>/<down>, <tab>, +/- : Move between entries', 'long')
+  call lh#buffer#dialog#add_help(res, '@|', 'long')
+  " call lh#buffer#dialog#add_help(res, '@| h                       : Toggle help', 'long')
+  call lh#buffer#dialog#add_help(res, '@+'.repeat('-', winwidth(bufwinnr(res.id))-3), 'long')
+  " Short Help
+  " call lh#buffer#dialog#add_help(res, '@| h                       : Toggle help', 'short')
+  call lh#buffer#dialog#add_help(res, '@+'.repeat('-', winwidth(bufwinnr(res.id))-3), 'short')
+
+  let res.toggle_help = function("lh#buffer#dialog#toggle_help")
+  let title = '@  ' . a:title
+  let helpstr = '| Toggle (h)elp'
+  let title = title 
+	\ . repeat(' ', winwidth(bufwinnr(res.id))-lh#encoding#strlen(title)-lh#encoding#strlen(helpstr)-1)
+	\ . helpstr
+  call s:Display(res, title)
+ 
+  call s:Mappings(res)
+  return res
+endfunction
+
+function! lh#buffer#dialog#add_help(abuffer, text, help_type)
+  call add(a:abuffer['help_'.a:help_type],a:text)
+endfunction
+
+"=============================================================================
+function! lh#buffer#dialog#quit()
+  let bufferId = b:dialog.where_it_started[0]
+  echohl WarningMsg
+  echo "Abort"
+  echohl None
+  quit
+  call lh#buffer#find(bufferId)
+endfunction
+
+" Function: lh#buffer#dialog#select(line, bufferId [,overriden-action])
+function! lh#buffer#dialog#select(line, bufferId, ...)
+  if a:line == -1
+    call lh#buffer#dialog#quit()
+    return
+  " elseif a:line <= s:Help_NbL() + 1
+  elseif a:line <= s:Help_NbL() 
+    echoerr "Unselectable item"
+    return 
+  else
+    let dialog = s:LHdialog[a:bufferId]
+    let results = { 'dialog' : dialog, 'selection' : []  }
+
+    if b:NbTags == 0
+      " -1 because first index is 0
+      " let results = [ dialog.choices[a:line - s:Help_NbL() - 1] ]
+      let results.selection = [ a:line - s:Help_NbL() - 1 ]
+    else
+      silent g/^* /call add(results.selection, line('.')-s:Help_NbL()-1)
+    endif
+  endif
+
+  if a:0 > 0 " action overriden
+    exe 'call '.dialog.action.'(results, a:000)'
+  else
+    exe 'call '.dialog.action.'(results)'
+  endif
+endfunction
+function! lh#buffer#dialog#Select(line, bufferId, ...)
+  echomsg "lh#buffer#dialog#Select() is deprecated, use lh#buffer#dialog#select() instead"
+  if a:0 > 0 " action overriden
+    exe 'call lh#buffer#dialog#select(a:line,  a:bufferId, a:1)'
+  else
+    exe 'call lh#buffer#dialog#select(a:line,  a:bufferId)'
+  endif
+endfunction
+
+function! Action(results)
+  let dialog = a:results.dialog
+  let choices = dialog.choices
+  for r in a:results.selection
+    echomsg '-> '.choices[r]
+  endfor
+endfunction
+
+
+"=============================================================================
+let &cpo=s:cpo_save
+"=============================================================================
+" vim600: set fdm=marker:

dotfiles/vim/bundle/lh-vim-lib/autoload/lh/command.vim

@@ -0,0 +1,226 @@
+"=============================================================================
+" $Id: command.vim 520 2012-03-19 18:09:15Z luc.hermitte $
+" File:		autoload/lh/command.vim                               {{{1
+" Author:	Luc Hermitte <EMAIL:hermitte {at} free {dot} fr>
+"		<URL:http://code.google.com/p/lh-vim/>
+" License:      GPLv3 with exceptions
+"               <URL:http://code.google.com/p/lh-vim/wiki/License>
+" Version:	3.0.0
+" Created:	08th Jan 2007
+" Last Update:	$Date: 2012-03-19 19:09:15 +0100 (Mon, 19 Mar 2012) $ (08th Jan 2007)
+"------------------------------------------------------------------------
+" Description:	
+" 	Helpers to define commands that:
+" 	- support subcommands
+" 	- support autocompletion
+" 
+"------------------------------------------------------------------------
+" Installation:	
+" 	Drop it into {rtp}/autoload/lh/
+" 	Vim 7+ required.
+" History:	
+"       v3.0.0: GPLv3
+" 	v2.0.0: Code moved from other plugins
+" TODO:		«missing features»
+" }}}1
+"=============================================================================
+
+
+"=============================================================================
+let s:cpo_save=&cpo
+set cpo&vim
+
+" ## Debug {{{1
+function! lh#command#verbose(level)
+  let s:verbose = a:level
+endfunction
+
+function! s:Verbose(expr)
+  if exists('s:verbose') && s:verbose
+    echomsg a:expr
+  endif
+endfunction
+
+function! lh#command#debug(expr)
+  return eval(a:expr)
+endfunction
+
+"------------------------------------------------------------------------
+" ## Functions {{{1
+
+" Tool functions {{{2
+" Function: lh#command#Fargs2String(aList) {{{3
+" @param[in,out] aList list of params from <f-args>
+" @see tests/lh/test-Fargs2String.vim
+function! lh#command#Fargs2String(aList)
+  if empty(a:aList) | return '' | endif
+
+  let quote_char = a:aList[0][0] 
+  let res = a:aList[0]
+  call remove(a:aList, 0)
+  if quote_char !~ '["'."']"
+    return res
+  endif
+  " else
+  let end_string = '[^\\]\%(\\\\\)*'.quote_char.'$'
+  while !empty(a:aList) && res !~ end_string 
+    let res .= ' ' . a:aList[0]
+    call remove(a:aList, 0)
+  endwhile
+  return res
+endfunction
+
+"------------------------------------------------------------------------
+" ## Experimental Functions {{{1
+
+" Internal functions        {{{2
+" Function: s:SaveData({Data})                             {{{3
+" @param Data Command definition
+" Saves {Data} as s:Data{s:data_id++}. The definition will be used by
+" automatically generated commands.
+" @return s:data_id
+let s:data_id = 0
+function! s:SaveData(Data)
+  if has_key(a:Data, "command_id")
+    " Avoid data duplication
+    return a:Data.command_id
+  else
+    let s:Data{s:data_id} = a:Data
+    let id = s:data_id
+    let s:data_id += 1
+    let a:Data.command_id = id
+    return id
+  endif
+endfunction
+
+" BTWComplete(ArgLead, CmdLine, CursorPos):      Auto-complete {{{3
+function! lh#command#complete(ArgLead, CmdLine, CursorPos)
+  let tmp = substitute(a:CmdLine, '\s*\S*', 'Z', 'g')
+  let pos = strlen(tmp)
+  if 0
+    call confirm( "AL = ". a:ArgLead."\nCL = ". a:CmdLine."\nCP = ".a:CursorPos
+	  \ . "\ntmp = ".tmp."\npos = ".pos
+	  \, '&Ok', 1)
+  endif
+
+  if     2 == pos
+    " First argument: a command
+    return s:commands
+  elseif 3 == pos
+    " Second argument: first arg of the command
+    if     -1 != match(a:CmdLine, '^BTW\s\+echo')
+      return s:functions . "\n" . s:variables
+    elseif -1 != match(a:CmdLine, '^BTW\s\+\%(help\|?\)')
+    elseif -1 != match(a:CmdLine, '^BTW\s\+\%(set\|add\)\%(local\)\=')
+      " Adds a filter
+      " let files =         globpath(&rtp, 'compiler/BT-*')
+      " let files = files . globpath(&rtp, 'compiler/BT_*')
+      " let files = files . globpath(&rtp, 'compiler/BT/*')
+      let files = s:FindFilter('*')
+      let files = substitute(files,
+	    \ '\(^\|\n\).\{-}compiler[\\/]BTW[-_\\/]\(.\{-}\)\.vim\>\ze\%(\n\|$\)',
+	    \ '\1\2', 'g')
+      return files
+    elseif -1 != match(a:CmdLine, '^BTW\s\+remove\%(local\)\=')
+      " Removes a filter
+      return substitute(s:FiltersList(), ',', '\n', 'g')
+    endif
+  endif
+  " finally: unknown
+  echoerr 'BTW: unespected parameter ``'. a:ArgLead ."''"
+  return ''
+endfunction
+
+function! s:BTW(command, ...)
+  " todo: check a:0 > 1
+  if     'set'      == a:command | let g:BTW_build_tool = a:1
+    if exists('b:BTW_build_tool')
+      let b:BTW_build_tool = a:1
+    endif
+  elseif 'setlocal'     == a:command | let b:BTW_build_tool = a:1
+  elseif 'add'          == a:command | call s:AddFilter('g', a:1)
+  elseif 'addlocal'     == a:command | call s:AddFilter('b', a:1)
+    " if exists('b:BTW_filters_list') " ?????
+    " call s:AddFilter('b', a:1)
+    " endif
+  elseif 'remove'       == a:command | call s:RemoveFilter('g', a:1)
+  elseif 'removelocal'  == a:command | call s:RemoveFilter('b', a:1)
+  elseif 'rebuild'      == a:command " wait for s:ReconstructToolsChain()
+  elseif 'echo'         == a:command | exe "echo s:".a:1
+    " echo s:{a:f1} ## don't support «echo s:f('foo')»
+  elseif 'reloadPlugin' == a:command
+    let g:force_reload_BuildToolsWrapper = 1
+    let g:BTW_BTW_in_use = 1
+    exe 'so '.s:sfile
+    unlet g:force_reload_BuildToolsWrapper
+    unlet g:BTW_BTW_in_use
+    return
+  elseif a:command =~ '\%(help\|?\)'
+    call s:Usage()
+    return
+  endif
+  call s:ReconstructToolsChain()
+endfunction
+
+" ##############################################################
+" Public functions          {{{2
+
+function! s:FindSubcommand(definition, subcommand)
+  for arg in a:definition.arguments
+    if arg.name == a:subcommand
+      return arg
+    endif
+  endfor
+  throw "NF"
+endfunction
+
+function! s:execute_function(definition, params)
+    if len(a:params) < 1
+      throw "(lh#command) Not enough arguments"
+    endif
+  let l:Fn = a:definition.action
+  echo "calling ".string(l:Fn)
+  echo "with ".string(a:params)
+  " call remove(a:params, 0)
+  call l:Fn(a:params)
+endfunction
+
+function! s:execute_sub_commands(definition, params)
+  try
+    if len(a:params) < 1
+      throw "(lh#command) Not enough arguments"
+    endif
+    let subcommand = s:FindSubcommand(a:definition, a:params[0])
+    call remove(a:params, 0)
+    call s:int_execute(subcommand, a:params)
+  catch /NF.*/
+    throw "(lh#command) Unexpected subcommand `".a:params[0]."'."
+  endtry
+endfunction
+
+function! s:int_execute(definition, params)
+  echo "params=".string(a:params)
+  call s:execute_{a:definition.arg_type}(a:definition, a:params)
+endfunction
+
+function! s:execute(definition, ...)
+  try
+    let params = copy(a:000)
+    call s:int_execute(a:definition, params)
+  catch /(lh#command).*/
+    echoerr v:exception . " in `".a:definition.name.' '.join(a:000, ' ')."'"
+  endtry
+endfunction
+
+function! lh#command#new(definition)
+  let cmd_name = a:definition.name
+  " Save the definition as an internal script variable
+  let id = s:SaveData(a:definition)
+  exe "command! -nargs=* ".cmd_name." :call s:execute(s:Data".id.", <f-args>)"
+endfunction
+
+" Functions }}}1
+"------------------------------------------------------------------------
+let &cpo=s:cpo_save
+"=============================================================================
+" vim600: set fdm=marker:

dotfiles/vim/bundle/lh-vim-lib/autoload/lh/common.vim

@@ -0,0 +1,97 @@
+"=============================================================================
+" $Id: common.vim 520 2012-03-19 18:09:15Z luc.hermitte $
+" File:		autoload/lh/common.vim                               {{{1
+" Author:	Luc Hermitte <EMAIL:hermitte {at} free {dot} fr>
+"		<URL:http://code.google.com/p/lh-vim/>
+" License:      GPLv3 with exceptions
+"               <URL:http://code.google.com/p/lh-vim/wiki/License>
+" Version:	3.0.0
+" Created:	07th Oct 2006
+" Last Update:	$Date: 2012-03-19 19:09:15 +0100 (Mon, 19 Mar 2012) $ (08th Feb 2008)
+"------------------------------------------------------------------------
+" Description:	
+" 	Some common functions for:
+" 	- displaying error messages
+" 	- checking dependencies
+" 
+"------------------------------------------------------------------------
+" Installation:	
+" 	Drop it into {rtp}/autoload/lh/
+" 	Vim 7+ required.
+" History:	
+"       v3.0.0
+"       - GPLv3
+" 	v2.1.1
+" 	- New function: lh#common#echomsg_multilines()
+" 	- lh#common#warning_msg() supports multilines messages
+"
+" 	v2.0.0:
+" 	- Code moved from other plugins
+" }}}1
+"=============================================================================
+
+
+"=============================================================================
+let s:cpo_save=&cpo
+set cpo&vim
+"------------------------------------------------------------------------
+" Functions {{{1
+
+" Function: lh#common#echomsg_multilines {{{2
+function! lh#common#echomsg_multilines(text)
+  let lines = split(a:text, "[\n\r]")
+  for line in lines
+    echomsg line
+  endfor
+endfunction
+function! lh#common#echomsgMultilines(text)
+  return lh#common#echomsg_multilines(a:text)
+endfunction
+
+" Function: lh#common#error_msg {{{2
+function! lh#common#error_msg(text)
+  if has('gui_running')
+    call confirm(a:text, '&Ok', '1', 'Error')
+  else
+    " echohl ErrorMsg
+    echoerr a:text
+    " echohl None
+  endif
+endfunction 
+function! lh#common#ErrorMsg(text)
+  return lh#common#error_msg(a:text)
+endfunction
+
+" Function: lh#common#warning_msg {{{2
+function! lh#common#warning_msg(text)
+  echohl WarningMsg
+  " echomsg a:text
+  call lh#common#echomsg_multilines(a:text)
+  echohl None
+endfunction 
+function! lh#common#WarningMsg(text)
+  return lh#common#warning_msg(a:text)
+endfunction
+
+" Dependencies {{{2
+function! lh#common#check_deps(Symbol, File, path, plugin) " {{{3
+  if !exists(a:Symbol)
+    exe "runtime ".a:path.a:File
+    if !exists(a:Symbol)
+      call lh#common#error_msg( a:plugin.': Requires <'.a:File.'>')
+      return 0
+    endif
+  endif
+  return 1
+endfunction
+
+function! lh#common#CheckDeps(Symbol, File, path, plugin) " {{{3
+  echomsg "lh#common#CheckDeps() is deprecated, use lh#common#check_deps() instead."
+  return lh#common#check_deps(a:Symbol, a:File, a:path, a:plugin)
+endfunction
+
+" Functions }}}1
+"------------------------------------------------------------------------
+let &cpo=s:cpo_save
+"=============================================================================
+" vim600: set fdm=marker:

dotfiles/vim/bundle/lh-vim-lib/autoload/lh/encoding.vim

@@ -0,0 +1,78 @@
+"=============================================================================
+" $Id: encoding.vim 520 2012-03-19 18:09:15Z luc.hermitte $
+" File:		autoload/lh/encoding.vim                               {{{1
+" Author:	Luc Hermitte <EMAIL:hermitte {at} free {dot} fr>
+"		<URL:http://code.google.com/p/lh-vim/>
+" License:      GPLv3 with exceptions
+"               <URL:http://code.google.com/p/lh-vim/wiki/License>
+" Version:	3.0.0
+" Created:	21st Feb 2008
+" Last Update:	$Date: 2012-03-19 19:09:15 +0100 (Mon, 19 Mar 2012) $
+"------------------------------------------------------------------------
+" Description:	
+" 	Defines functions that help managing various encodings
+" 
+"------------------------------------------------------------------------
+" Installation:	
+" 	Drop it into {rtp}/autoload/lh/
+" 	Vim 7+ required.
+" History:	
+"       v3.0.0:
+"       (*) GPLv3
+" 	v2.2.2:
+" 	(*) new mb_strings functions: strlen, strpart, at
+" 	v2.0.7:
+" 	(*) lh#encoding#Iconv() copied from map-tools
+" TODO:		«missing features»
+" }}}1
+"=============================================================================
+
+let s:cpo_save=&cpo
+set cpo&vim
+"------------------------------------------------------------------------
+" Exported functions {{{2
+" Function: lh#encoding#iconv(expr, from, to)  " {{{3
+" Unlike |iconv()|, this wrapper returns {expr} when we know no convertion can
+" be acheived.
+function! lh#encoding#iconv(expr, from, to)
+  " call Dfunc("s:ICONV(".a:expr.','.a:from.','.a:to.')')
+  if has('multi_byte') && 
+	\ ( has('iconv') || has('iconv/dyn') ||
+	\ ((a:from=~'latin1\|utf-8') && (a:to=~'latin1\|utf-8')))
+    " call confirm('encoding: '.&enc."\nto:".a:to, "&Ok", 1)
+    " call Dret("s:ICONV convert=".iconv(a:expr, a:from, a:to))
+    return iconv(a:expr,a:from,a:to)
+  else
+    " Cannot convert
+    " call Dret("s:ICONV  no convert=".a:expr)
+    return a:expr
+  endif
+endfunction
+
+
+" Function: lh#encoding#at(mb_string, i) " {{{3
+" @return i-th character in a mb_string
+" @parem mb_string multi-bytes string
+" @param i 0-indexed position
+function! lh#encoding#at(mb_string, i)
+  return matchstr(a:mb_string, '.', 0, a:i+1)
+endfunction
+
+" Function: lh#encoding#strpart(mb_string, pos, length) " {{{3
+" @return {length} extracted characters from {position} in multi-bytes string.
+" @parem mb_string multi-bytes string
+" @param p 0-indexed position
+" @param l length of the string to extract
+function! lh#encoding#strpart(mb_string, p, l)
+  return matchstr(a:mb_string, '.\{'.a:l.'}', 0, a:p+1)
+endfunction
+
+" Function: lh#encoding#strlen(mb_string) " {{{3
+" @return the length of the multi-bytes string.
+function! lh#encoding#strlen(mb_string)
+  return strlen(substitute(a:mb_string, '.', 'a', 'g'))
+endfunction
+"------------------------------------------------------------------------
+let &cpo=s:cpo_save
+"=============================================================================
+" vim600: set fdm=marker:

dotfiles/vim/bundle/lh-vim-lib/autoload/lh/env.vim

@@ -0,0 +1,78 @@
+"=============================================================================
+" $Id: env.vim 520 2012-03-19 18:09:15Z luc.hermitte $
+" File:         autoload/lh/env.vim                               {{{1
+" Author:       Luc Hermitte <EMAIL:hermitte {at} free {dot} fr>
+"		<URL:http://code.google.com/p/lh-vim/>
+" License:      GPLv3 with exceptions
+"               <URL:http://code.google.com/p/lh-vim/wiki/License>
+" Version:      3.0.0
+" Created:      19th Jul 2010
+" Last Update:  $Date: 2012-03-19 19:09:15 +0100 (Mon, 19 Mar 2012) $
+"------------------------------------------------------------------------
+" Description:
+"       Functions related to environment (variables)
+" 
+"------------------------------------------------------------------------
+" Installation:
+"       Drop this file into {rtp}/autoload/lh
+"       Requires Vim7+
+" History:      
+" 	v2.2.1: First Version
+"       v3.0.0: GPLv3
+" TODO:         «missing features»
+" }}}1
+"=============================================================================
+
+let s:cpo_save=&cpo
+set cpo&vim
+"------------------------------------------------------------------------
+" ## Misc Functions     {{{1
+" # Version {{{2
+let s:k_version = 300
+function! lh#env#version()
+  return s:k_version
+endfunction
+
+" # Debug   {{{2
+let s:verbose = 0
+function! lh#env#verbose(...)
+  if a:0 > 0 | let s:verbose = a:1 | endif
+  return s:verbose
+endfunction
+
+function! s:Verbose(expr)
+  if s:verbose
+    echomsg a:expr
+  endif
+endfunction
+
+function! lh#env#debug(expr)
+  return eval(a:expr)
+endfunction
+
+
+"------------------------------------------------------------------------
+" ## Exported functions {{{1
+function! lh#env#expand_all(string)
+  let res = ''
+  let tail = a:string
+  while !empty(tail)
+    let [ all, head, var, tail; dummy ] = matchlist(tail, '\(.\{-}\)\%(${\(.\{-}\)}\)\=\(.*\)')
+    if empty(var)
+      let res .= tail
+      break
+    else
+      let res .= head
+      let val = eval('$'.var)
+      let res .= val
+    endif
+  endwhile
+  return res
+endfunction
+"------------------------------------------------------------------------
+" ## Internal functions {{{1
+
+"------------------------------------------------------------------------
+let &cpo=s:cpo_save
+"=============================================================================
+" vim600: set fdm=marker:

dotfiles/vim/bundle/lh-vim-lib/autoload/lh/event.vim

@@ -0,0 +1,70 @@
+"=============================================================================
+" $Id: event.vim 520 2012-03-19 18:09:15Z luc.hermitte $
+" File:		autoload/lh/event.vim                               {{{1
+" Author:	Luc Hermitte <EMAIL:hermitte {at} free {dot} fr>
+"		<URL:http://code.google.com/p/lh-vim/>
+" License:      GPLv3 with exceptions
+"               <URL:http://code.google.com/p/lh-vim/wiki/License>
+" Version:	3.0.0
+" Created:	15th Feb 2008
+" Last Update:	$Date: 2012-03-19 19:09:15 +0100 (Mon, 19 Mar 2012) $
+"------------------------------------------------------------------------
+" Description:	
+" 	Function to help manage vim |autocommand-events|
+" 
+"------------------------------------------------------------------------
+" Installation:
+" 	Drop it into {rtp}/autoload/lh/
+" 	Vim 7+ required.
+" History:
+" 	v2.0.6: Creation
+"       v3.0.0: GPLv3
+" TODO:		
+" }}}1
+"=============================================================================
+
+let s:cpo_save=&cpo
+set cpo&vim
+
+"------------------------------------------------------------------------
+" ## Functions {{{1
+" # Debug {{{2
+function! lh#event#verbose(level)
+  let s:verbose = a:level
+endfunction
+
+function! s:Verbose(expr)
+  if exists('s:verbose') && s:verbose
+    echomsg a:expr
+  endif
+endfunction
+
+function! lh#event#debug(expr)
+  return eval(a:expr)
+endfunction
+
+"------------------------------------------------------------------------
+" # Event Registration {{{2
+function! s:RegisteredOnce(cmd, group)
+  " We can't delete the current augroup autocommand => increment a counter
+  if !exists('s:'.a:group) || s:{a:group} == 0 
+    let s:{a:group} = 1
+    exe a:cmd
+  endif
+endfunction
+
+function! lh#event#register_for_one_execution_at(event, cmd, group)
+  let group = a:group.'_once'
+  let s:{group} = 0
+  exe 'augroup '.group
+  au!
+  exe 'au '.a:event.' '.expand('%:p').' call s:RegisteredOnce('.string(a:cmd).','.string(group).')'
+  augroup END
+endfunction
+function! lh#event#RegisterForOneExecutionAt(event, cmd, group)
+  return lh#event#register_for_one_execution_at(a:event, a:cmd, a:group)
+endfunction
+"------------------------------------------------------------------------
+let &cpo=s:cpo_save
+"=============================================================================
+" vim600: set fdm=marker:

dotfiles/vim/bundle/lh-vim-lib/autoload/lh/float.vim

@@ -0,0 +1,120 @@
+"=============================================================================
+" $Id: float.vim 520 2012-03-19 18:09:15Z luc.hermitte $
+" File:         autoload/lh/float.vim                             {{{1
+" Author:       Luc Hermitte <EMAIL:hermitte {at} free {dot} fr>
+"		<URL:http://code.google.com/p/lh-vim/>
+" License:      GPLv3 with exceptions
+"               <URL:http://code.google.com/p/lh-vim/wiki/License>
+" Version:      3.0.0
+" Created:      16th Nov 2010
+" Last Update:  $Date: 2012-03-19 19:09:15 +0100 (Mon, 19 Mar 2012) $
+"------------------------------------------------------------------------
+" Description:
+"       Defines functions related to |expr-float| numbers
+" 
+"------------------------------------------------------------------------
+" Installation:
+"       Drop this file into {rtp}/autoload/lh
+"       Requires Vim7+
+" History:     
+"       v2.0.0: first version
+"       v3.0.0: GPLv3
+" TODO:
+" }}}1
+"=============================================================================
+
+let s:cpo_save=&cpo
+set cpo&vim
+"------------------------------------------------------------------------
+" ## Misc Functions     {{{1
+" # Version {{{2
+let s:k_version = 300
+function! lh#float#version()
+  return s:k_version
+endfunction
+
+" # Debug   {{{2
+let s:verbose = 0
+function! lh#float#verbose(...)
+  if a:0 > 0 | let s:verbose = a:1 | endif
+  return s:verbose
+endfunction
+
+function! s:Verbose(expr)
+  if s:verbose
+    echomsg a:expr
+  endif
+endfunction
+
+function! lh#float#debug(expr)
+  return eval(a:expr)
+endfunction
+
+
+"------------------------------------------------------------------------
+" ## Exported functions {{{1
+
+" # lh#float#min(list) {{{2
+function! lh#float#min(list)
+  let am = lh#float#arg_min(a:list)
+  return a:list[am]
+endfunction
+
+function! lh#float#arg_min(list)
+  if empty(a:list) | return -1 | endif
+  let m = type(a:list[0]) == type(0.0) ? a:list[0] : str2float(a:list[0])
+  let p = 0
+  let i = 1
+  while i != len(a:list)
+    let e = a:list[i]
+    if type(e) != type(0.0) |
+      let v = str2float(e)
+    else
+      let v = e
+    endif
+    if v < m
+      let m = v
+      let p = i
+    endif
+    let i += 1
+  endwhile
+  return p
+endfunction
+
+
+" # lh#float#max(list) {{{2
+function! lh#float#max(list)
+  let am = lh#float#arg_max(a:list)
+  return a:list[am]
+endfunction
+
+function! lh#float#arg_max(list)
+  if empty(a:list) | return -1 | endif
+  let m = type(a:list[0]) == type(0.0) ? a:list[0] : str2float(a:list[0])
+  let p = 0
+  let i = 1
+  while i != len(a:list)
+    let e = a:list[i]
+    if type(e) != type(0.0) |
+      let v = str2float(e)
+    else
+      let v = e
+    endif
+    if v > m
+      let m = v
+      let p = i
+    endif
+    let i += 1
+  endwhile
+  return p
+endfunction
+
+
+
+"------------------------------------------------------------------------
+" ## Internal functions {{{1
+
+"------------------------------------------------------------------------
+let &cpo=s:cpo_save
+"=============================================================================
+" vim600: set fdm=marker:

dotfiles/vim/bundle/lh-vim-lib/autoload/lh/function.vim

@@ -0,0 +1,217 @@
+"=============================================================================
+" $Id: function.vim 520 2012-03-19 18:09:15Z luc.hermitte $
+" File:		autoload/lh/function.vim                               {{{1
+" Author:	Luc Hermitte <EMAIL:hermitte {at} free {dot} fr>
+"		<URL:http://code.google.com/p/lh-vim/>
+" License:      GPLv3 with exceptions
+"               <URL:http://code.google.com/p/lh-vim/wiki/License>
+" Version:	3.0.0
+" Created:	03rd Nov 2008
+" Last Update:	$Date: 2012-03-19 19:09:15 +0100 (Mon, 19 Mar 2012) $
+"------------------------------------------------------------------------
+" Description:	
+" 	Implements:
+" 	- lh#function#bind()
+" 	- lh#function#execute()
+" 	- lh#function#prepare()
+" 	- a binded function type
+" 
+"------------------------------------------------------------------------
+" Installation:	
+" 	Drop it into {rtp}/autoload/lh/
+" 	Vim 7+ required.
+" History:	
+"       v2.2.0: first implementation
+"       v3.0.0: GPLv3
+" TODO:		«missing features»
+" }}}1
+"=============================================================================
+
+let s:cpo_save=&cpo
+set cpo&vim
+"------------------------------------------------------------------------
+
+" ## Functions {{{1
+" # Debug {{{2
+function! lh#function#verbose(level)
+  let s:verbose = a:level
+endfunction
+
+function! s:Verbose(expr)
+  if exists('s:verbose') && s:verbose
+    echomsg a:expr
+  endif
+endfunction
+
+function! lh#function#debug(expr)
+  return eval(a:expr)
+endfunction
+
+" # Function: s:Join(arguments...) {{{2
+function! s:Join(args)
+  let res = ''
+  if len(a:args) > 0
+    let res = string(a:args[0])
+    let i = 1
+    while i != len(a:args)
+      let res.=','.string(a:args[i])
+      let i += 1
+    endwhile
+  endif
+  return res
+endfunction
+
+" # Function: s:DoBindList(arguments...) {{{2
+function! s:DoBindList(formal, real)
+  let args = []
+  for arg in a:formal
+    if type(arg)==type('string') && arg =~ '^v:\d\+_$'
+      let new = a:real[matchstr(arg, 'v:\zs\d\+\ze_')-1]
+    elseif type(arg)==type('string')
+      let new = eval(s:DoBindEvaluatedString(arg, a:real))
+    else
+      let new = arg
+    endif
+    call add(args, new)
+    unlet new
+    unlet arg
+  endfor
+  return args
+endfunction
+
+" # Function: s:DoBindString(arguments...) {{{2
+function! s:DoBindString(expr, real)
+  let expr = substitute(a:expr, '\<v:\(\d\+\)_\>', a:real.'[\1-1]', 'g')
+  return expr
+endfunction
+
+function! s:ToString(expr)
+  return  type(a:expr) != type('')
+	\ ? string(a:expr)
+	\ : (a:expr)
+endfunction
+
+function! s:DoBindEvaluatedString(expr, real)
+  let expr = a:expr
+  let p = 0
+  while 1
+    let p = match(expr, '\<v:\d\+_\>', p)
+    if -1 == p | break | endif
+    let e = matchend(expr, '\<v:\d\+_\>', p)
+    let n = eval(expr[p+2 : e-2])
+    " let new = (type(a:real[n-1])==type('') && a:real[n-1]=~ '\<v:\d\+_\>')
+	  " \ ? a:real[n-1]
+	  " \ : string(a:real[n-1])
+    let new = s:ToString(a:real[n-1])
+    " let new = string(a:real[n-1]) " -> bind_counpound vars
+    let expr = ((p>0) ? (expr[0:p-1]) : '') . new . expr[e : -1]
+    " echo expr
+    let p += len(new)
+    " silent! unlet new
+  endwhile
+
+  return expr
+endfunction
+
+" # Function: s:Execute(arguments...) {{{2
+function! s:Execute(args) dict
+  if type(self.function) == type(function('exists'))
+    let args = s:DoBindList(self.args, a:args)
+    " echomsg '##'.string(self.function).'('.join(args, ',').')'
+    let res = eval(string(self.function).'('.s:Join(args).')')
+  elseif type(self.function) == type('string')
+    let expr = s:DoBindString(self.function, 'a:args')
+    let res = eval(expr)
+  elseif type(self.function) == type({})
+    return self.function.execute(a:args)
+  else
+    throw "lh#functor#execute: unpected function type: ".type(self.function)
+  endif
+  return res
+endfunction
+
+" # Function: lh#function#prepare(function, arguments_list) {{{2
+function! lh#function#prepare(Fn, arguments_list)
+  if     type(a:Fn) == type(function('exists'))
+    let expr = string(a:Fn).'('.s:Join(a:arguments_list).')'
+    return expr
+  elseif type(a:Fn) == type('string')
+    if a:Fn =~ '^[a-zA-Z0-9_#]\+$'
+      let expr = string(function(a:Fn)).'('.s:Join(a:arguments_list).')'
+      return expr
+    else
+      let expr = s:DoBindString(a:Fn, 'a:000')
+      return expr
+    endif
+  else
+    throw "lh#function#prepare(): {Fn} argument of type ".type(a:Fn). " is unsupported"
+  endif
+endfunction
+
+" # Function: lh#function#execute(function, arguments...) {{{2
+function! lh#function#execute(Fn, ...)
+  if type(a:Fn) == type({}) && has_key(a:Fn, 'execute')
+    return a:Fn.execute(a:000)
+  else
+    let expr = lh#function#prepare(a:Fn, a:000)
+    return eval(expr)
+  endif
+endfunction
+
+" # Function: lh#function#bind(function, arguments...) {{{2
+function! lh#function#bind(Fn, ...)
+  let args = copy(a:000)
+  if type(a:Fn) == type('string') && a:Fn =~ '^[a-zA-Z0-9_#]\+$'
+	\ && exists('*'.a:Fn)
+    let Fn = function(a:Fn)
+  elseif type(a:Fn) == type({})
+    " echo string(a:Fn).'('.string(a:000).')'
+    " Rebinding another binded function
+    " TASSERT has_key(a:Fn, 'function')
+    " TASSERT has_key(a:Fn, 'execute')
+    " TASSERT has_key(a:Fn, 'args')
+    let Fn = a:Fn.function
+    let N = len(a:Fn.args)
+    if N != 0 " args to rebind
+      let i = 0
+      let t_args = [] " necessary to avoid type changes
+      while i != N
+	silent! unlet arg
+	let arg = a:Fn.args[i]
+	if arg =~ 'v:\d\+_$'
+	  let arg2 = eval(s:DoBindString(arg, string(args)))
+	  " echo arg."-(".string(args).")->".string(arg2)
+	  unlet arg
+	  let arg = arg2
+	  unlet arg2
+	endif
+	call add(t_args, arg)
+	let i += 1
+      endwhile
+      unlet a:Fn.args
+      let a:Fn.args = t_args
+    else " expression to fix
+      " echo Fn
+      " echo s:DoBindString(Fn, string(args))
+      " echo eval(string(s:DoBindString(Fn, string(args))))
+      let Fn = (s:DoBindEvaluatedString(Fn, args))
+    endif
+    let args = a:Fn.args
+  else
+    let Fn = a:Fn
+  endif
+
+  let binded_fn = {
+	\ 'function': Fn,
+	\ 'args':     args,
+	\ 'execute':  function('s:Execute')
+	\}
+  return binded_fn
+endfunction
+
+" }}1
+"------------------------------------------------------------------------
+let &cpo=s:cpo_save
+"=============================================================================
+" vim600: set fdm=marker:
+" Vim: let g:UTfiles='tests/lh/function.vim'

dotfiles/vim/bundle/lh-vim-lib/autoload/lh/graph/tsort.vim

@@ -0,0 +1,179 @@
+"=============================================================================
+" $Id: tsort.vim 520 2012-03-19 18:09:15Z luc.hermitte $
+" File:		autoload/lh/tsort.vim                        {{{1
+" Author:	Luc Hermitte <EMAIL:hermitte {at} free {dot} fr>
+"		<URL:http://code.google.com/p/lh-vim/>
+" License:      GPLv3 with exceptions
+"               <URL:http://code.google.com/p/lh-vim/wiki/License>
+" Version:	3.0.0
+" Created:	21st Apr 2008
+" Last Update:	$Date: 2012-03-19 19:09:15 +0100 (Mon, 19 Mar 2012) $
+"------------------------------------------------------------------------
+" Description:	Library functions for Topological Sort
+" 
+"------------------------------------------------------------------------
+" 	Drop the file into {rtp}/autoload/lh/graph
+" History:	«history»
+" TODO:		«missing features»
+" }}}1
+"=============================================================================
+
+let s:cpo_save=&cpo
+set cpo&vim
+
+"------------------------------------------------------------------------
+" ## Debug {{{1
+function! lh#graph#tsort#verbose(level)
+  let s:verbose = a:level
+endfunction
+
+function! s:Verbose(expr)
+  if exists('s:verbose') && s:verbose
+    echomsg a:expr
+  endif
+endfunction
+
+function! lh#graph#tsort#debug(expr)
+  return eval(a:expr)
+endfunction
+
+"------------------------------------------------------------------------
+"## Helper functions                         {{{1
+"# s:Successors_fully_defined(node)          {{{2
+function! s:Successors_fully_defined(node) dict
+  if has_key(self.table, a:node)
+    return self.table[a:node]
+  else
+    return []
+  endif
+endfunction
+
+"# s:Successors_lazy(node)                   {{{2
+function! s:Successors_lazy(node) dict
+  if !has_key(self.table, a:node)
+    let nodes = self.fetch(a:node)
+    let self.table[a:node] = nodes
+    " if len(nodes) > 0
+      " let self.nb += 1
+    " endif
+    return nodes
+  else
+    return self.table[a:node]
+  endif
+endfunction
+
+"# s:PrepareDAG(dag)                         {{{2
+function! s:PrepareDAG(dag)
+  if type(a:dag) == type(function('has_key'))
+    let dag = { 
+	  \ 'successors': function('s:Successors_lazy'),
+	  \ 'fetch'     : a:dag,
+	  \ 'table' 	: {}
+	  \}
+  else
+    let dag = { 
+	  \ 'successors': function('s:Successors_fully_defined'),
+	  \ 'table' 	: deepcopy(a:dag)
+	  \}
+  endif
+  return dag
+endfunction
+
+"## Depth-first search (recursive)           {{{1
+" Do not detect cyclic graphs
+
+"# lh#graph#tsort#depth(dag, start_nodes)    {{{2
+function! lh#graph#tsort#depth(dag, start_nodes)
+  let dag = s:PrepareDAG(a:dag)
+  let results = []
+  let visited_nodes = { 'Visited':function('s:Visited')}
+  call s:RecursiveDTSort(dag, a:start_nodes, results, visited_nodes)
+  call reverse(results)
+  return results
+endfunction
+
+"# The real, recursive, T-Sort               {{{2
+"see boost.graph for a non recursive implementation
+function! s:RecursiveDTSort(dag, start_nodes, results, visited_nodes)
+  for node in a:start_nodes
+    let visited = a:visited_nodes.Visited(node)
+    if     visited == 1 | continue " done
+    elseif visited == 2 | throw "Tsort: cyclic graph detected: ".node
+    endif
+    let a:visited_nodes[node] = 2 " visiting
+    let succs = a:dag.successors(node)
+    try
+      call s:RecursiveDTSort(a:dag, succs, a:results, a:visited_nodes)
+    catch /Tsort:/
+      throw v:exception.'>'.node
+    endtry
+    let a:visited_nodes[node] = 1 " visited
+    call add(a:results, node)
+  endfor
+endfunction
+
+function! s:Visited(node) dict 
+  return has_key(self, a:node) ? self[a:node] : 0
+endfunction
+
+"## Breadth-first search (non recursive)     {{{1
+"# lh#graph#tsort#breadth(dag, start_nodes)  {{{2
+" warning: This implementation does not work with lazy dag, but only with fully
+" defined ones
+function! lh#graph#tsort#breadth(dag, start_nodes)
+  let result = []
+  let dag = s:PrepareDAG(a:dag)
+  let queue = deepcopy(a:start_nodes)
+
+  while len(queue) > 0
+    let node = remove(queue, 0)
+    " echomsg "result <- ".node
+    call add(result, node)
+    let successors = dag.successors(node)
+    while len(successors) > 0
+      let m = s:RemoveEdgeFrom(dag, node)
+      " echomsg "graph loose ".node."->".m
+      if !s:HasIncomingEgde(dag, m)
+	" echomsg "queue <- ".m
+        call add(queue, m)
+      endif
+    endwhile
+  endwhile
+  if !s:Empty(dag)
+    throw "Tsort: cyclic graph detected: "
+  endif
+  return result
+endfunction
+
+function! s:HasIncomingEgde(dag, node)
+  for node in keys(a:dag.table)
+    if type(a:dag.table[node]) != type([])
+      continue
+    endif
+    if index(a:dag.table[node], a:node) != -1
+      return 1
+    endif
+  endfor
+  return 0
+endfunction
+function! s:RemoveEdgeFrom(dag, node)
+  let successors = a:dag.successors(a:node)
+  if len(successors) > 0
+    let successor = remove(successors, 0)
+    if len(successors) == 0
+      " echomsg "finished with ->".a:node
+      call remove(a:dag.table, a:node)
+    endif
+    return successor
+  endif
+  throw "No more edges from ".a:node
+endfunction
+function! s:Empty(dag)
+  " echomsg "len="len(a:dag.table)
+  return len(a:dag.table) == 0
+endfunction
+" }}}1
+"------------------------------------------------------------------------
+let &cpo=s:cpo_save
+"=============================================================================
+" vim600: set fdm=marker

dotfiles/vim/bundle/lh-vim-lib/autoload/lh/icomplete.vim

@@ -0,0 +1,95 @@
+"=============================================================================
+" $Id$
+" File:         autoload/lh/icomplete.vim                         {{{1
+" Author:       Luc Hermitte <EMAIL:hermitte {at} free {dot} fr>
+"		<URL:http://code.google.com/p/lh-vim/>
+" License:      GPLv3 with exceptions
+"               <URL:http://code.google.com/p/lh-vim/wiki/License>
+" Version:      3.0.0
+" Created:      03rd Jan 2011
+" Last Update:  $Date$
+"------------------------------------------------------------------------
+" Description:
+"       Helpers functions to build |ins-completion-menu|
+" 
+"------------------------------------------------------------------------
+" Installation:
+"       Drop this file into {rtp}/autoload/lh
+"       Requires Vim7+
+" History:
+"       v3.0.0: GPLv3
+" 	v2.2.4: first version
+" TODO:
+" 	- We are not able to detect the end of the completion mode. As a
+" 	consequence we can't prevent c/for<space> to trigger an abbreviation
+" 	instead of the right template file.
+" 	In an ideal world, there would exist an event post |complete()|
+" }}}1
+"=============================================================================
+
+let s:cpo_save=&cpo
+set cpo&vim
+"------------------------------------------------------------------------
+" ## Misc Functions     {{{1
+" # Version {{{2
+let s:k_version = 300
+function! lh#icomplete#version()
+  return s:k_version
+endfunction
+
+" # Debug   {{{2
+let s:verbose = 0
+function! lh#icomplete#verbose(...)
+  if a:0 > 0 | let s:verbose = a:1 | endif
+  return s:verbose
+endfunction
+
+function! s:Verbose(expr)
+  if s:verbose
+    echomsg a:expr
+  endif
+endfunction
+
+function! lh#icomplete#debug(expr)
+  return eval(a:expr)
+endfunction
+
+
+"------------------------------------------------------------------------
+" ## Exported functions {{{1
+" Function: lh#icomplete#run(startcol, matches, Hook) {{{2
+function! lh#icomplete#run(startcol, matches, Hook)
+  call lh#icomplete#_register_hook(a:Hook)
+  call complete(a:startcol, a:matches)
+  return ''
+endfunction
+
+"------------------------------------------------------------------------
+" ## Internal functions {{{1
+" Function: lh#icomplete#_clear_key_bindings() {{{2
+function! lh#icomplete#_clear_key_bindings()
+  iunmap <cr>
+  iunmap <c-y>
+  iunmap <esc>
+  " iunmap <space>
+  " iunmap <tab>
+endfunction
+
+" Function: lh#icomplete#_register_hook(Hook) {{{2
+function! lh#icomplete#_register_hook(Hook)
+  exe 'inoremap <silent> <cr> <cr><c-\><c-n>:call' .a:Hook . '()<cr>'
+  exe 'inoremap <silent> <c-y> <c-y><c-\><c-n>:call' .a:Hook . '()<cr>'
+  " <c-o><Nop> doesn't work as expected... 
+  " To stay in INSERT-mode:
+  " inoremap <silent> <esc> <c-e><c-o>:<cr>
+  " To return into NORMAL-mode:
+  inoremap <silent> <esc> <c-e><esc>
+
+  call lh#event#register_for_one_execution_at('InsertLeave',
+	\ ':call lh#icomplete#_clear_key_bindings()', 'CompleteGroup')
+endfunction
+
+"------------------------------------------------------------------------
+let &cpo=s:cpo_save
+"=============================================================================
+" vim600: set fdm=marker:

dotfiles/vim/bundle/lh-vim-lib/autoload/lh/list.vim

@@ -0,0 +1,376 @@
+"=============================================================================
+" $Id: list.vim 520 2012-03-19 18:09:15Z luc.hermitte $
+" File:         autoload/lh/list.vim                                      {{{1
+" Author:       Luc Hermitte <EMAIL:hermitte {at} free {dot} fr>
+"               <URL:http://code.google.com/p/lh-vim/>
+" License:      GPLv3 with exceptions
+"               <URL:http://code.google.com/p/lh-vim/wiki/License>
+" Version:      3.0.0
+" Created:      17th Apr 2007
+" Last Update:  $Date: 2012-03-19 19:09:15 +0100 (Mon, 19 Mar 2012) $ (17th Apr 2007)
+"------------------------------------------------------------------------
+" Description:  
+"       Defines functions related to |Lists|
+" 
+"------------------------------------------------------------------------
+" Installation: 
+"       Drop it into {rtp}/autoload/lh/
+"       Vim 7+ required.
+" History:      
+"       v3.0.0:
+"       (*) GPLv3
+"       v2.2.2:
+"       (*) new functions: lh#list#remove(), lh#list#matches(),
+"           lh#list#not_found().
+"       v2.2.1:
+"       (*) use :unlet in :for loop to support heterogeneous lists
+"       (*) binary search algorithms (upper_bound, lower_bound, equal_range)
+"       v2.2.0:
+"       (*) new functions: lh#list#accumulate, lh#list#transform,
+"           lh#list#transform_if, lh#list#find_if, lh#list#copy_if,
+"           lh#list#subset, lh#list#intersect
+"       (*) the functions are compatible with lh#function functors
+"       v2.1.1: 
+"       (*) unique_sort
+"       v2.0.7:
+"       (*) Bug fix: lh#list#Match()
+"       v2.0.6:
+"       (*) lh#list#Find_if() supports search predicate, and start index
+"       (*) lh#list#Match() supports start index
+"       v2.0.0:
+" TODO:         «missing features»
+" }}}1
+"=============================================================================
+
+
+"=============================================================================
+let s:cpo_save=&cpo
+set cpo&vim
+
+"------------------------------------------------------------------------
+" ## Functions {{{1
+" # Debug {{{2
+function! lh#list#verbose(level)
+  let s:verbose = a:level
+endfunction
+
+function! s:Verbose(expr)
+  if exists('s:verbose') && s:verbose
+    echomsg a:expr
+  endif
+endfunction
+
+function! lh#list#debug(expr)
+  return eval(a:expr)
+endfunction
+
+"------------------------------------------------------------------------
+" # Public {{{2
+" Function: lh#list#Transform(input, output, action) {{{3
+" deprecated version
+function! lh#list#Transform(input, output, action)
+  let new = map(copy(a:input), a:action)
+  let res = extend(a:output,new)
+  return res
+
+  for element in a:input
+    let action = substitute(a:action, 'v:val','element', 'g')
+    let res = eval(action)
+    call add(a:output, res)
+    unlet element " for heterogeneous lists
+  endfor
+  return a:output
+endfunction
+
+function! lh#list#transform(input, output, action)
+  for element in a:input
+    let res = lh#function#execute(a:action, element)
+    call add(a:output, res)
+    unlet element " for heterogeneous lists
+  endfor
+  return a:output
+endfunction
+
+function! lh#list#transform_if(input, output, action, predicate)
+  for element in a:input
+    if lh#function#execute(a:predicate, element)
+      let res = lh#function#execute(a:action, element)
+      call add(a:output, res)
+    endif
+    unlet element " for heterogeneous lists
+  endfor
+  return a:output
+endfunction
+
+function! lh#list#copy_if(input, output, predicate)
+  for element in a:input
+    if lh#function#execute(a:predicate, element)
+      call add(a:output, element)
+    endif
+    unlet element " for heterogeneous lists
+  endfor
+  return a:output
+endfunction
+
+function! lh#list#accumulate(input, transformation, accumulator)
+  let transformed = lh#list#transform(a:input, [], a:transformation)
+  let res = lh#function#execute(a:accumulator, transformed)
+  return res
+endfunction
+
+" Function: lh#list#match(list, to_be_matched [, idx]) {{{3
+function! lh#list#match(list, to_be_matched, ...)
+  let idx = (a:0>0) ? a:1 : 0
+  while idx < len(a:list)
+    if match(a:list[idx], a:to_be_matched) != -1
+      return idx
+    endif
+    let idx += 1
+  endwhile
+  return -1
+endfunction
+function! lh#list#Match(list, to_be_matched, ...)
+  let idx = (a:0>0) ? a:1 : 0
+  return lh#list#match(a:list, a:to_be_matched, idx)
+endfunction
+
+" Function: lh#list#matches(list, to_be_matched [,idx]) {{{3
+" Return the list of indices that match {to_be_matched}
+function! lh#list#matches(list, to_be_matched, ...)
+  let res = []
+  let idx = (a:0>0) ? a:1 : 0
+  while idx < len(a:list)
+    if match(a:list[idx], a:to_be_matched) != -1
+      let res += [idx]
+    endif
+    let idx += 1
+  endwhile
+  return res
+endfunction
+
+" Function: lh#list#Find_if(list, predicate [, predicate-arguments] [, start-pos]) {{{3
+function! lh#list#Find_if(list, predicate, ...)
+  " Parameters
+  let idx = 0
+  let args = []
+  if a:0 == 2
+    let idx = a:2
+    let args = a:1
+  elseif a:0 == 1
+    if type(a:1) == type([])
+      let args = a:1
+    elseif type(a:1) == type(42)
+      let idx = a:1
+    else
+      throw "lh#list#Find_if: unexpected argument type"
+    endif
+  elseif a:0 != 0
+      throw "lh#list#Find_if: unexpected number of arguments: lh#list#Find_if(list, predicate [, predicate-arguments] [, start-pos])"
+  endif
+
+  " The search loop
+  while idx != len(a:list)
+    let predicate = substitute(a:predicate, 'v:val', 'a:list['.idx.']', 'g')
+    let predicate = substitute(predicate, 'v:\(\d\+\)_', 'args[\1-1]', 'g')
+    let res = eval(predicate)
+    " echomsg string(predicate) . " --> " . res
+    if res | return idx | endif
+    let idx += 1
+  endwhile
+  return -1
+endfunction
+
+" Function: lh#list#find_if(list, predicate [, predicate-arguments] [, start-pos]) {{{3
+function! lh#list#find_if(list, predicate, ...)
+  " Parameters
+  let idx = 0
+  let args = []
+  if a:0 == 1
+    let idx = a:1
+  elseif a:0 != 0
+      throw "lh#list#find_if: unexpected number of arguments: lh#list#find_if(list, predicate [, start-pos])"
+  endif
+
+  " The search loop
+  while idx != len(a:list)
+    " let predicate = substitute(a:predicate, 'v:val', 'a:list['.idx.']', 'g')
+    let res = lh#function#execute(a:predicate, a:list[idx])
+    if res | return idx | endif
+    let idx += 1
+  endwhile
+  return -1
+endfunction
+
+" Function: lh#list#lower_bound(sorted_list, value  [, first[, last]]) {{{3
+function! lh#list#lower_bound(list, val, ...)
+  let first = 0
+  let last = len(a:list)
+  if a:0 >= 1     | let first = a:1
+  elseif a:0 >= 2 | let last = a:2
+  elseif a:0 > 2
+      throw "lh#list#lower_bound: unexpected number of arguments: lh#list#lower_bound(sorted_list, value  [, first[, last]])"
+  endif
+
+  let len = last - first
+
+  while len > 0
+    let half = len / 2
+    let middle = first + half
+    if a:list[middle] < a:val
+      let first = middle + 1
+      let len -= half + 1
+    else
+      let len = half
+    endif
+  endwhile
+  return first
+endfunction
+
+" Function: lh#list#upper_bound(sorted_list, value  [, first[, last]]) {{{3
+function! lh#list#upper_bound(list, val, ...)
+  let first = 0
+  let last = len(a:list)
+  if a:0 >= 1     | let first = a:1
+  elseif a:0 >= 2 | let last = a:2
+  elseif a:0 > 2
+      throw "lh#list#upper_bound: unexpected number of arguments: lh#list#upper_bound(sorted_list, value  [, first[, last]])"
+  endif
+
+  let len = last - first
+
+  while len > 0
+    let half = len / 2
+    let middle = first + half
+    if a:val < a:list[middle]
+      let len = half
+    else
+      let first = middle + 1
+      let len -= half + 1
+    endif
+  endwhile
+  return first
+endfunction
+
+" Function: lh#list#equal_range(sorted_list, value  [, first[, last]]) {{{3
+" @return [f, l], where
+"   f : First position where {value} could be inserted
+"   l : Last position where {value} could be inserted
+function! lh#list#equal_range(list, val, ...)
+  let first = 0
+  let last = len(a:list)
+
+  " Parameters
+  if a:0 >= 1     | let first = a:1
+  elseif a:0 >= 2 | let last  = a:2
+  elseif a:0 > 2
+      throw "lh#list#equal_range: unexpected number of arguments: lh#list#equal_range(sorted_list, value  [, first[, last]])"
+  endif
+
+  " The search loop ( == STLPort's equal_range)
+
+  let len = last - first
+  while len > 0
+    let half = len / 2
+    let middle = first + half
+    if a:list[middle] < a:val
+      let first = middle + 1
+      let len -= half + 1
+    elseif a:val < a:list[middle]
+      let len = half
+    else
+      let left = lh#list#lower_bound(a:list, a:val, first, middle)
+      let right = lh#list#upper_bound(a:list, a:val, middle+1, first+len)
+      return [left, right]
+    endif
+
+    " let predicate = substitute(a:predicate, 'v:val', 'a:list['.idx.']', 'g')
+    " let res = lh#function#execute(a:predicate, a:list[idx])
+  endwhile
+  return [first, first]
+endfunction
+
+" Function: lh#list#not_found(range) {{{3
+" @return whether the range returned from equal_range is empty (i.e. element not fount)
+function! lh#list#not_found(range)
+  return a:range[0] == a:range[1]
+endfunction
+
+" Function: lh#list#unique_sort(list [, func]) {{{3
+" See also http://vim.wikia.com/wiki/Unique_sorting
+"
+" Works like sort(), optionally taking in a comparator (just like the
+" original), except that duplicate entries will be removed.
+" todo: support another argument that act as an equality predicate
+function! lh#list#unique_sort(list, ...)
+  let dictionary = {}
+  for i in a:list
+    let dictionary[string(i)] = i
+  endfor
+  let result = []
+  " echo join(values(dictionary),"\n")
+  if ( exists( 'a:1' ) )
+    let result = sort( values( dictionary ), a:1 )
+  else
+    let result = sort( values( dictionary ) )
+  endif
+  return result
+endfunction
+
+function! lh#list#unique_sort2(list, ...)
+  let list = copy(a:list)
+  if ( exists( 'a:1' ) )
+    call sort(list, a:1 )
+  else
+    call sort(list)
+  endif
+  if len(list) <= 1 | return list | endif
+  let result = [ list[0] ]
+  let last = list[0]
+  let i = 1
+  while i < len(list)
+    if last != list[i]
+      let last = list[i]
+      call add(result, last)
+    endif
+    let i += 1
+  endwhile
+  return result
+endfunction
+
+" Function: lh#list#subset(list, indices) {{{3
+function! lh#list#subset(list, indices)
+  let result=[]
+  for e in a:indices
+    call add(result, a:list[e])
+  endfor
+  return result
+endfunction
+
+" Function: lh#list#remove(list, indices) {{{3
+function! lh#list#remove(list, indices)
+  " assert(is_sorted(indices))
+  let idx = reverse(copy(a:indices))
+  for i in idx
+    call remove(a:list, i)
+  endfor
+  return a:list
+endfunction
+
+" Function: lh#list#intersect(list1, list2) {{{3
+function! lh#list#intersect(list1, list2)
+  let result = copy(a:list1)
+  call filter(result, 'index(a:list2, v:val) >= 0')
+  return result
+
+  for e in a:list1
+    if index(a:list2, e) > 0
+      call result(result, e)
+    endif
+  endfor
+endfunction
+
+" Functions }}}1
+"------------------------------------------------------------------------
+let &cpo=s:cpo_save
+"=============================================================================
+" vim600: set fdm=marker:

dotfiles/vim/bundle/lh-vim-lib/autoload/lh/menu.vim

@@ -0,0 +1,477 @@
+"=============================================================================
+" $Id: menu.vim 520 2012-03-19 18:09:15Z luc.hermitte $
+" File:		autoload/lh/menu.vim                               {{{1
+" Author:	Luc Hermitte <EMAIL:hermitte {at} free {dot} fr>
+"		<URL:http://code.google.com/p/lh-vim/>
+" License:      GPLv3 with exceptions
+"               <URL:http://code.google.com/p/lh-vim/wiki/License>
+" Version:	3.0.0
+" Created:	13th Oct 2006
+" Last Update:	$Date: 2012-03-19 19:09:15 +0100 (Mon, 19 Mar 2012) $ (07th Dec 2010)
+"------------------------------------------------------------------------
+" Description:	
+" 	Defines the global function lh#menu#def_menu
+" 	Aimed at (ft)plugin writers.
+" 
+"------------------------------------------------------------------------
+" Installation:	
+" 	Drop this file into {rtp}/autoload/lh/
+" 	Requires Vim 7+
+" History:	
+" 	v2.0.0:	Moving to vim7
+" 	v2.0.1:	:Toggle echoes the new value
+" 	v2.2.0: Support environment variables
+" 	        Only one :Toggle command is defined.
+" 	v2.2.3: :Toggle can directly set the final value
+" 	       (prefer this way of proceeding to update the menu to the new
+" 	       value)
+" 	       :Toggle suports auto-completion on possible values
+" 	v2.2.6: Toggle menus are silent, but not the actions executed
+"       v3.0.0: GPLv3
+" TODO:		
+" 	* Should the argument to :Toggle be simplified to use the variable name
+" 	instead ? May be a banged :Toggle! could work on the real variable
+" 	name, and on the real value.
+" 	* show all possible values in a sub menu (on demand)
+" }}}1
+"=============================================================================
+
+
+"=============================================================================
+let s:cpo_save=&cpo
+set cpo&vim
+"------------------------------------------------------------------------
+" ## Internal Variables {{{1
+let s:k_Toggle_cmd = 'Toggle'
+if !exists('s:toggle_commands')
+  let s:toggle_commands = {}
+endif
+
+"------------------------------------------------------------------------
+" ## Functions {{{1
+" # Version {{{2
+let s:k_version = 300
+function! lh#menu#version()
+  return s:k_version
+endfunction
+
+" # Debug   {{{2
+let s:verbose = 0
+function! lh#menu#verbose(...)
+  if a:0 > 0 | let s:verbose = a:1 | endif
+  return s:verbose
+endfunction
+
+function! s:Verbose(expr)
+  if exists('s:verbose') && s:verbose
+    echomsg a:expr
+  endif
+endfunction
+
+function! lh#menu#debug(expr)
+  return eval(a:expr)
+endfunction
+
+
+"------------------------------------------------------------------------
+" # Common stuff       {{{2
+" Function: lh#menu#text({text})                             {{{3
+" @return a text to be used in menus where "\" and spaces have been escaped.
+function! lh#menu#text(text)
+  return escape(a:text, '\ ')
+endfunction
+
+" # Toggling menu item {{{2
+" Function: s:Fetch({Data},{key})                          {{{3
+" @param[in] Data Menu-item definition
+" @param[in] key  Table table from which the result will be fetched
+" @return the current value, or text, whose index is Data.idx_crt_value.
+function! s:Fetch(Data, key)
+  let len = len(a:Data[a:key])
+  if a:Data.idx_crt_value >= len | let a:Data.idx_crt_value = 0 | endif
+  let value = a:Data[a:key][a:Data.idx_crt_value]
+  return value
+endfunction
+
+" Function: s:Search({Data},{value})                       {{{3
+" Searches for the index of {value} in {Data.values} list. Return 0 if not
+" found.
+function! s:Search(Data, value)
+  let idx = index(a:Data.values, a:value)
+  " echo a:Data.variable . "[".idx."] == " . a:value
+  return idx > 0 ? idx : 0 " default is first element
+endfunction
+
+" Function: s:SearchText({Data},{value})                   {{{3
+" Searches for the index of {value} in {Data.values/text} list.
+" Returns -1 if not found.
+function! s:SearchText(Data, value)
+  let labels_key = s:MenuKey(a:Data)
+  let list = a:Data[labels_key]
+  let idx = index(list, a:value)
+  return idx
+endfunction
+
+" Function: s:Set({Data})                                  {{{3
+" @param[in,out] Data Menu item definition
+"
+" Sets the global variable associated to the menu item according to the item's
+" current value.
+function! s:Set(Data)
+  let value = a:Data.values[a:Data.idx_crt_value]
+  let variable = a:Data.variable
+  if variable[0] == '$' " environment variabmes
+    exe "let ".variable." = ".string(value)
+  else
+    let g:{variable} = value
+  endif
+  if has_key(a:Data, "actions")
+    let l:Action = a:Data.actions[a:Data.idx_crt_value]
+    if type(l:Action) == type(function('tr'))
+      call l:Action()
+    else
+      exe l:Action
+    endif
+  endif
+  if has_key(a:Data, "hook")
+    let l:Action = a:Data.hook
+    if type(l:Action) == type(function('tr'))
+      call a:Data.hook()
+    else
+      exe l:Action
+    endif
+  endif
+  return value
+endfunction
+
+" Function: s:MenuKey({Data})                              {{{3
+" @return the table name from which the current value name (to dsplay in the
+" menu) must be fetched. 
+" Priority is given to the optional "texts" table over the madatory "values" table.
+function! s:MenuKey(Data)
+  if has_key(a:Data, "texts")
+    let menu_id = "texts"
+  else
+    let menu_id = "values"
+  endif
+  return menu_id
+endfunction
+
+" Function: s:SetTextValue({Data},{TextValue})             {{{3
+" Force the value of the variable to the one associated to the {TextValue}
+" The menu, and the variable are updated in consequence.
+function! s:SetTextValue(Data, text)
+  " Where the texts for values must be fetched
+  let labels_key = s:MenuKey(a:Data)
+  " Fetch the old current value 
+  let old = s:Fetch(a:Data, labels_key)
+  let new_idx = s:SearchText(a:Data, a:text)
+  if -1 == new_idx
+    throw "toggle-menu: unsupported value for {".(a:Data.variable)."}"
+  endif
+  if a:Data.idx_crt_value == new_idx
+    " value unchanged => abort
+    return 
+  endif
+
+  " Remove the entry from the menu
+  call s:ClearMenu(a:Data.menu, old)
+
+  " Cycle/increment the current value
+  let a:Data.idx_crt_value = new_idx
+  " Fetch it
+  let new = s:Fetch(a:Data,labels_key)
+  " Add the updated entry in the menu
+  call s:UpdateMenu(a:Data.menu, new, a:Data.command)
+  " Update the binded global variable
+  let value = s:Set(a:Data)
+  echo a:Data.variable.'='.value
+endfunction
+
+" Function: s:NextValue({Data})                            {{{3
+" Change the value of the variable to the next in the list of value.
+" The menu, and the variable are updated in consequence.
+function! s:NextValue(Data)
+  " Where the texts for values must be fetched
+  let labels_key = s:MenuKey(a:Data)
+  " Fetch the old current value 
+  let old = s:Fetch(a:Data, labels_key)
+
+  " Remove the entry from the menu
+  call s:ClearMenu(a:Data.menu, old)
+
+  " Cycle/increment the current value
+  let a:Data.idx_crt_value += 1
+  " Fetch it
+  let new = s:Fetch(a:Data,labels_key)
+  " Add the updated entry in the menu
+  call s:UpdateMenu(a:Data.menu, new, a:Data.command)
+  " Update the binded global variable
+  let value = s:Set(a:Data)
+  echo a:Data.variable.'='.value
+endfunction
+
+" Function: s:ClearMenu({Menu}, {text})                    {{{3
+" Removes a menu item
+"
+" @param[in] Menu.priority Priority of the new menu-item
+" @param[in] Menu.name     Name of the new menu-item
+" @param[in] text          Text of the previous value of the variable binded
+function! s:ClearMenu(Menu, text)
+  if has('gui_running')
+    let name = substitute(a:Menu.name, '&', '', 'g')
+    let cmd = 'unmenu '.lh#menu#text(name.'<tab>('.a:text.')')
+    silent! exe cmd
+  endif
+endfunction
+
+" Function: s:UpdateMenu({Menu}, {text}, {command})        {{{3
+" Adds a new menu item, with the text associated to the current value in
+" braces.
+"
+" @param[in] Menu.priority Priority of the new menu-item
+" @param[in] Menu.name     Name of the new menu-item
+" @param[in] text          Text of the current value of the variable binded to
+"                          the menu-item
+" @param[in] command       Toggle command to execute when the menu-item is selected
+function! s:UpdateMenu(Menu, text, command)
+  if has('gui_running')
+    let cmd = 'nnoremenu <silent> '.a:Menu.priority.' '.
+	  \ lh#menu#text(a:Menu.name.'<tab>('.a:text.')').
+	  \ ' :'.s:k_Toggle_cmd.' '.a:command."\<cr>"
+    silent! exe cmd
+  endif
+endfunction
+
+" Function: s:SaveData({Data})                             {{{3
+" @param Data Menu-item definition
+" Saves {Data} as s:Data{s:data_id++}. The definition will be used by
+" automatically generated commands.
+" @return s:data_id
+let s:data_id = 0
+function! s:SaveData(Data)
+  let s:Data{s:data_id} = a:Data
+  let id = s:data_id
+  let s:data_id += 1
+  return id
+endfunction
+
+" Function: lh#menu#def_toggle_item({Data})                  {{{3
+" @param Data.idx_crt_value
+" @param Data.definitions == [ {value:, menutext: } ]
+" @param Data.menu        == { name:, position: }
+"
+" Sets a toggle-able menu-item defined by {Data}.
+"
+function! lh#menu#def_toggle_item(Data)
+  " Save the menu data as an internal script variable
+  let id = s:SaveData(a:Data)
+
+  " If the index of the current value hasn't been set, fetch it from the
+  " associated variable
+  if !has_key(a:Data, "idx_crt_value")
+    " Fetch the value of the associated variable
+    let value = lh#option#get(a:Data.variable, 0, 'g')
+    " echo a:Data.variable . " <- " . value
+    " Update the index of the current value
+    let a:Data.idx_crt_value  = s:Search(a:Data, value)
+  endif
+
+  " Name of the auto-matically generated toggle command
+  let cmdName = substitute(a:Data.menu.name, '[^a-zA-Z_]', '', 'g')
+  " Lazy definition of the command
+  if 2 != exists(':'.s:k_Toggle_cmd) 
+    exe 'command! -nargs=+ -complete=custom,lh#menu#_toggle_complete '
+	  \ . s:k_Toggle_cmd . ' :call s:Toggle(<f-args>)'
+  endif
+  " silent exe 'command! -nargs=0 '.cmdName.' :call s:NextValue(s:Data'.id.')'
+  let s:toggle_commands[cmdName] = eval('s:Data'.id)
+  let a:Data["command"] = cmdName
+
+  " Add the menu entry according to the current value
+  call s:UpdateMenu(a:Data.menu, s:Fetch(a:Data, s:MenuKey(a:Data)), cmdName)
+  " Update the associated global variable
+  call s:Set(a:Data)
+endfunction
+
+
+"------------------------------------------------------------------------
+function! s:Toggle(cmdName, ...)
+  if !has_key(s:toggle_commands, a:cmdName)
+    throw "toggle-menu: unknown toggable variable ".a:cmdName
+  endif
+  let data = s:toggle_commands[a:cmdName]
+  if a:0 > 0
+    call s:SetTextValue(data, a:1)
+  else
+    call s:NextValue(data)
+  endif
+endfunction
+
+function! lh#menu#_toggle_complete(ArgLead, CmdLine, CursorPos)
+  let cmdline = split(a:CmdLine)
+  " echomsg "cmd line: " . string(cmdline)." # ". (a:CmdLine =~ ' $')
+  let nb_args = len(cmdline)
+  if (a:CmdLine !~ ' $')
+    let nb_args -= 1
+  endif
+  " echomsg "nb args: ". nb_args
+  if nb_args < 2 
+    return join(keys(s:toggle_commands),"\n")
+  elseif nb_args == 2
+    let variable = cmdline[1]
+    if !has_key(s:toggle_commands, variable)
+      throw "toggle-menu: unknown toggable variable ".variable
+    endif
+    let data = s:toggle_commands[variable]
+    let labels_key = s:MenuKey(data)
+    " echomsg "keys: ".string(data[labels_key])
+    return join(data[labels_key], "\n")
+  else
+    return ''
+  endif
+endfunction
+
+"------------------------------------------------------------------------
+" # IVN Menus          {{{2
+" Function: s:CTRL_O({cmd})                                {{{3
+" Build the command (sequence of ':ex commands') to be executed from
+" INSERT-mode.
+function! s:CTRL_O(cmd)
+  return substitute(a:cmd, '\(^\|<CR>\):', '\1\<C-O>:', 'g')
+endfunction
+
+" Function: lh#menu#is_in_visual_mode()                    {{{3
+function! lh#menu#is_in_visual_mode()
+  return exists('s:is_in_visual_mode') && s:is_in_visual_mode
+endfunction
+
+" Function: lh#menu#_CMD_and_clear_v({cmd})                 {{{3
+" Internal function that executes the command and then clears the @v buffer
+" todo: save and restore @v, 
+function! lh#menu#_CMD_and_clear_v(cmd)
+  try 
+    let s:is_in_visual_mode = 1
+    exe a:cmd
+  finally
+    let @v=''
+    silent! unlet s:is_in_visual_mode
+  endtry
+endfunction
+
+" Function: s:Build_CMD({prefix},{cmd})                    {{{3
+" build the exact command to execute regarding the mode it is dedicated
+function! s:Build_CMD(prefix, cmd)
+  if a:cmd[0] != ':' | return ' ' . a:cmd
+  endif
+  if     a:prefix[0] == "i"  | return ' ' . <SID>CTRL_O(a:cmd)
+  elseif a:prefix[0] == "n"  | return ' ' . a:cmd
+  elseif a:prefix[0] == "v" 
+    if match(a:cmd, ":VCall") == 0
+      return substitute(a:cmd, ':VCall', ' :call', ''). "\<cr>gV"
+      " gV exit select-mode if we where in it!
+    else
+      return
+	    \ " \"vy\<C-C>:call lh#menu#_CMD_and_clear_v('" . 
+	    \ substitute(a:cmd, "<CR>$", '', '') ."')\<cr>"
+    endif
+  elseif a:prefix[0] == "c"  | return " \<C-C>" . a:cmd
+  else                       | return ' ' . a:cmd
+  endif
+endfunction
+
+" Function: lh#menu#map_all({map_type}, [{map args}...)   {{{3
+" map the command to all the modes required
+function! lh#menu#map_all(map_type,...)
+  let nore   = (match(a:map_type, '[aincv]*noremap') != -1) ? "nore" : ""
+  let prefix = matchstr(substitute(a:map_type, nore, '', ''), '[aincv]*')
+  if a:1 == "<buffer>" | let i = 3 | let binding = a:1 . ' ' . a:2
+  else                 | let i = 2 | let binding = a:1
+  endif
+  let binding = '<silent> ' . binding
+  let cmd = a:{i}
+  let i +=  1
+  while i <= a:0
+    let cmd .=  ' ' . a:{i}
+    let i +=  1
+  endwhile
+  let build_cmd = nore . 'map ' . binding
+  while strlen(prefix)
+    if prefix[0] == "a" | let prefix = "incv"
+    else
+      execute prefix[0] . build_cmd . <SID>Build_CMD(prefix[0],cmd)
+      let prefix = strpart(prefix, 1)
+    endif
+  endwhile
+endfunction
+
+" Function: lh#menu#make({prefix},{code},{text},{binding},...) {{{3
+" Build the menu and map its associated binding to all the modes required
+function! lh#menu#make(prefix, code, text, binding, ...)
+  let nore   = (match(a:prefix, '[aincv]*nore') != -1) ? "nore" : ""
+  let prefix = matchstr(substitute(a:prefix, nore, '', ''), '[aincv]*')
+  let b = (a:1 == "<buffer>") ? 1 : 0
+  let i = b + 1 
+  let cmd = a:{i}
+  let i += 1
+  while i <= a:0
+    let cmd .=  ' ' . a:{i}
+    let i += 1
+  endwhile
+  let build_cmd = nore . "menu <silent> " . a:code . ' ' . lh#menu#text(a:text) 
+  if strlen(a:binding) != 0
+    let build_cmd .=  '<tab>' . 
+	  \ substitute(lh#menu#text(a:binding), '&', '\0\0', 'g')
+    if prefix == 'i' && exists('*IMAP')
+      if b != 0
+        call IMAP(a:binding, cmd, &ft)
+      else
+        call IMAP(a:binding, cmd)
+      endif
+    else
+      if b != 0
+        call lh#menu#map_all(prefix.nore."map", ' <buffer> '.a:binding, cmd)
+      else
+        call lh#menu#map_all(prefix.nore."map", a:binding, cmd)
+      endif
+    endif
+  endif
+  if has("gui_running")
+    while strlen(prefix)
+      execute <SID>BMenu(b).prefix[0].build_cmd.<SID>Build_CMD(prefix[0],cmd)
+      let prefix = strpart(prefix, 1)
+    endwhile
+  endif
+endfunction
+
+" Function: s:BMenu({b})                                   {{{3
+" If <buffermenu.vim> is installed and the menu should be local, then the
+" apropriate string is returned.
+function! s:BMenu(b)
+  let res = (a:b && exists(':Bmenu') 
+	\     && (1 == lh#option#get("want_buffermenu_or_global_disable", 1, "bg"))
+	\) ? 'B' : ''
+  " call confirm("BMenu(".a:b.")=".res, '&Ok', 1)
+  return res
+endfunction
+
+" Function: lh#menu#IVN_make(...)                          {{{3
+function! lh#menu#IVN_make(code, text, binding, i_cmd, v_cmd, n_cmd, ...)
+  " nore options
+  let nore_i = (a:0 > 0) ? ((a:1 != 0) ? 'nore' : '') : ''
+  let nore_v = (a:0 > 1) ? ((a:2 != 0) ? 'nore' : '') : ''
+  let nore_n = (a:0 > 2) ? ((a:3 != 0) ? 'nore' : '') : ''
+  " 
+  call lh#menu#make('i'.nore_i,a:code,a:text, a:binding, '<buffer>', a:i_cmd)
+  call lh#menu#make('v'.nore_v,a:code,a:text, a:binding, '<buffer>', a:v_cmd)
+  if strlen(a:n_cmd) != 0
+    call lh#menu#make('n'.nore_n,a:code,a:text, a:binding, '<buffer>', a:n_cmd)
+  endif
+endfunction
+
+"
+" Functions }}}1
+"------------------------------------------------------------------------
+let &cpo=s:cpo_save
+"=============================================================================
+" vim600: set fdm=marker:

dotfiles/vim/bundle/lh-vim-lib/autoload/lh/option.vim

@@ -0,0 +1,127 @@
+"=============================================================================
+" $Id: option.vim 520 2012-03-19 18:09:15Z luc.hermitte $
+" File:		autoload/lh/option.vim                                    {{{1
+" Author:	Luc Hermitte <EMAIL:hermitte {at} free {dot} fr>
+"		<URL:http://code.google.com/p/lh-vim/>
+" License:      GPLv3 with exceptions
+"               <URL:http://code.google.com/p/lh-vim/wiki/License>
+" Version:	3.0.0
+" Created:	24th Jul 2004
+" Last Update:	$Date: 2012-03-19 19:09:15 +0100 (Mon, 19 Mar 2012) $ (07th Oct 2006)
+"------------------------------------------------------------------------
+" Description:
+" 	Defines the global function lh#option#get().
+"       Aimed at (ft)plugin writers.
+" 
+"------------------------------------------------------------------------
+" Installation:
+" 	Drop this file into {rtp}/autoload/lh/
+" 	Requires Vim 7+
+" History:	
+"       v3.0.0
+"       (*) GPLv3
+" 	v2.0.6
+" 	(*) lh#option#add() add values to a vim list |option|
+" 	v2.0.5
+" 	(*) lh#option#get_non_empty() manages Lists and Dictionaries
+" 	(*) lh#option#get() doesn't test emptyness anymore
+" 	v2.0.0
+" 		Code moved from {rtp}/macros/ 
+" }}}1
+"=============================================================================
+
+
+"=============================================================================
+let s:cpo_save=&cpo
+set cpo&vim
+
+"------------------------------------------------------------------------
+" ## Functions {{{1
+" # Debug {{{2
+function! lh#option#verbose(level)
+  let s:verbose = a:level
+endfunction
+
+function! s:Verbose(expr)
+  if exists('s:verbose') && s:verbose
+    echomsg a:expr
+  endif
+endfunction
+
+function! lh#option#debug(expr)
+  return eval(a:expr)
+endfunction
+
+" # Public {{{2
+" Function: lh#option#get(name, default [, scope])            {{{3
+" @return b:{name} if it exists, or g:{name} if it exists, or {default}
+" otherwise
+" The order of the variables checked can be specified through the optional
+" argument {scope}
+function! lh#option#get(name,default,...)
+  let scope = (a:0 == 1) ? a:1 : 'bg'
+  let name = a:name
+  let i = 0
+  while i != strlen(scope)
+    if exists(scope[i].':'.name)
+      " \ && (0 != strlen({scope[i]}:{name}))
+      return {scope[i]}:{name}
+    endif
+    let i += 1
+  endwhile 
+  return a:default
+endfunction
+function! lh#option#Get(name,default,...)
+  let scope = (a:0 == 1) ? a:1 : 'bg'
+  return lh#option#get(a:name, a:default, scope)
+endfunction
+
+function! s:IsEmpty(variable)
+  if     type(a:variable) == type('string') | return 0 == strlen(a:variable)
+  elseif type(a:variable) == type(42)       | return 0 == a:variable
+  elseif type(a:variable) == type([])       | return 0 == len(a:variable)
+  elseif type(a:variable) == type({})       | return 0 == len(a:variable)
+  else                                      | return false
+  endif
+endfunction
+
+" Function: lh#option#get_non_empty(name, default [, scope])  {{{3
+" @return of b:{name}, g:{name}, or {default} the first which exists and is not empty 
+" The order of the variables checked can be specified through the optional
+" argument {scope}
+function! lh#option#get_non_empty(name,default,...)
+  let scope = (a:0 == 1) ? a:1 : 'bg'
+  let name = a:name
+  let i = 0
+  while i != strlen(scope)
+    if exists(scope[i].':'.name) && !s:IsEmpty({scope[i]}:{name})
+      return {scope[i]}:{name}
+    endif
+    let i += 1
+  endwhile 
+  return a:default
+endfunction
+function! lh#option#GetNonEmpty(name,default,...)
+  let scope = (a:0 == 1) ? a:1 : 'bg'
+  return lh#option#get_non_empty(a:name, a:default, scope)
+endfunction
+
+" Function: lh#option#add(name, values)                       {{{3
+" Add fields to a vim option.
+" @param values list of values to add
+" @example let lh#option#add('l:tags', ['.tags'])
+function! lh#option#add(name,values)
+  let values = type(a:values) == type([])
+        \ ? copy(a:values)
+        \ : [a:values]
+  let old = split(eval('&'.a:name), ',')
+  let new = filter(values, 'match(old, v:val) < 0')
+  let val = join(old+new, ',')
+  exe 'let &'.a:name.' = val'
+endfunction
+
+" Functions }}}1
+"------------------------------------------------------------------------
+let &cpo=s:cpo_save
+"=============================================================================
+" vim600: set fdm=marker:

dotfiles/vim/bundle/lh-vim-lib/autoload/lh/path.vim

@@ -0,0 +1,366 @@
+"=============================================================================
+" $Id: path.vim 606 2012-05-31 17:09:46Z luc.hermitte@gmail.com $
+" File:		autoload/lh/path.vim                               {{{1
+" Author:	Luc Hermitte <EMAIL:hermitte {at} free {dot} fr>
+"		<URL:http://code.google.com/p/lh-vim/>
+" License:      GPLv3 with exceptions
+"               <URL:http://code.google.com/p/lh-vim/wiki/License>
+" Version:	3.1.1
+" Created:	23rd Jan 2007
+" Last Update:	$Date
+"------------------------------------------------------------------------
+" Description:	
+"       Functions related to the handling of pathnames
+" 
+"------------------------------------------------------------------------
+" Installation:	
+" 	Drop this file into {rtp}/autoload/lh
+" 	Requires Vim7+
+" History:	
+"	v 1.0.0 First Version
+" 	(*) Functions moved from searchInRuntimeTime  
+" 	v 2.0.1
+" 	(*) lh#path#Simplify() becomes like |simplify()| except for trailing
+" 	v 2.0.2
+" 	(*) lh#path#SelectOne() 
+" 	(*) lh#path#ToRelative() 
+" 	v 2.0.3
+" 	(*) lh#path#GlobAsList() 
+" 	v 2.0.4
+" 	(*) lh#path#StripStart()
+" 	v 2.0.5
+" 	(*) lh#path#StripStart() interprets '.' as getcwd()
+" 	v 2.2.0
+" 	(*) new functions: lh#path#common(), lh#path#to_dirname(),
+" 	    lh#path#depth(), lh#path#relative_to(), lh#path#to_regex(),
+" 	    lh#path#find()
+" 	(*) lh#path#simplify() fixed
+" 	(*) lh#path#to_relative() use simplify()
+" 	v 2.2.2
+" 	(*) lh#path#strip_common() fixed
+" 	(*) lh#path#simplify() new optional parameter: make_relative_to_pwd
+" 	v 2.2.5
+" 	(*) fix lh#path#to_dirname('') -> return ''
+" 	v 2.2.6
+" 	(*) fix lh#path#glob_as_list() does not return the same path several
+" 	    times
+" 	v 2.2.7
+" 	(*) fix lh#path#strip_start() to strip as much as possible.
+" 	(*) lh#path#glob_as_list() changed to handle **
+"       v 3.0.0
+"       (*) GPLv3
+"       v 3.1.0
+"       (*) lh#path#glob_as_list accepts a new option: mustSort which value
+"       true by default.
+"       v 3.1.1
+"       (*) lh#path#strip_start() shall support very big lists of dirnames now.
+" TODO:
+"       (*) Decide what #depth('../../bar') shall return
+"       (*) Fix #simplify('../../bar')
+" }}}1
+"=============================================================================
+
+
+"=============================================================================
+" Avoid global reinclusion {{{1
+let s:cpo_save=&cpo
+set cpo&vim
+
+"=============================================================================
+" ## Functions {{{1
+" # Version {{{2
+let s:k_version = 310
+function! lh#path#version()
+  return s:k_version
+endfunction
+
+" # Debug {{{2
+let s:verbose = 0
+function! lh#path#verbose(...)
+  if a:0 > 0 | let s:verbose = a:1 | endif
+  return s:verbose
+endfunction
+
+function! s:Verbose(expr)
+  if s:verbose
+    echomsg a:expr
+  endif
+endfunction
+
+function! lh#path#debug(expr)
+  return eval(a:expr)
+endfunction
+
+"=============================================================================
+" # Public {{{2
+" Function: lh#path#simplify({pathname}, [make_relative_to_pwd=true]) {{{3
+" Like |simplify()|, but also strip the leading './'
+" It seems unable to simplify '..\' when compiled without +shellslash
+function! lh#path#simplify(pathname, ...)
+  let make_relative_to_pwd = a:0 == 0 || a:1 == 1
+  let pathname = simplify(a:pathname)
+  let pathname = substitute(pathname, '^\%(\.[/\\]\)\+', '', '')
+  let pathname = substitute(pathname, '\([/\\]\)\%(\.[/\\]\)\+', '\1', 'g')
+  if make_relative_to_pwd
+    let pwd = getcwd().'/'
+    let pathname = substitute(pathname, '^'.lh#path#to_regex(pwd), '', 'g')
+  endif
+  return pathname
+endfunction
+function! lh#path#Simplify(pathname)
+  return lh#path#simplify(a:pathname)
+endfunction
+
+" Function: lh#path#common({pathnames}) {{{3
+" Find the common leading path between all pathnames
+function! lh#path#common(pathnames)
+  " assert(len(pathnames)) > 1
+  let common = a:pathnames[0]
+  let i = 1
+  while i < len(a:pathnames)
+    let fcrt = a:pathnames[i]
+    " pathnames should not contain @
+    " let common = matchstr(common.'@@'.fcrt, '^\zs\(.*[/\\]\)\ze.\{-}@@\1.*$')
+    let common = matchstr(common.'@@'.fcrt, '^\zs\(.*\>\)\ze.\{-}@@\1\>.*$')
+    if strlen(common) == 0
+      " No need to further checks
+      break
+    endif
+    let i += 1
+  endwhile
+  return common
+endfunction
+
+" Function: lh#path#strip_common({pathnames}) {{{3
+" Find the common leading path between all pathnames, and strip it
+function! lh#path#strip_common(pathnames)
+  " assert(len(pathnames)) > 1
+  let common = lh#path#common(a:pathnames)
+  let common = lh#path#to_dirname(common)
+  let l = strlen(common)
+  if l == 0
+    return a:pathnames
+  else
+  let pathnames = a:pathnames
+  call map(pathnames, 'strpart(v:val, '.l.')' )
+  return pathnames
+  endif
+endfunction
+function! lh#path#StripCommon(pathnames)
+  return lh#path#strip_common(a:pathnames)
+endfunction
+
+" Function: lh#path#is_absolute_path({path}) {{{3
+function! lh#path#is_absolute_path(path)
+  return a:path =~ '^/'
+	\ . '\|^[a-zA-Z]:[/\\]'
+	\ . '\|^[/\\]\{2}'
+  "    Unix absolute path 
+  " or Windows absolute path
+  " or UNC path
+endfunction
+function! lh#path#IsAbsolutePath(path)
+  return lh#path#is_absolute_path(a:path)
+endfunction
+
+" Function: lh#path#is_url({path}) {{{3
+function! lh#path#is_url(path)
+  " todo: support UNC paths and other urls
+  return a:path =~ '^\%(https\=\|s\=ftp\|dav\|fetch\|file\|rcp\|rsynch\|scp\)://'
+endfunction
+function! lh#path#IsURL(path)
+  return lh#path#is_url(a:path)
+endfunction
+
+" Function: lh#path#select_one({pathnames},{prompt}) {{{3
+function! lh#path#select_one(pathnames, prompt)
+  if len(a:pathnames) > 1
+    let simpl_pathnames = deepcopy(a:pathnames) 
+    let simpl_pathnames = lh#path#strip_common(simpl_pathnames)
+    let simpl_pathnames = [ '&Cancel' ] + simpl_pathnames
+    " Consider guioptions+=c is case of difficulties with the gui
+    let selection = confirm(a:prompt, join(simpl_pathnames,"\n"), 1, 'Question')
+    let file = (selection == 1) ? '' : a:pathnames[selection-2]
+    return file
+  elseif len(a:pathnames) == 0
+    return ''
+  else
+    return a:pathnames[0]
+  endif
+endfunction
+function! lh#path#SelectOne(pathnames, prompt)
+  return lh#path#select_one(a:pathnames, a:prompt)
+endfunction
+
+" Function: lh#path#to_relative({pathname}) {{{3
+function! lh#path#to_relative(pathname)
+  let newpath = fnamemodify(a:pathname, ':p:.')
+  let newpath = simplify(newpath)
+  return newpath
+endfunction
+function! lh#path#ToRelative(pathname)
+  return lh#path#to_relative(a:pathname)
+endfunction
+
+" Function: lh#path#to_dirname({dirname}) {{{3
+" todo: use &shellslash
+function! lh#path#to_dirname(dirname)
+  let dirname = a:dirname . (empty(a:dirname) || a:dirname[-1:] =~ '[/\\]' ? '' : '/')
+  return dirname
+endfunction
+
+" Function: lh#path#depth({dirname}) {{{3
+" todo: make a choice about "negative" paths like "../../foo"
+function! lh#path#depth(dirname)
+  if empty(a:dirname) | return 0 | endif
+  let dirname = lh#path#to_dirname(a:dirname)
+  let dirname = lh#path#simplify(dirname)
+  if lh#path#is_absolute_path(dirname)
+    let dirname = matchstr(dirname, '.\{-}[/\\]\zs.*')
+  endif
+  let depth = len(substitute(dirname, '[^/\\]\+[/\\]', '#', 'g'))
+  return depth
+endfunction
+
+" Function: lh#path#relative_to({from}, {to}) {{{3
+" @param two directories
+" @return a directories delta that ends with a '/' (may depends on
+" &shellslash)
+function! lh#path#relative_to(from, to)
+  " let from = fnamemodify(a:from, ':p')
+  " let to   = fnamemodify(a:to  , ':p')
+  let from = lh#path#to_dirname(a:from)
+  let to   = lh#path#to_dirname(a:to  )
+  let [from, to] = lh#path#strip_common([from, to])
+  let nb_up =  lh#path#depth(from)
+  return repeat('../', nb_up).to
+
+  " cannot rely on :cd (as it alters things, and doesn't work with
+  " non-existant paths)
+  let pwd = getcwd()
+  exe 'cd '.a:to
+  let res = lh#path#to_relative(a:from)
+  exe 'cd '.pwd
+  return res
+endfunction
+
+" Function: lh#path#glob_as_list({pathslist}, {expr} [, mustSort=1]) {{{3
+function! s:GlobAsList(pathslist, expr,  mustSort)
+  let pathslist = type(a:pathslist) == type([]) ? join(a:pathslist, ',') : a:pathslist
+  let sResult = globpath(pathslist, a:expr)
+  let lResult = split(sResult, '\n')
+  " workaround a non feature of wildignore: it does not ignore directories
+  for ignored_pattern in split(&wildignore,',')
+    if stridx(ignored_pattern,'/') != -1
+      call filter(lResult, 'v:val !~ '.string(ignored_pattern))
+    endif
+  endfor
+  return a:mustSort ? lh#list#unique_sort(lResult) : lResult
+endfunction
+
+function! lh#path#glob_as_list(pathslist, expr, ...)
+  let mustSort = (a:0 > 0) ? (a:1) : 0
+  if type(a:expr) == type('string')
+    return s:GlobAsList(a:pathslist, a:expr, mustSort)
+  elseif type(a:expr) == type([])
+    let res = []
+    for expr in a:expr
+      call extend(res, s:GlobAsList(a:pathslist, expr, mustSort))
+    endfor
+    return res
+  else
+    throw "Unexpected type for a:expression"
+  endif
+endfunction
+function! lh#path#GlobAsList(pathslist, expr)
+  return lh#path#glob_as_list(a:pathslist, a:expr)
+endfunction
+
+" Function: lh#path#strip_start({pathname}, {pathslist}) {{{3
+" Strip occurrence of paths from {pathslist} in {pathname}
+" @param[in] {pathname} name to simplify
+" @param[in] {pathslist} list of pathname (can be a |string| of pathnames
+" separated by ",", of a |List|).
+function! lh#path#strip_start(pathname, pathslist)
+  if type(a:pathslist) == type('string')
+    " let strip_re = escape(a:pathslist, '\\.')
+    " let strip_re = '^' . substitute(strip_re, ',', '\\|^', 'g')
+    let pathslist = split(a:pathslist, ',')
+  elseif type(a:pathslist) == type([])
+    let pathslist = deepcopy(a:pathslist)
+  else
+    throw "Unexpected type for a:pathname"
+  endif
+
+  " apply a realpath like operation
+  let nb_paths = len(pathslist) " set before the loop
+  let i = 0
+  while i != nb_paths
+    if pathslist[i] =~ '^\.\%(/\|$\)'
+      let path2 = getcwd().pathslist[i][1:]
+      call add(pathslist, path2)
+    endif
+    let i += 1
+  endwhile
+  " replace path separators by a regex that can match them
+  call map(pathslist, 'substitute(v:val, "[\\\\/]", "[\\\\/]", "g")')
+  " echomsg string(pathslist)
+  " escape .
+  call map(pathslist, '"^".escape(v:val, ".")')
+  " handle "**" as anything
+  call map(pathslist, 'substitute(v:val, "\\*\\*", "\\\\%([^\\\\/]*[\\\\/]\\\\)*", "g")')
+  " reverse the list to use the real best match, which is "after"
+  call reverse(pathslist)
+  if 0
+    " build the strip regex
+    let strip_re = join(pathslist, '\|')
+    " echomsg strip_re
+    let best_match = substitute(a:pathname, '\%('.strip_re.'\)[/\\]\=', '', '')
+  else
+    let best_match = ''
+    for path in pathslist
+      let a_match = substitute(a:pathname, '\%('.path.'\)[/\\]\=', '', '')
+      if len(a_match) < len(best_match) || empty(best_match)
+        let best_match = a_match
+      endif
+    endfor
+  endif
+  return best_match
+endfunction
+function! lh#path#StripStart(pathname, pathslist)
+  return lh#path#strip_start(a:pathname, a:pathslist)
+endfunction
+
+" Function: lh#path#to_regex({pathname}) {{{3
+function! lh#path#to_regex(path)
+  let regex = substitute(a:path, '[/\\]', '[/\\\\]', 'g')
+  return regex
+endfunction
+
+" Function: lh#path#find({pathname}, {regex}) {{{3
+function! lh#path#find(paths, regex)
+  let paths = (type(a:paths) == type([]))
+	\ ? (a:paths) 
+	\ : split(a:paths,',')
+  for path in paths
+    if match(path ,a:regex) != -1
+      return path
+    endif
+  endfor
+  return ''
+endfunction
+
+" Function: lh#path#vimfiles() {{{3
+function! lh#path#vimfiles()
+  let expected_win = $HOME . '/vimfiles'
+  let expected_nix = $HOME . '/.vim'
+  let what =  lh#path#to_regex($HOME.'/').'\(vimfiles\|.vim\)'
+  " Comment what
+  let z = lh#path#find(&rtp,what)
+  return z
+endfunction
+" }}}1
+"=============================================================================
+let &cpo=s:cpo_save
+"=============================================================================
+" vim600: set fdm=marker:

dotfiles/vim/bundle/lh-vim-lib/autoload/lh/position.vim

@@ -0,0 +1,96 @@
+"=============================================================================
+" $Id: position.vim 520 2012-03-19 18:09:15Z luc.hermitte $
+" File:		autoload/lh/position.vim                               {{{1
+" Author:	Luc Hermitte <EMAIL:hermitte {at} free {dot} fr>
+"		<URL:http://code.google.com/p/lh-vim/>
+" License:      GPLv3 with exceptions
+"               <URL:http://code.google.com/p/lh-vim/wiki/License>
+" Version:	3.0.0
+" Created:	05th Sep 2007
+" Last Update:	$Date: 2012-03-19 19:09:15 +0100 (Mon, 19 Mar 2012) $ (05th Sep 2007)
+"------------------------------------------------------------------------
+" Description:	«description»
+" 
+"------------------------------------------------------------------------
+" Installation:
+" 	Drop it into {rtp}/autoload/lh/
+" 	Vim 7+ required.
+" History:	«history»
+" 	v1.0.0:
+" 		Creation
+"       v3.0.0: GPLv3
+" TODO:		
+" }}}1
+"=============================================================================
+
+
+"=============================================================================
+let s:cpo_save=&cpo
+set cpo&vim
+"------------------------------------------------------------------------
+" ## Functions {{{1
+" # Debug {{{2
+function! lh#position#verbose(level)
+  let s:verbose = a:level
+endfunction
+
+function! s:Verbose(expr)
+  if exists('s:verbose') && s:verbose
+    echomsg a:expr
+  endif
+endfunction
+
+function! lh#position#debug(expr)
+  return eval(a:expr)
+endfunction
+
+
+"------------------------------------------------------------------------
+" # Public {{{2
+" Function: lh#position#is_before {{{3
+" @param[in] positions as those returned from |getpos()|
+" @return whether lhs_pos is before rhs_pos
+function! lh#position#is_before(lhs_pos, rhs_pos)
+  if a:lhs_pos[0] != a:rhs_pos[0]
+    throw "Positions from incompatible buffers can't be ordered"
+  endif
+  "1 test lines
+  "2 test cols
+  let before 
+	\ = (a:lhs_pos[1] == a:rhs_pos[1])
+	\ ? (a:lhs_pos[2] < a:rhs_pos[2])
+	\ : (a:lhs_pos[1] < a:rhs_pos[1])
+  return before
+endfunction
+function! lh#position#IsBefore(lhs_pos, rhs_pos)
+  return lh#position#is_before(a:lhs_pos, a:rhs_pos)
+endfunction
+
+
+" Function: lh#position#char_at_mark {{{3
+" @return the character at a given mark (|mark|)
+function! lh#position#char_at_mark(mark)
+  let c = getline(a:mark)[col(a:mark)-1]
+  return c
+endfunction
+function! lh#position#CharAtMark(mark)
+return lh#position#char_at_mark(a:mark)
+endfunction
+
+" Function: lh#position#char_at_pos {{{3
+" @return the character at a given position (|getpos()|)
+function! lh#position#char_at_pos(pos)
+  let c = getline(a:pos[1])[(a:pos[2])-1]
+  return c
+endfunction
+function! lh#position#CharAtPos(pos)
+  return  lh#position#char_at_pos(a:pos)
+endfunction
+
+
+
+" Functions }}}1
+"------------------------------------------------------------------------
+let &cpo=s:cpo_save
+"=============================================================================
+" vim600: set fdm=marker:

dotfiles/vim/bundle/lh-vim-lib/autoload/lh/syntax.vim

@@ -0,0 +1,153 @@
+"=============================================================================
+" $Id: syntax.vim 558 2012-04-10 08:00:00Z luc.hermitte $
+" File:		autoload/lh/syntax.vim                               {{{1
+" Author:	Luc Hermitte <EMAIL:hermitte {at} free {dot} fr>
+"		<URL:http://code.google.com/p/lh-vim/>
+" License:      GPLv3 with exceptions
+"               <URL:http://code.google.com/p/lh-vim/wiki/License>
+" Version:	3.1.0
+" Created:	05th Sep 2007
+" Last Update:	$Date: 2012-04-10 10:00:00 +0200 (mar 10 avr 2012) $ (05th Sep 2007)
+"------------------------------------------------------------------------
+" Description:	«description»
+" 
+"------------------------------------------------------------------------
+" Installation:
+" 	Drop it into {rtp}/autoload/lh/
+" 	Vim 7+ required.
+" History:	«history»
+" 	v1.0.0:
+" 		Creation ;
+" 		Functions moved from lhVimSpell
+"       v3.0.0: GPLv3
+"       v3.1.0: lh#syntax#is_a_comment()
+" TODO:
+" 	function, to inject "contained", see lhVimSpell approach
+" }}}1
+"=============================================================================
+
+
+"=============================================================================
+let s:cpo_save=&cpo
+set cpo&vim
+"------------------------------------------------------------------------
+" ## Functions {{{1
+" # Debug {{{2
+function! lh#syntax#verbose(level)
+  let s:verbose = a:level
+endfunction
+
+function! s:Verbose(expr)
+  if exists('s:verbose') && s:verbose
+    echomsg a:expr
+  endif
+endfunction
+
+function! lh#syntax#debug(expr)
+  return eval(a:expr)
+endfunction
+
+" # Public {{{2
+" Functions: Show name of the syntax kind of a character {{{3
+function! lh#syntax#name_at(l,c, ...)
+  let what = a:0 > 0 ? a:1 : 0
+  return synIDattr(synID(a:l, a:c, what),'name')
+endfunction
+function! lh#syntax#NameAt(l,c, ...)
+  let what = a:0 > 0 ? a:1 : 0
+  return lh#syntax#name_at(a:l, a:c, what)
+endfunction
+
+function! lh#syntax#name_at_mark(mark, ...)
+  let what = a:0 > 0 ? a:1 : 0
+  return lh#syntax#name_at(line(a:mark), col(a:mark), what)
+endfunction
+function! lh#syntax#NameAtMark(mark, ...)
+  let what = a:0 > 0 ? a:1 : 0
+  return lh#syntax#name_at_mark(a:mark, what)
+endfunction
+
+" Functions: skip string, comment, character, doxygen {{{3
+func! lh#syntax#skip_at(l,c)
+  return lh#syntax#name_at(a:l,a:c) =~? 'string\|comment\|character\|doxygen'
+endfun
+func! lh#syntax#SkipAt(l,c)
+  return lh#syntax#skip_at(a:l,a:c)
+endfun
+
+func! lh#syntax#skip()
+  return lh#syntax#skip_at(line('.'), col('.'))
+endfun
+func! lh#syntax#Skip()
+  return lh#syntax#skip()
+endfun
+
+func! lh#syntax#skip_at_mark(mark)
+  return lh#syntax#skip_at(line(a:mark), col(a:mark))
+endfun
+func! lh#syntax#SkipAtMark(mark)
+  return lh#syntax#skip_at_mark(a:mark)
+endfun
+
+" Command: :SynShow Show current syntax kind                      {{{3
+command! SynShow echo 'hi<'.lh#syntax#name_at_mark('.',1).'> trans<'
+      \ lh#syntax#name_at_mark('.',0).'> lo<'.
+      \ synIDattr(synIDtrans(synID(line('.'), col('.'), 1)), 'name').'>   ## '
+      \ lh#list#transform(synstack(line("."), col(".")), [], 'synIDattr(v:1_, "name")')
+
+
+" Function: lh#syntax#list_raw(name) : string                     {{{3
+function! lh#syntax#list_raw(name)
+  let a_save = @a
+  try
+    redir @a
+    exe 'silent! syn list '.a:name
+    redir END
+    let res = @a
+  finally
+    let @a = a_save
+  endtry
+  return res
+endfunction
+
+" Function: lh#syntax#list(name) : List                           {{{3
+function! lh#syntax#list(name)
+  let raw = lh#syntax#list_raw(a:name)
+  let res = [] 
+  let lines = split(raw, '\n')
+  let started = 0
+  for l in lines
+    if started
+      let li = (l =~ 'links to') ? '' : l
+    elseif l =~ 'xxx'
+      let li = matchstr(l, 'xxx\s*\zs.*')
+      let started = 1
+    else
+      let li = ''
+    endif
+    if strlen(li) != 0
+      let li = substitute(li, 'contained\S*\|transparent\|nextgroup\|skipwhite\|skipnl\|skipempty', '', 'g')
+      let kinds = split(li, '\s\+')
+      call extend(res, kinds)
+    endif
+  endfor
+  return res
+endfunction
+
+" Function: lh#syntax#is_a_comment(mark) : bool                   {{{3
+function! lh#syntax#is_a_comment(mark)
+  let stack = synstack(line(a:mark), col(a:mark))
+  for syn in stack
+    if synIDattr(syn, 'name') =~? 'comment'
+      return 1
+    endif
+  endfor
+  return 0
+endfunction
+
+
+" Functions }}}1
+"------------------------------------------------------------------------
+let &cpo=s:cpo_save
+"=============================================================================
+" vim600: set fdm=marker:

dotfiles/vim/bundle/lh-vim-lib/autoload/lh/visual.vim

@@ -0,0 +1,58 @@
+"=============================================================================
+" $Id$
+" File:		autoload/lh/visual.vim                               {{{1
+" Author:	Luc Hermitte <EMAIL:hermitte {at} free {dot} fr>
+"		<URL:http://code.google.com/p/lh-vim/>
+" License:      GPLv3 with exceptions
+"               <URL:http://code.google.com/p/lh-vim/wiki/License>
+" Version:	3.0.0
+" Created:	08th Sep 2008
+" Last Update:	$Date$
+"------------------------------------------------------------------------
+" 	Helpers functions releated to the visual mode
+" 
+"------------------------------------------------------------------------
+" 	Drop it into {rtp}/autoload/lh/
+" 	Vim 7+ required.
+" History:	
+"       v3.0.0: GPLv3
+" 	v2.2.5: lh#visual#cut()
+" 	v2.0.6: First appearance
+" TODO:		«missing features»
+" }}}1
+"=============================================================================
+
+let s:cpo_save=&cpo
+set cpo&vim
+"------------------------------------------------------------------------
+" Functions {{{1
+
+" Function: lh#visual#selection()                              {{{3
+" @return the text currently selected
+function! lh#visual#selection()
+  try
+    let a_save = @a
+    normal! gv"ay
+    return @a
+  finally
+    let @a = a_save
+  endtry
+endfunction
+
+" Function: lh#visual#cut()                                    {{{3
+" @return and delete the text currently selected
+function! lh#visual#cut()
+  try
+    let a_save = @a
+    normal! gv"ad
+    return @a
+  finally
+    let @a = a_save
+  endtry
+endfunction
+
+" Functions }}}1
+"------------------------------------------------------------------------
+let &cpo=s:cpo_save
+"=============================================================================
+" vim600: set fdm=marker:

dotfiles/vim/bundle/lh-vim-lib/doc/tags

@@ -0,0 +1,139 @@
+[gb]:want_buffermenu_or_global_disable	lh-vim-lib.txt	/*[gb]:want_buffermenu_or_global_disable*
+lh#askvim#Exe()	lh-vim-lib.txt	/*lh#askvim#Exe()*
+lh#askvim#exe()	lh-vim-lib.txt	/*lh#askvim#exe()*
+lh#askvim#menu()	lh-vim-lib.txt	/*lh#askvim#menu()*
+lh#buffer#Find()	lh-vim-lib.txt	/*lh#buffer#Find()*
+lh#buffer#Jump()	lh-vim-lib.txt	/*lh#buffer#Jump()*
+lh#buffer#Scratch()	lh-vim-lib.txt	/*lh#buffer#Scratch()*
+lh#buffer#dialog#	lh-vim-lib.txt	/*lh#buffer#dialog#*
+lh#buffer#dialog#add_help()	lh-vim-lib.txt	/*lh#buffer#dialog#add_help()*
+lh#buffer#dialog#new()	lh-vim-lib.txt	/*lh#buffer#dialog#new()*
+lh#buffer#dialog#quit()	lh-vim-lib.txt	/*lh#buffer#dialog#quit()*
+lh#buffer#dialog#select()	lh-vim-lib.txt	/*lh#buffer#dialog#select()*
+lh#buffer#dialog#update()	lh-vim-lib.txt	/*lh#buffer#dialog#update()*
+lh#buffer#find()	lh-vim-lib.txt	/*lh#buffer#find()*
+lh#buffer#jump()	lh-vim-lib.txt	/*lh#buffer#jump()*
+lh#buffer#list()	lh-vim-lib.txt	/*lh#buffer#list()*
+lh#buffer#scratch()	lh-vim-lib.txt	/*lh#buffer#scratch()*
+lh#command#Fargs2String()	lh-vim-lib.txt	/*lh#command#Fargs2String()*
+lh#command#complete()	lh-vim-lib.txt	/*lh#command#complete()*
+lh#command#new()	lh-vim-lib.txt	/*lh#command#new()*
+lh#common#CheckDeps()	lh-vim-lib.txt	/*lh#common#CheckDeps()*
+lh#common#ErrorMsg()	lh-vim-lib.txt	/*lh#common#ErrorMsg()*
+lh#common#WarningMsg()	lh-vim-lib.txt	/*lh#common#WarningMsg()*
+lh#common#check_deps()	lh-vim-lib.txt	/*lh#common#check_deps()*
+lh#common#echomsgMultilines()	lh-vim-lib.txt	/*lh#common#echomsgMultilines()*
+lh#common#echomsg_multilines()	lh-vim-lib.txt	/*lh#common#echomsg_multilines()*
+lh#common#error_msg()	lh-vim-lib.txt	/*lh#common#error_msg()*
+lh#common#warning_msg()	lh-vim-lib.txt	/*lh#common#warning_msg()*
+lh#encoding#at()	lh-vim-lib.txt	/*lh#encoding#at()*
+lh#encoding#iconv()	lh-vim-lib.txt	/*lh#encoding#iconv()*
+lh#encoding#strlen()	lh-vim-lib.txt	/*lh#encoding#strlen()*
+lh#encoding#strpart()	lh-vim-lib.txt	/*lh#encoding#strpart()*
+lh#event#RegisterForOneExecutionAt()	lh-vim-lib.txt	/*lh#event#RegisterForOneExecutionAt()*
+lh#event#register_for_one_execution_at()	lh-vim-lib.txt	/*lh#event#register_for_one_execution_at()*
+lh#float#arg_max()	lh-vim-lib.txt	/*lh#float#arg_max()*
+lh#float#arg_min()	lh-vim-lib.txt	/*lh#float#arg_min()*
+lh#float#max()	lh-vim-lib.txt	/*lh#float#max()*
+lh#float#min()	lh-vim-lib.txt	/*lh#float#min()*
+lh#function#bind()	lh-vim-lib.txt	/*lh#function#bind()*
+lh#function#execute()	lh-vim-lib.txt	/*lh#function#execute()*
+lh#function#prepare()	lh-vim-lib.txt	/*lh#function#prepare()*
+lh#graph#tsort#breadth()	lh-vim-lib.txt	/*lh#graph#tsort#breadth()*
+lh#graph#tsort#depth()	lh-vim-lib.txt	/*lh#graph#tsort#depth()*
+lh#icomplete#run()	lh-vim-lib.txt	/*lh#icomplete#run()*
+lh#list#Find_if()	lh-vim-lib.txt	/*lh#list#Find_if()*
+lh#list#Match()	lh-vim-lib.txt	/*lh#list#Match()*
+lh#list#Transform()	lh-vim-lib.txt	/*lh#list#Transform()*
+lh#list#accumulate()	lh-vim-lib.txt	/*lh#list#accumulate()*
+lh#list#copy_if()	lh-vim-lib.txt	/*lh#list#copy_if()*
+lh#list#equal_range()	lh-vim-lib.txt	/*lh#list#equal_range()*
+lh#list#find_if()	lh-vim-lib.txt	/*lh#list#find_if()*
+lh#list#intersect()	lh-vim-lib.txt	/*lh#list#intersect()*
+lh#list#lower_bound()	lh-vim-lib.txt	/*lh#list#lower_bound()*
+lh#list#match()	lh-vim-lib.txt	/*lh#list#match()*
+lh#list#matches()	lh-vim-lib.txt	/*lh#list#matches()*
+lh#list#not_found()	lh-vim-lib.txt	/*lh#list#not_found()*
+lh#list#remove()	lh-vim-lib.txt	/*lh#list#remove()*
+lh#list#subset()	lh-vim-lib.txt	/*lh#list#subset()*
+lh#list#transform()	lh-vim-lib.txt	/*lh#list#transform()*
+lh#list#transform_if()	lh-vim-lib.txt	/*lh#list#transform_if()*
+lh#list#unique_sort()	lh-vim-lib.txt	/*lh#list#unique_sort()*
+lh#list#unique_sort2()	lh-vim-lib.txt	/*lh#list#unique_sort2()*
+lh#list#upper_bound()	lh-vim-lib.txt	/*lh#list#upper_bound()*
+lh#menu#IVN_make()	lh-vim-lib.txt	/*lh#menu#IVN_make()*
+lh#menu#def_toggle_item()	lh-vim-lib.txt	/*lh#menu#def_toggle_item()*
+lh#menu#is_in_visual_mode()	lh-vim-lib.txt	/*lh#menu#is_in_visual_mode()*
+lh#menu#make()	lh-vim-lib.txt	/*lh#menu#make()*
+lh#menu#make()_modes	lh-vim-lib.txt	/*lh#menu#make()_modes*
+lh#menu#map_all()	lh-vim-lib.txt	/*lh#menu#map_all()*
+lh#menu#text()	lh-vim-lib.txt	/*lh#menu#text()*
+lh#option#Get()	lh-vim-lib.txt	/*lh#option#Get()*
+lh#option#GetNonEmpty()	lh-vim-lib.txt	/*lh#option#GetNonEmpty()*
+lh#option#get()	lh-vim-lib.txt	/*lh#option#get()*
+lh#option#get_non_empty()	lh-vim-lib.txt	/*lh#option#get_non_empty()*
+lh#path#GlobAsList()	lh-vim-lib.txt	/*lh#path#GlobAsList()*
+lh#path#IsAbsolutePath()	lh-vim-lib.txt	/*lh#path#IsAbsolutePath()*
+lh#path#IsURL()	lh-vim-lib.txt	/*lh#path#IsURL()*
+lh#path#SelectOne()	lh-vim-lib.txt	/*lh#path#SelectOne()*
+lh#path#Simplify()	lh-vim-lib.txt	/*lh#path#Simplify()*
+lh#path#StripCommon()	lh-vim-lib.txt	/*lh#path#StripCommon()*
+lh#path#StripStart()	lh-vim-lib.txt	/*lh#path#StripStart()*
+lh#path#ToRelative()	lh-vim-lib.txt	/*lh#path#ToRelative()*
+lh#path#common()	lh-vim-lib.txt	/*lh#path#common()*
+lh#path#depth()	lh-vim-lib.txt	/*lh#path#depth()*
+lh#path#dirname()	lh-vim-lib.txt	/*lh#path#dirname()*
+lh#path#find()	lh-vim-lib.txt	/*lh#path#find()*
+lh#path#glob_as_list()	lh-vim-lib.txt	/*lh#path#glob_as_list()*
+lh#path#is_absolute_path()	lh-vim-lib.txt	/*lh#path#is_absolute_path()*
+lh#path#is_url()	lh-vim-lib.txt	/*lh#path#is_url()*
+lh#path#relative_to()	lh-vim-lib.txt	/*lh#path#relative_to()*
+lh#path#select_one()	lh-vim-lib.txt	/*lh#path#select_one()*
+lh#path#simplify()	lh-vim-lib.txt	/*lh#path#simplify()*
+lh#path#strip_common()	lh-vim-lib.txt	/*lh#path#strip_common()*
+lh#path#strip_start()	lh-vim-lib.txt	/*lh#path#strip_start()*
+lh#path#to_regex()	lh-vim-lib.txt	/*lh#path#to_regex()*
+lh#path#to_relative()	lh-vim-lib.txt	/*lh#path#to_relative()*
+lh#position#CharAtMark()	lh-vim-lib.txt	/*lh#position#CharAtMark()*
+lh#position#CharAtPos()	lh-vim-lib.txt	/*lh#position#CharAtPos()*
+lh#position#IsBefore()	lh-vim-lib.txt	/*lh#position#IsBefore()*
+lh#position#char_at_mark()	lh-vim-lib.txt	/*lh#position#char_at_mark()*
+lh#position#char_at_pos()	lh-vim-lib.txt	/*lh#position#char_at_pos()*
+lh#position#is_before()	lh-vim-lib.txt	/*lh#position#is_before()*
+lh#syntax#NameAt()	lh-vim-lib.txt	/*lh#syntax#NameAt()*
+lh#syntax#NameAtMark()	lh-vim-lib.txt	/*lh#syntax#NameAtMark()*
+lh#syntax#Skip()	lh-vim-lib.txt	/*lh#syntax#Skip()*
+lh#syntax#SkipAt()	lh-vim-lib.txt	/*lh#syntax#SkipAt()*
+lh#syntax#SkipAtMark()	lh-vim-lib.txt	/*lh#syntax#SkipAtMark()*
+lh#syntax#is_a_comment()	lh-vim-lib.txt	/*lh#syntax#is_a_comment()*
+lh#syntax#list()	lh-vim-lib.txt	/*lh#syntax#list()*
+lh#syntax#list_raw()	lh-vim-lib.txt	/*lh#syntax#list_raw()*
+lh#syntax#name_at()	lh-vim-lib.txt	/*lh#syntax#name_at()*
+lh#syntax#name_at_mark()	lh-vim-lib.txt	/*lh#syntax#name_at_mark()*
+lh#syntax#skip()	lh-vim-lib.txt	/*lh#syntax#skip()*
+lh#syntax#skip_at()	lh-vim-lib.txt	/*lh#syntax#skip_at()*
+lh#syntax#skip_at_mark()	lh-vim-lib.txt	/*lh#syntax#skip_at_mark()*
+lh#visual#cut()	lh-vim-lib.txt	/*lh#visual#cut()*
+lh#visual#selection()	lh-vim-lib.txt	/*lh#visual#selection()*
+lh-vim-lib.txt	lh-vim-lib.txt	/*lh-vim-lib.txt*
+lhvl#buffer	lh-vim-lib.txt	/*lhvl#buffer*
+lhvl#command	lh-vim-lib.txt	/*lhvl#command*
+lhvl#completion	lh-vim-lib.txt	/*lhvl#completion*
+lhvl#function	lh-vim-lib.txt	/*lhvl#function*
+lhvl#functor	lh-vim-lib.txt	/*lhvl#functor*
+lhvl#graph	lh-vim-lib.txt	/*lhvl#graph*
+lhvl#list	lh-vim-lib.txt	/*lhvl#list*
+lhvl#menu	lh-vim-lib.txt	/*lhvl#menu*
+lhvl#misc	lh-vim-lib.txt	/*lhvl#misc*
+lhvl#path	lh-vim-lib.txt	/*lhvl#path*
+lhvl#syntax	lh-vim-lib.txt	/*lhvl#syntax*
+lhvl-:Toggle	lh-vim-lib.txt	/*lhvl-:Toggle*
+lhvl-contents	lh-vim-lib.txt	/*lhvl-contents*
+lhvl-dialog	lh-vim-lib.txt	/*lhvl-dialog*
+lhvl-dialog-select-callback	lh-vim-lib.txt	/*lhvl-dialog-select-callback*
+lhvl-functions	lh-vim-lib.txt	/*lhvl-functions*
+lhvl-presentation	lh-vim-lib.txt	/*lhvl-presentation*
+s:PostInit()	lh-vim-lib.txt	/*s:PostInit()*
+scratch	lh-vim-lib.txt	/*scratch*
+v:1_	lh-vim-lib.txt	/*v:1_*
+v:2_	lh-vim-lib.txt	/*v:2_*

dotfiles/vim/bundle/lh-vim-lib/lh-vim-lib-addon-info.txt

@@ -0,0 +1,10 @@
+{
+  "name" : "lh-vim-lib",
+  "version" : "dev",
+  "author" : "Luc Hermitte <http://code.google.com/p/lh-vim/wiki/contact>",
+  "maintainer" : "Luc Hermitte <http://code.google.com/p/lh-vim/wiki/contact>",
+  "repository" : {"type": "svn", "url": "http://lh-vim.googlecode.com/svn/vim-lib/trunk"},
+  "dependencies" : {},
+  "description" : "Library of VimL functions",
+  "homepage" : "http://code.google.com/p/lh-vim/wiki/lhVimLib"
+}

dotfiles/vim/bundle/lh-vim-lib/lh-vim-lib.README

@@ -0,0 +1,20 @@
+			   ------------------
+			    lh-vim-lib 3.1.0
+			   ------------------
+
+lh-vim-lib is a library plugin for vim v7+. It is just a collection of
+functions that are meant to be used by script writers.
+
+Audience      : Vim script writers
+Requirements  : Vim 7.1, Vim 7.3 for some functions
+Required by   : Just a few other plugins for the moment
+Author        : Luc Hermitte
+License       : GPLv3 with exceptions
+                http://code.google.com/p/lh-vim/wiki/License
+More Help At  : http://code.google.com/p/lh-vim/wiki/lhVimLib
+Vim script#214: http://www.vim.org/scripts/script.php?script_id=214
+Repository    :
+	svn checkout http://lh-vim.googlecode.com/svn/vim-lib/trunk lh-vim-lib
+VAM           :
+	http://code.google.com/p/lh-vim/source/browse/vim-lib/trunk/lh-vim-lib-addon-info.txt
+

dotfiles/vim/bundle/lh-vim-lib/macros/menu-map.vim

@@ -0,0 +1,87 @@
+"===========================================================================
+" $Id: menu-map.vim 520 2012-03-19 18:09:15Z luc.hermitte $
+" File:		macros/menu-map.vim
+" Author:	Luc Hermitte <EMAIL:hermitte {at} free {dot} fr>
+" 		<URL:http://code.google.com/p/lh-vim/>
+"
+" Purpose:	Define functions to build mappings and menus at the same time
+"
+" License:      GPLv3 with exceptions
+"               <URL:http://code.google.com/p/lh-vim/wiki/License>
+" Version:	3.0.0
+" Last Update:  $Date: 2012-03-19 19:09:15 +0100 (Mon, 19 Mar 2012) $ (02nd Dec 2006)
+"
+" Last Changes: {{{
+"       Version 3.0.0:
+"               GPLv3
+" 	Version 2.0.0:
+" 		Moved to vim7, 
+" 		Functions moved to {rtp}/autoload/
+" 	Version 1.6.2: 
+" 		(*) Silent mappings and menus
+" 	Version 1.6. : 
+" 		(*) Uses has('gui_running') instead of has('gui') to check if
+" 		we can generate the menu.
+" 	Version 1.5. : 
+" 		(*) visual mappings launched from select-mode don't end with
+" 		    text still selected -- applied to :VCalls
+" 	Version 1.4. : 
+" 		(*) address obfuscated for spammers
+" 		(*) support the local option 
+" 		    b:want_buffermenu_or_global_disable if we don't want
+" 		    buffermenu to be used systematically.
+" 		    0 -> buffer menu not used
+" 		    1 -> buffer menu used
+" 		    2 -> the VimL developper will use a global disable.
+" 		    cf.:   tex-maps.vim:: s:SimpleMenu()
+" 		       and texmenus.vim
+" 	Version 1.3. :
+"		(*) add continuation lines support ; cf 'cpoptions'
+" 	Version 1.2. :
+" 		(*) Code folded.
+" 		(*) Take advantage of buffermenu.vim if present for local
+" 		    menus.
+" 		(*) If non gui is available, the menus won't be defined
+" 	Version 1.1. :
+"               (*) Bug corrected : 
+"                   vnore(map\|menu) does not imply v+n(map\|menu) any more
+" }}}
+"
+" Inspired By:	A function from Benji Fisher
+"
+" TODO:		(*) no menu if no gui.
+"
+"===========================================================================
+
+if exists("g:loaded_menu_map") | finish | endif
+let g:loaded_menu_map = 1  
+
+"" line continuation used here ??
+let s:cpo_save = &cpo
+set cpo&vim
+
+"=========================================================================
+" Commands {{{
+command! -nargs=+ -bang      MAP      map<bang> <args>
+command! -nargs=+           IMAP     imap       <args>
+command! -nargs=+           NMAP     nmap       <args>
+command! -nargs=+           CMAP     cmap       <args>
+command! -nargs=+           VMAP     vmap       <args>
+command! -nargs=+           AMAP
+      \       call lh#menu#map_all('amap', <f-args>)
+
+command! -nargs=+ -bang  NOREMAP  noremap<bang> <args>
+command! -nargs=+       INOREMAP inoremap       <args>
+command! -nargs=+       NNOREMAP nnoremap       <args>
+command! -nargs=+       CNOREMAP cnoremap       <args>
+command! -nargs=+       VNOREMAP vnoremap       <args>
+command! -nargs=+       ANOREMAP
+      \       call lh#menu#map_all('anoremap', <f-args>)
+" }}}
+
+" End !
+let &cpo = s:cpo_save
+finish
+
+"=========================================================================
+" vim600: set fdm=marker:

dotfiles/vim/bundle/lh-vim-lib/mkVba/mk-lh-vim-lib.vim

@@ -0,0 +1,60 @@
+"=============================================================================
+" $Id: mk-lh-vim-lib.vim 606 2012-05-31 17:09:46Z luc.hermitte@gmail.com $
+" File:		mkVba/mk-lh-lib.vim
+" Author:	Luc Hermitte <EMAIL:hermitte {at} free {dot} fr>
+"		<URL:http://code.google.com/p/lh-vim/>
+" License:      GPLv3 with exceptions
+"               <URL:http://code.google.com/p/lh-vim/wiki/License>
+" Version:	3.1.1
+let s:version = '3.1.1'
+" Created:	06th Nov 2007
+" Last Update:	$Date: 2012-05-31 19:09:46 +0200 (jeu 31 mai 2012) $
+"------------------------------------------------------------------------
+cd <sfile>:p:h
+try 
+  let save_rtp = &rtp
+  let &rtp = expand('<sfile>:p:h:h').','.&rtp
+  exe '24,$MkVimball! lh-vim-lib-'.s:version
+  set modifiable
+  set buftype=
+finally
+  let &rtp = save_rtp
+endtry
+finish
+autoload/lh/askvim.vim
+autoload/lh/buffer.vim
+autoload/lh/buffer/dialog.vim
+autoload/lh/command.vim
+autoload/lh/common.vim
+autoload/lh/encoding.vim
+autoload/lh/env.vim
+autoload/lh/event.vim
+autoload/lh/float.vim
+autoload/lh/function.vim
+autoload/lh/graph/tsort.vim
+autoload/lh/icomplete.vim
+autoload/lh/list.vim
+autoload/lh/menu.vim
+autoload/lh/option.vim
+autoload/lh/path.vim
+autoload/lh/position.vim
+autoload/lh/syntax.vim
+autoload/lh/visual.vim
+doc/lh-vim-lib.txt
+lh-vim-lib-addon-info.txt
+lh-vim-lib.README
+macros/menu-map.vim
+mkVba/mk-lh-vim-lib.vim
+plugin/let.vim
+plugin/lhvl.vim
+plugin/ui-functions.vim
+plugin/words_tools.vim
+tests/lh/function.vim
+tests/lh/list.vim
+tests/lh/path.vim
+tests/lh/test-Fargs2String.vim
+tests/lh/test-askmenu.vim
+tests/lh/test-command.vim
+tests/lh/test-menu-map.vim
+tests/lh/test-toggle-menu.vim
+tests/lh/topological-sort.vim

dotfiles/vim/bundle/lh-vim-lib/plugin/let.vim

@@ -0,0 +1,57 @@
+"=============================================================================
+" $Id: let.vim 520 2012-03-19 18:09:15Z luc.hermitte $
+" File:         plugin/let.vim                                    {{{1
+" Author:       Luc Hermitte <EMAIL:hermitte {at} free {dot} fr>
+"		<URL:http://code.google.com/p/lh-vim/>
+" License:      GPLv3 with exceptions
+"               <URL:http://code.google.com/p/lh-vim/wiki/License>
+" Version:      3.0.0
+" Created:      31st May 2010
+" Last Update:  $Date: 2012-03-19 19:09:15 +0100 (Mon, 19 Mar 2012) $
+"------------------------------------------------------------------------
+" Description:
+"       Defines a command :LetIfUndef that sets a variable if undefined
+" 
+"------------------------------------------------------------------------
+" Installation:
+"       Drop this file into {rtp}/plugin
+"       Requires Vim7+
+" History:      
+" 	v2.2.1: first version of this command into lh-vim-lib
+" 	v3.0.0: GPLv3
+" TODO: 
+" }}}1
+"=============================================================================
+
+" Avoid global reinclusion {{{1
+let s:k_version = 300
+if &cp || (exists("g:loaded_let")
+      \ && (g:loaded_let >= s:k_version)
+      \ && !exists('g:force_reload_let'))
+  finish
+endif
+let g:loaded_let = s:k_version
+let s:cpo_save=&cpo
+set cpo&vim
+" Avoid global reinclusion }}}1
+"------------------------------------------------------------------------
+" Commands and Mappings {{{1
+command! -nargs=+ LetIfUndef call s:LetIfUndef(<f-args>)
+" Commands and Mappings }}}1
+"------------------------------------------------------------------------
+" Functions {{{1
+" Note: most functions are best placed into
+" autoload/«your-initials»/«let».vim
+" Keep here only the functions are are required when the plugin is loaded,
+" like functions that help building a vim-menu for this plugin.
+function! s:LetIfUndef(var, value)
+  if !exists(a:var)
+    let {a:var} = eval(a:value)
+  endif
+endfunction
+
+" Functions }}}1
+"------------------------------------------------------------------------
+let &cpo=s:cpo_save
+"=============================================================================
+" vim600: set fdm=marker:

dotfiles/vim/bundle/lh-vim-lib/plugin/lhvl.vim

@@ -0,0 +1,48 @@
+"=============================================================================
+" $Id: lhvl.vim 520 2012-03-19 18:09:15Z luc.hermitte $
+" File:		plugin/lhvl.vim                                   {{{1
+" Author:	Luc Hermitte <EMAIL:hermitte {at} free {dot} fr>
+"		<URL:http://code.google.com/p/lh-vim/>
+" License:      GPLv3 with exceptions
+"               <URL:http://code.google.com/p/lh-vim/wiki/License>
+" Version:	3.0.0
+" Created:	27th Apr 2010
+" Last Update:	$Date: 2012-03-19 19:09:15 +0100 (Mon, 19 Mar 2012) $
+"------------------------------------------------------------------------
+" Description:	
+"       Non-function resources from lh-vim-lib
+" 
+"------------------------------------------------------------------------
+" Installation:	
+"       Drop the file into {rtp}/plugin
+" History:	
+"       v2.2.1  first version
+"       v3.0.0  GPLv3
+" TODO:		«missing features»
+" }}}1
+"=============================================================================
+
+" Avoid global reinclusion {{{1
+let s:k_version = 300
+if &cp || (exists("g:loaded_lhvl")
+      \ && (g:loaded_lhvl >= s:k_version)
+      \ && !exists('g:force_reload_lhvl'))
+  finish
+endif
+let g:loaded_lhvl = s:k_version
+let s:cpo_save=&cpo
+set cpo&vim
+" Avoid global reinclusion }}}1
+"------------------------------------------------------------------------
+" Commands and Mappings {{{1
+" Moved from lh-cpp
+command! PopSearch :call histdel('search', -1)| let @/=histget('search',-1)
+
+" Commands and Mappings }}}1
+"------------------------------------------------------------------------
+" Functions {{{1
+" Functions }}}1
+"------------------------------------------------------------------------
+let &cpo=s:cpo_save
+"=============================================================================
+" vim600: set fdm=marker:

dotfiles/vim/bundle/lh-vim-lib/plugin/ui-functions.vim

@@ -0,0 +1,490 @@
+"=============================================================================
+" File:         plugin/ui-functions.vim                                  {{{1
+" Author:       Luc Hermitte <EMAIL:hermitte {at} free {dot} fr>
+"               <URL:http://code.google.com/p/lh-vim/>
+" License:      GPLv3 with exceptions
+"               <URL:http://code.google.com/p/lh-vim/wiki/License>
+" Version:      3.0.0
+" Created:      18th nov 2002
+" Last Update:  $Date: 2012-03-19 19:09:15 +0100 (Mon, 19 Mar 2012) $ (19th Mar 2012)
+"------------------------------------------------------------------------
+" Description:  Functions for the interaction with a User Interface.
+"               The UI can be graphical or textual.
+"               At first, this was designed to ease the syntax of
+"               mu-template's templates.
+"
+" Option:       {{{2
+"       {[bg]:ui_type} 
+"               = "g\%[ui]", 
+"               = "t\%[ext]" ; the call must not be |:silent|
+"               = "f\%[te]"
+" }}}2
+"------------------------------------------------------------------------
+" Installation: Drop this into one of your {rtp}/plugin/ directories.
+" History:      {{{2
+"    v0.01 Initial Version
+"    v0.02
+"       (*) Code "factorisations" 
+"       (*) Help on <F1> enhanced.
+"       (*) Small changes regarding the parameter accepted
+"       (*) Function SWITCH
+"    v0.03
+"       (*) Small bug fix with INPUT()
+"    v0.04
+"       (*) New function: WHICH()
+"    v0.05
+"       (*) In vim7e, inputdialog() returns a trailing '\n'. INPUT() strips the
+"           NL character.
+"    v0.06
+"       (*) :s/echoerr/throw/ => vim7 only
+"    v2.2.0
+"       (*) menu to switch the ui_type
+"    v2.2.6
+"       (*) CONFIRM() and WHICH() accept lists of {choices}
+"    v3.0.0  GPLv3
+" 
+" TODO:         {{{2
+"       (*) Save the hl-User1..9 before using them
+"       (*) Possibility other than &statusline:
+"           echohl User1 |echon "bla"|echohl User2|echon "bli"|echohl None
+"       (*) Wraps too long choices-line (length > term-width)
+"       (*) Add to the documentation: "don't use CTRL-C to abort !!"
+"       (*) Look if I need to support 'wildmode'
+"       (*) 3rd mode: return string for FTE
+"       (*) 4th mode: interaction in a scratch buffer
+"
+" }}}1
+"=============================================================================
+" Avoid reinclusion {{{1
+" 
+if exists("g:loaded_ui_functions") && !exists('g:force_reload_ui_functions')
+  finish 
+endif
+let g:loaded_ui_functions = 1
+let s:cpo_save=&cpo
+set cpo&vim
+" }}}1
+"------------------------------------------------------------------------
+" External functions {{{1
+" Function: IF(var, then, else) {{{2
+function! IF(var,then, else)
+  let o = s:Opt_type() " {{{3
+  if     o =~ 'g\%[ui]\|t\%[ext]' " {{{4
+    return a:var ? a:then : a:else
+  elseif o =~ 'f\%[te]'           " {{{4
+    return s:if_fte(a:var, a:then, a:else)
+  else                    " {{{4
+    throw "UI-Fns::IF(): Unkonwn user-interface style (".o.")"
+  endif
+  " }}}3
+endfunction
+
+" Function: SWITCH(var, case, action [, case, action] [default_action]) {{{2
+function! SWITCH(var, ...)
+  let o = s:Opt_type() " {{{3
+  if     o =~ 'g\%[ui]\|t\%[ext]' " {{{4
+    let explicit_def = ((a:0 % 2) == 1)
+    let default      = explicit_def ? a:{a:0} : ''
+    let i = a:0 - 1 - explicit_def
+    while i > 0
+      if a:var == a:{i}
+        return a:{i+1}
+      endif
+      let i -=  2
+    endwhile
+    return default
+  elseif o =~ 'f\%[te]'           " {{{4
+    return s:if_fte(a:var, a:then, a:else)
+  else                    " {{{4
+    throw "UI-Fns::SWITCH(): Unkonwn user-interface style (".o.")"
+  endif
+  " }}}3
+endfunction
+
+" Function: CONFIRM(text [, choices [, default [, type]]]) {{{2
+function! CONFIRM(text, ...)
+  " 1- Check parameters {{{3
+  if a:0 > 4 " {{{4
+    throw "UI-Fns::CONFIRM(): too many parameters"
+    return 0
+  endif
+  " build the parameters string {{{4
+  let i = 1
+  while i <= a:0
+    if i == 1
+      if type(a:1) == type([])
+        let params = string(join(a:1, "\n"))
+      else
+        let params = 'a:{1}'
+      endif
+    else      | let params .= ',a:{'.i.'}'
+    endif
+    let i +=  1
+  endwhile
+  " 2- Choose the correct way to execute according to the option {{{3
+  let o = s:Opt_type()
+  if     o =~ 'g\%[ui]'  " {{{4
+    exe 'return confirm(a:text,'.params.')'
+  elseif o =~ 't\%[ext]' " {{{4
+    if !has('gui_running') && has('dialog_con')
+      exe 'return confirm(a:text,'.params.')'
+    else
+      exe 'return s:confirm_text("none", a:text,'.params.')'
+    endif
+  elseif o =~ 'f\%[te]'  " {{{4
+      exe 'return s:confirm_fte(a:text,'.params.')'
+  else               " {{{4
+    throw "UI-Fns::CONFIRM(): Unkonwn user-interface style (".o.")"
+  endif
+  " }}}3
+endfunction
+
+" Function: INPUT(prompt [, default ]) {{{2
+function! INPUT(prompt, ...)
+  " 1- Check parameters {{{3
+  if a:0 > 4 " {{{4
+    throw "UI-Fns::INPUT(): too many parameters"
+    return 0
+  endif
+  " build the parameters string {{{4
+  let i = 1 | let params = ''
+  while i <= a:0
+    if i == 1 | let params = 'a:{1}'
+    else      | let params .= ',a:{'.i.'}'
+    endif
+    let i +=  1
+  endwhile
+  " 2- Choose the correct way to execute according to the option {{{3
+  let o = s:Opt_type()
+  if     o =~ 'g\%[ui]'  " {{{4
+    exe 'return matchstr(inputdialog(a:prompt,'.params.'), ".\\{-}\\ze\\n\\=$")'
+  elseif o =~ 't\%[ext]' " {{{4
+    exe 'return input(a:prompt,'.params.')'
+  elseif o =~ 'f\%[te]'  " {{{4
+      exe 'return s:input_fte(a:prompt,'.params.')'
+  else               " {{{4
+    throw "UI-Fns::INPUT(): Unkonwn user-interface style (".o.")"
+  endif
+  " }}}3
+endfunction
+
+" Function: COMBO(prompt, choice [, ... ]) {{{2
+function! COMBO(prompt, ...)
+  " 1- Check parameters {{{3
+  if a:0 > 4 " {{{4
+    throw "UI-Fns::COMBO(): too many parameters"
+    return 0
+  endif
+  " build the parameters string {{{4
+  let i = 1
+  while i <= a:0
+    if i == 1 | let params = 'a:{1}'
+    else      | let params .=  ',a:{'.i.'}'
+    endif
+    let i +=  1
+  endwhile
+  " 2- Choose the correct way to execute according to the option {{{3
+  let o = s:Opt_type()
+  if     o =~ 'g\%[ui]'  " {{{4
+    exe 'return confirm(a:prompt,'.params.')'
+  elseif o =~ 't\%[ext]' " {{{4
+    exe 'return s:confirm_text("combo", a:prompt,'.params.')'
+  elseif o =~ 'f\%[te]'  " {{{4
+    exe 'return s:combo_fte(a:prompt,'.params.')'
+  else               " {{{4
+    throw "UI-Fns::COMBO(): Unkonwn user-interface style (".o.")"
+  endif
+  " }}}3
+endfunction
+
+" Function: WHICH(function, prompt, choice [, ... ]) {{{2
+function! WHICH(fn, prompt, ...)
+  " 1- Check parameters {{{3
+  " build the parameters string {{{4
+  let i = 1
+  while i <= a:0
+    if i == 1 
+      if type(a:1) == type([])
+        let choices = a:1
+      else
+        let choices = split(a:1, "\n")
+      endif
+      let params = 'a:{1}'
+    else      | let params .=  ',a:{'.i.'}'
+    endif
+    let i +=  1
+  endwhile
+  " 2- Execute the function {{{3
+  exe 'let which = '.a:fn.'(a:prompt,'.params.')'
+  if     0 >= which | return ''
+  else
+    return substitute(choices[which-1], '&', '', '')
+  endif
+  " }}}3
+endfunction
+
+" Function: CHECK(prompt, choice [, ... ]) {{{2
+function! CHECK(prompt, ...)
+  " 1- Check parameters {{{3
+  if a:0 > 4 " {{{4
+    throw "UI-Fns::CHECK(): too many parameters"
+    return 0
+  endif
+  " build the parameters string {{{4
+  let i = 1
+  while i <= a:0
+    if i == 1 | let params = 'a:{1}'
+    else      | let params .=  ',a:{'.i.'}'
+    endif
+    let i +=  1
+  endwhile
+  " 2- Choose the correct way to execute according to the option {{{3
+  let o = s:Opt_type()
+  if     o =~ 'g\%[ui]'  " {{{4
+    exe 'return s:confirm_text("check", a:prompt,'.params.')'
+  elseif o =~ 't\%[ext]' " {{{4
+    exe 'return s:confirm_text("check", a:prompt,'.params.')'
+  elseif o =~ 'f\%[te]'  " {{{4
+      exe 'return s:check_fte(a:prompt,'.params.')'
+  else               " {{{4
+    throw "UI-Fns::CHECK(): Unkonwn user-interface style (".o.")"
+  endif
+  " }}}3
+endfunction
+
+" }}}1
+"------------------------------------------------------------------------
+" Options setting {{{1
+let s:OptionData = {
+      \ "variable": "ui_type",
+      \ "idx_crt_value": 1,
+      \ "values": ['gui', 'text', 'fte'],
+      \ "menu": { "priority": '500.2700', "name": '&Plugin.&LH.&UI type'}
+      \}
+
+call lh#menu#def_toggle_item(s:OptionData)
+
+" }}}1
+"------------------------------------------------------------------------
+" Internal functions {{{1
+function! s:Option(name, default) " {{{2
+  if     exists('b:ui_'.a:name) | return b:ui_{a:name}
+  elseif exists('g:ui_'.a:name) | return g:ui_{a:name}
+  else                          | return a:default
+  endif
+endfunction
+
+
+function! s:Opt_type() " {{{2
+  return s:Option('type', 'gui')
+endfunction
+
+"
+" Function: s:status_line(current, hl [, choices] ) {{{2
+"     a:current: current item
+"     a:hl     : Generic, Warning, Error
+function! s:status_line(current, hl, ...)
+  " Highlightning {{{3
+  if     a:hl == "Generic"  | let hl = '%1*'
+  elseif a:hl == "Warning"  | let hl = '%2*'
+  elseif a:hl == "Error"    | let hl = '%3*'
+  elseif a:hl == "Info"     | let hl = '%4*'
+  elseif a:hl == "Question" | let hl = '%5*'
+  else                      | let hl = '%1*'
+  endif
+  
+  " Build the string {{{3
+  let sl_choices = '' | let i = 1
+  while i <= a:0
+    if i == a:current
+      let sl_choices .=  ' '. hl . 
+            \ substitute(a:{i}, '&\(.\)', '%6*\1'.hl, '') . '%* '
+    else
+      let sl_choices .=  ' ' . 
+            \ substitute(a:{i}, '&\(.\)', '%6*\1%*', '') . ' '
+    endif
+    let i +=  1
+  endwhile
+  " }}}3
+  return sl_choices
+endfunction
+
+
+" Function: s:confirm_text(box, text [, choices [, default [, type]]]) {{{2
+function! s:confirm_text(box, text, ...)
+  let help = "/<esc>/<s-tab>/<tab>/<left>/<right>/<cr>/<F1>"
+  " 1- Retrieve the parameters       {{{3
+  let choices = ((a:0>=1) ? a:1 : '&Ok')
+  let default = ((a:0>=2) ? a:2 : (('check' == a:box) ? 0 : 1))
+  let type    = ((a:0>=3) ? a:3 : 'Generic')
+  if     'none'  == a:box | let prefix = ''
+  elseif 'combo' == a:box | let prefix = '( )_'
+  elseif 'check' == a:box | let prefix = '[ ]_'
+    let help = '/ '.help
+  else                    | let prefix = ''
+  endif
+
+
+  " 2- Retrieve the proposed choices {{{3
+  " Prepare the hot keys
+  let i = 0
+  while i != 26
+    let hotkey_{nr2char(i+65)} = 0
+    let i += 1
+  endwhile
+  let hotkeys = '' | let help_k = '/'
+  " Parse the choices
+  let i = 0
+  while choices != ""
+    let i +=  1
+    let item    = matchstr(choices, "^.\\{-}\\ze\\(\n\\|$\\)")
+    let choices = matchstr(choices, "\n\\zs.*$")
+    " exe 'anoremenu ]'.a:text.'.'.item.' :let s:choice ='.i.'<cr>'
+    if ('check' == a:box) && (strlen(default)>=i) && (1 == default[i-1])
+      " let choice_{i} = '[X]' . substitute(item, '&', '', '')
+      let choice_{i} = '[X]_' . item
+    else
+      " let choice_{i} = prefix . substitute(item, '&', '', '')
+      let choice_{i} = prefix . item
+    endif
+    if i == 1
+      let list_choices = 'choice_{1}'
+    else
+      let list_choices .=  ',choice_{'.i.'}'
+    endif
+    " Update the hotkey.
+    let key = toupper(matchstr(choice_{i}, '&\zs.\ze'))
+    let hotkey_{key} = i
+    let hotkeys .=  tolower(key) . toupper(key)
+    let help_k .=  tolower(key)
+  endwhile
+  let nb_choices = i
+  if default > nb_choices | let default = nb_choices | endif
+
+  " 3- Run an interactive text menu  {{{3
+  " Note: emenu can not be used through ":exe" {{{4
+  " let wcm = &wcm
+  " set wcm=<tab>
+  " exe ':emenu ]'.a:text.'.'."<tab>"
+  " let &wcm = wcm
+  " 3.1- Preparations for the statusline {{{4
+  " save the statusline
+  let sl = &l:statusline
+  " Color schemes for selected item {{{5
+  :hi User1 term=inverse,bold cterm=inverse,bold ctermfg=Yellow 
+        \ guifg=Black guibg=Yellow
+  :hi User2 term=inverse,bold cterm=inverse,bold ctermfg=LightRed
+        \ guifg=Black guibg=LightRed
+  :hi User3 term=inverse,bold cterm=inverse,bold ctermfg=Red 
+        \ guifg=Black guibg=Red
+  :hi User4 term=inverse,bold cterm=inverse,bold ctermfg=Cyan
+        \ guifg=Black guibg=Cyan
+  :hi User5 term=inverse,bold cterm=inverse,bold ctermfg=LightYellow
+        \ guifg=Black guibg=LightYellow
+  :hi User6 term=inverse,bold cterm=inverse,bold ctermfg=LightGray
+        \ guifg=DarkRed guibg=LightGray
+  " }}}5
+
+  " 3.2- Interactive loop                {{{4
+  let help =  "\r-- Keys available (".help_k.help.")"
+  " item selected at the start
+  let i = ('check' != a:box) ? default : 1
+  let direction = 0 | let toggle = 0
+  while 1
+    if 'combo' == a:box
+      let choice_{i} = substitute(choice_{i}, '^( )', '(*)', '')
+    endif
+    " Colored statusline
+    " Note: unfortunately the 'statusline' is a global option, {{{
+    " not a local one. I the hope that may change, as it does not provokes any
+    " error, I use '&l:statusline'. }}}
+    exe 'let &l:statusline=s:status_line(i, type,'. list_choices .')'
+    if has(':redrawstatus')
+      redrawstatus!
+    else
+      redraw!
+    endif
+    " Echo the current selection
+    echo "\r". a:text.' '.substitute(choice_{i}, '&', '', '')
+    " Wait the user to hit a key
+    let key=getchar()
+    let complType=nr2char(key)
+    " If the key hit matched awaited keys ...
+    if -1 != stridx(" \<tab>\<esc>\<enter>".hotkeys,complType) ||
+          \ (key =~ "\<F1>\\|\<right>\\|\<left>\\|\<s-tab>")
+      if key           == "\<F1>"                       " Help      {{{5
+        redraw!
+        echohl StatusLineNC
+        echo help
+        echohl None
+        let key=getchar()
+        let complType=nr2char(key)
+      endif
+      " TODO: support CTRL-D
+      if     complType == "\<enter>"                    " Validate  {{{5
+        break
+      elseif complType == " "                           " check box {{{5
+        let toggle = 1
+      elseif complType == "\<esc>"                      " Abort     {{{5
+        let i = -1 | break
+      elseif complType == "\<tab>" || key == "\<right>" " Next      {{{5
+        let direction = 1
+      elseif key =~ "\<left>\\|\<s-tab>"                " Previous  {{{5
+        let direction = -1
+      elseif -1 != stridx(hotkeys, complType )          " Hotkeys     {{{5
+        if '' == complType  | continue | endif
+        let direction = hotkey_{toupper(complType)} - i
+        let toggle = 1
+      " else
+      endif
+      " }}}5
+    endif
+    if direction != 0 " {{{5
+      if 'combo' == a:box
+        let choice_{i} = substitute(choice_{i}, '^(\*)', '( )', '')
+      endif
+      let i +=  direction
+      if     i > nb_choices | let i = 1 
+      elseif i == 0         | let i = nb_choices
+      endif
+      let direction = 0
+    endif
+    if toggle == 1    " {{{5
+      if 'check' == a:box
+        let choice_{i} = ((choice_{i}[1] == ' ')? '[X]' : '[ ]') 
+              \ . strpart(choice_{i}, 3)
+      endif
+      let toggle = 0
+    endif
+  endwhile " }}}4
+  " 4- Terminate                     {{{3
+  " Clear screen
+  redraw!
+
+  " Restore statusline
+  let &l:statusline=sl
+  " Return
+  if (i == -1) || ('check' != a:box)
+    return i
+  else
+    let r = '' | let i = 1
+    while i <= nb_choices
+      let r .=  ((choice_{i}[1] == 'X') ? '1' : '0')
+      let i +=  1
+    endwhile
+    return r
+  endif
+endfunction
+" }}}1
+"------------------------------------------------------------------------
+" Functions that insert fte statements {{{1
+" Function: s:if_fte(var, then, else) {{{2
+" Function: s:confirm_fte(text, [, choices [, default [, type]]]) {{{2
+" Function: s:input_fte(prompt [, default]) {{{2
+" Function: s:combo_fte(prompt, choice [, ...]) {{{2
+" Function: s:check_fte(prompt, choice [, ...]) {{{2
+" }}}1
+"------------------------------------------------------------------------
+let &cpo=s:cpo_save
+"=============================================================================
+" vim600: set fdm=marker:

dotfiles/vim/bundle/lh-vim-lib/plugin/words_tools.vim

@@ -0,0 +1,105 @@
+" File:		plugin/words_tools.vim
+" Author:	Luc Hermitte <hermitte {at} free {dot} fr>
+" 		<URL:http://code.google.com/p/lh-vim/>
+" License:      GPLv3 with exceptions
+"               <URL:http://code.google.com/p/lh-vim/wiki/License>
+" Version:      3.0.0
+" Last Update:	$Date: 2012-03-19 19:09:15 +0100 (Mon, 19 Mar 2012) $ (19th Mar 2012)
+" Purpose:	Define functions better than expand("<cword>")
+"
+" Note:		They are expected to be used in insert mode (thanks to <c-r>
+"               or <c-o>)
+"
+"===========================================================================
+
+" Return the current keyword, uses spaces to delimitate {{{1
+function! GetNearestKeyword()
+  let c = col ('.')-1
+  let ll = getline('.')
+  let ll1 = strpart(ll,0,c)
+  let ll1 = matchstr(ll1,'\k*$')
+  let ll2 = strpart(ll,c,strlen(ll)-c+1)
+  let ll2 = matchstr(ll2,'^\k*')
+  " let ll2 = strpart(ll2,0,match(ll2,'$\|\s'))
+  return ll1.ll2
+endfunction
+
+" Return the current word, uses spaces to delimitate {{{1
+function! GetNearestWord()
+  let c = col ('.')-1
+  let l = line('.')
+  let ll = getline(l)
+  let ll1 = strpart(ll,0,c)
+  let ll1 = matchstr(ll1,'\S*$')
+  let ll2 = strpart(ll,c,strlen(ll)-c+1)
+  let ll2 = strpart(ll2,0,match(ll2,'$\|\s'))
+  ""echo ll1.ll2
+  return ll1.ll2
+endfunction
+
+" Return the word before the cursor, uses spaces to delimitate {{{1
+" Rem : <cword> is the word under or after the cursor
+function! GetCurrentWord()
+  let c = col ('.')-1
+  let l = line('.')
+  let ll = getline(l)
+  let ll1 = strpart(ll,0,c)
+  let ll1 = matchstr(ll1,'\S*$')
+  if strlen(ll1) == 0
+    return ll1
+  else
+    let ll2 = strpart(ll,c,strlen(ll)-c+1)
+    let ll2 = strpart(ll2,0,match(ll2,'$\|\s'))
+    return ll1.ll2
+  endif
+endfunction
+
+" Return the keyword before the cursor, uses \k to delimitate {{{1
+" Rem : <cword> is the word under or after the cursor
+function! GetCurrentKeyword()
+  let c = col ('.')-1
+  let l = line('.')
+  let ll = getline(l)
+  let ll1 = strpart(ll,0,c)
+  let ll1 = matchstr(ll1,'\k*$')
+  if strlen(ll1) == 0
+    return ll1
+  else
+    let ll2 = strpart(ll,c,strlen(ll)-c+1)
+    let ll2 = matchstr(ll2,'^\k*')
+    " let ll2 = strpart(ll2,0,match(ll2,'$\|\s'))
+    return ll1.ll2
+  endif
+endfunction
+
+" Extract the word before the cursor,  {{{1
+" use keyword definitions, skip latter spaces (see "bla word_accepted ")
+function! GetPreviousWord()
+  let lig = getline(line('.'))
+  let lig = strpart(lig,0,col('.')-1)
+  return matchstr(lig, '\<\k*\>\s*$')
+endfunction
+
+" GetLikeCTRL_W() retrieves the characters that i_CTRL-W deletes. {{{1
+" Initial need by Hari Krishna Dara <hari_vim@yahoo.com>
+" Last ver:
+" Pb: "if strlen(w) ==  " --> ") ==  " instead of just "==  ".
+" There still exists a bug regarding the last char of a line. VIM bug ?
+function! GetLikeCTRL_W()
+  let lig = getline(line('.'))
+  let lig = strpart(lig,0,col('.')-1)
+  " treat ending spaces apart.
+  let s = matchstr(lig, '\s*$')
+  let lig = strpart(lig, 0, strlen(lig)-strlen(s))
+  " First case : last characters belong to a "word"
+  let w = matchstr(lig, '\<\k\+\>$')
+  if strlen(w) == 0
+    " otherwise, they belong to a "non word" (without any space)
+    let w = substitute(lig, '.*\(\k\|\s\)', '', 'g')
+  endif
+  return w . s
+endfunction
+
+" }}}1
+"========================================================================
+" vim60: set fdm=marker:

dotfiles/vim/bundle/lh-vim-lib/tests/lh/function.vim

@@ -0,0 +1,288 @@
+"=============================================================================
+" $Id: function.vim 520 2012-03-19 18:09:15Z luc.hermitte $
+" File:		tests/lh/function.vim                                   {{{1
+" Author:	Luc Hermitte <EMAIL:hermitte {at} free {dot} fr>
+"		<URL:http://code.google.com/p/lh-vim/>
+" License:      GPLv3 with exceptions
+"               <URL:http://code.google.com/p/lh-vim/wiki/License>
+" Version:	3.0.0
+" Created:	03rd Nov 2008
+" Last Update:	$Date: 2012-03-19 19:09:15 +0100 (Mon, 19 Mar 2012) $
+"------------------------------------------------------------------------
+" Description:	
+" 	Tests for autoload/lh/function.vim
+" 
+"------------------------------------------------------------------------
+" Installation:	«install details»
+" History:	«history»
+" TODO:		«missing features»
+" }}}1
+"=============================================================================
+
+UTSuite [lh-vim-lib] Testing lh#function plugin
+
+runtime autoload/lh/function.vim
+
+let s:cpo_save=&cpo
+set cpo&vim
+"------------------------------------------------------------------------
+function! Test(...)
+  let nb = len(a:000)
+  " echo "test(".nb.':' .join(a:000, ' -- ')')'
+  let i =0
+  while i!= len(a:000)
+    echo "Test: type(".i.")=".type(a:000[i]).' --> '. string(a:000[i])
+    let i += 1
+  endwhile
+endfunction
+
+function! Print(...)
+  let res = lh#list#accumulate([1,2,'foo'], 'string', 'join(v:1_, " ## ")')
+  return res
+endfunction
+
+function! Id(...)
+  return copy(a:000)
+endfunction
+
+function! s:TestId()
+  let r = Id(1, 'string', [0], [[1]], {'ffo':42}, function('exists'), 1.2)
+  Assert! len(r) == 7
+  Assert! should#be#number (r[0])
+  Assert! should#be#string (r[1])
+  Assert! should#be#list   (r[2])
+  Assert! should#be#list   (r[3])
+  Assert! should#be#dict   (r[4])
+  Assert! should#be#funcref(r[5])
+  Assert! should#be#float  (r[6])
+  Assert r[0] == 1
+  Assert r[1] == 'string'
+  Assert r[2] == [0]
+  Assert r[3] == [[1]]
+  Assert r[4].ffo == 42
+  Assert r[5] == function('exists')
+  Assert r[6] == 1.2
+endfunction
+
+function! s:Test_bind()
+  " lh#function#bind + lh#function#execute
+  let rev4 = lh#function#bind(function('Id'), 'v:4_', 42, 'v:3_', 'v:2_', 'v:1_')
+  let r = lh#function#execute(rev4, 1,'two','three', [4,5])
+  Assert! len(r) == 5
+  Assert! should#be#list   (r[0])
+  Assert! should#be#number (r[1])
+  Assert! should#be#string (r[2])
+  Assert! should#be#string (r[3])
+  Assert! should#be#number (r[4])
+
+  Assert r[0] == [4,5]
+  Assert r[1] == 42
+  Assert r[2] == 'three'
+  Assert r[3] == 'two'
+  Assert r[4] == 1
+endfunction
+
+function! s:Test_bind_compound_vars()
+  " lh#function#bind + lh#function#execute
+  let rev4 = lh#function#bind(function('Id'), 'v:4_', 'v:1_ . v:2_', 'v:3_', 'v:2_', 'v:1_')
+  let r = lh#function#execute(rev4, 1,'two','three', [4,5])
+  Assert! len(r) == 5
+  Assert! should#be#list   (r[0])
+  Assert! should#be#string (r[1])
+  Assert! should#be#string (r[2])
+  Assert! should#be#string (r[3])
+  Assert! should#be#number (r[4])
+
+  Assert r[0] == [4,5]
+  Assert r[1] == '1two'
+  Assert r[2] == 'three'
+  Assert r[3] == 'two'
+  Assert r[4] == 1
+endfunction
+
+
+function! s:Test_execute_func_string_name()
+  " function name as string
+  let r = lh#function#execute('Id', 1,'two',3)
+  Assert! len(r) == 3
+  Assert! should#be#number (r[0])
+  Assert! should#be#string (r[1])
+  Assert! should#be#number (r[2])
+  Assert r[0] == 1
+  Assert r[1] == 'two'
+  Assert r[2] == 3
+endfunction
+
+function! s:Test_execute_string_expr()
+  " exp as binded-string
+  let r = lh#function#execute('Id(12,len(v:2_).v:2_, 42, v:3_, v:1_)', 1,'two',3)
+  Assert! len(r) == 5
+  Assert! should#be#number (r[0])
+  Assert! should#be#string (r[1])
+  Assert! should#be#number (r[2])
+  Assert! should#be#number (r[3])
+  Assert! should#be#number (r[4])
+  Assert r[0] == 12
+  Assert r[1] == len('two').'two'
+  Assert r[2] == 42
+  Assert r[3] == 3
+  Assert r[4] == 1
+endfunction
+
+function! s:Test_execute_func()
+  " calling a function() + bind
+  let r = lh#function#execute(function('Id'), 1,'two','v:1_',['a',42])
+  Assert! len(r) == 4
+  Assert! should#be#number (r[0])
+  Assert! should#be#string (r[1])
+  Assert! should#be#string (r[2])
+  Assert! should#be#list   (r[3])
+  Assert r[0] == 1
+  Assert r[1] == 'two'
+  Assert r[2] == 'v:1_'
+  Assert r[3] == ['a', 42]
+endfunction
+"------------------------------------------------------------------------
+function! s:Test_bind_func_string_name_AND_execute()
+  " function name as string
+  let rev3 = lh#function#bind('Id', 'v:3_', 12, 'v:2_', 'v:1_')
+  let r = lh#function#execute(rev3, 1,'two',3)
+
+  Assert! len(r) == 4
+  Assert! should#be#number (r[0])
+  Assert! should#be#number (r[1])
+  Assert! should#be#string (r[2])
+  Assert! should#be#number (r[3])
+  Assert r[0] == 3
+  Assert r[1] == 12
+  Assert r[2] == 'two'
+  Assert r[3] == 1
+endfunction
+
+function! s:Test_bind_string_expr_AND_execute()
+" expressions as string
+  let rev3 = lh#function#bind('Id(12,len(v:2_).v:2_, 42, v:3_, v:1_)')
+  let r = lh#function#execute(rev3, 1,'two',3)
+  Assert! len(r) == 5
+  Assert! should#be#number (r[0])
+  Assert! should#be#string (r[1])
+  Assert! should#be#number (r[2])
+  Assert! should#be#number (r[3])
+  Assert! should#be#number (r[4])
+  Assert r[0] == 12
+  Assert r[1] == len('two').'two'
+  Assert r[2] == 42
+  Assert r[3] == 3
+  Assert r[4] == 1
+endfunction
+
+function! s:Test_double_bind_func_name()
+  let f1 = lh#function#bind('Id', 1, 2, 'v:1_', 4, 'v:2_')
+  " Comment "f1=".string(f1)
+  let r = lh#function#execute(f1, 3, 5)
+  Assert! len(r) == 5
+  let i = 0
+  while i != len(r)
+    Assert! should#be#number (r[i])
+    Assert r[i] == i+1
+    let i += 1
+  endwhile
+
+  " f2
+  let f2 = lh#function#bind(f1, 'v:1_', 5)
+  " Comment "f2=f1(v:1_, 5)=".string(f2)
+  let r = lh#function#execute(f2, 3)
+  Assert! len(r) == 5
+  let i = 0
+  while i != len(r)
+    Assert! should#be#number (r[i])
+    " echo "?? ".(r[i])."==".(i+1)
+    Assert r[i] == i+1
+    let i += 1
+  endwhile
+endfunction
+
+function! s:Test_double_bind_func()
+  let f1 = lh#function#bind(function('Id'), 1, 2, 'v:1_', 4, 'v:2_')
+  " Comment "f1=".string(f1)
+  let r = lh#function#execute(f1, 3, 5)
+  Assert! len(r) == 5
+  let i = 0
+  while i != len(r)
+    Assert! should#be#number (r[i])
+    Assert r[i] == i+1
+    let i += 1
+  endwhile
+
+  " f2
+  let f2 = lh#function#bind(f1, 'v:1_', 5)
+  " Comment "f2=f1(v:1_, 5)=".string(f2)
+  let r = lh#function#execute(f2, 3)
+  Assert! len(r) == 5
+  let i = 0
+  while i != len(r)
+    Assert! should#be#number (r[i])
+    Assert r[i] == i+1
+    let i += 1
+  endwhile
+endfunction
+
+function! s:Test_double_bind_func_cplx()
+  let g:bar = "bar"
+  let f1 = lh#function#bind(function('Id'), 1, 2, 'v:1_', 4, 'v:2_', 'v:3_', 'v:4_', 'v:5_', 'v:6_', 'v:7_')
+  " Comment "2bcpl# f1=".string(f1)
+  let f2 = lh#function#bind(f1, 'len(g:bar.v:1_)+v:1_', [1,2], '[v:1_, v:2_]', 4,5,6,7)
+
+  " let f2 = lh#function#bind(f1, 'v:1_', 5, 'foo', g:bar, 'len(g:bar.v:1_)+v:1_', [1,2], '[v:1_, v:2_]')
+  " Comment "2bcpl# f2=f1(v:1_, 5)=".string(f2)
+
+  let r = lh#function#execute(f2, 42, "foo")
+  Assert! 0 && "not ready"
+  Comment "2bcpl# ".string(r)
+endfunction
+
+function! s:Test_double_bind_expr()
+  let f1 = lh#function#bind('Id(1, 2, v:1_, v:3_, v:2_)')
+  Comment "2be# f1=".string(f1)
+  let r = lh#function#execute(f1, 3, 5, 4)
+  Comment "2be# ".string(r)
+  Assert! len(r) == 5
+  let i = 0
+  while i != len(r)
+    Assert! should#be#number (r[i])
+    Assert r[i] == i+1
+    let i += 1
+  endwhile
+
+  " f2
+  let f2 = lh#function#bind(f1, 'v:1_', '"foo"', [])
+  Comment "2be# f2=f1(v:1_, 5)=".string(f2)
+  let r = lh#function#execute(f2, 3)
+  Comment "2be# ".string(r)
+  Assert! len(r) == 5
+  let i = 0
+  while i != len(r)-2
+    Assert! should#be#number (r[i])
+    Assert r[i] == i+1
+    let i += 1
+  endwhile
+
+  Assert! should#be#list (r[-2])
+  Assert r[-2] == []
+  Assert! should#be#string (r[-1])
+  Assert r[-1] == 'foo'
+endfunction
+
+"todo: write double-binded tests for all kind of binded parameters:
+" 'len(g:bar)'
+" 42
+" []
+" v:1_ + len(v:2_.v:3_)
+" '"foo"'
+" v:1_
+
+"------------------------------------------------------------------------
+
+let &cpo=s:cpo_save
+"=============================================================================
+" vim600: set fdm=marker:

dotfiles/vim/bundle/lh-vim-lib/tests/lh/list.vim

@@ -0,0 +1,167 @@
+"=============================================================================
+" $Id: list.vim 520 2012-03-19 18:09:15Z luc.hermitte $
+" File:		tests/lh/list.vim                                      {{{1
+" Author:	Luc Hermitte <EMAIL:hermitte {at} free {dot} fr>
+"		<URL:http://code.google.com/p/lh-vim/>
+" License:      GPLv3 with exceptions
+"               <URL:http://code.google.com/p/lh-vim/wiki/License>
+" Version:	3.0.0
+" Created:	19th Nov 2008
+" Last Update:	$Date: 2012-03-19 19:09:15 +0100 (Mon, 19 Mar 2012) $
+"------------------------------------------------------------------------
+" Description:	
+" 	Tests for autoload/lh/list.vim
+" 
+"------------------------------------------------------------------------
+" Installation:	«install details»
+" History:	«history»
+" TODO:		«missing features»
+" }}}1
+"=============================================================================
+
+UTSuite [lh-vim-lib] Testing lh#list functions
+
+runtime autoload/lh/function.vim
+runtime autoload/lh/list.vim
+let s:cpo_save=&cpo
+set cpo&vim
+"------------------------------------------------------------------------
+" Find_if
+function! s:Test_Find_If_string_predicate()
+    :let b = { 'min': 12, 'max': 42 }
+    :let l = [ 1, 5, 48, 25, 5, 28, 6]
+    :let i = lh#list#Find_if(l, 'v:val>v:1_.min  && v:val<v:1_.max && v:val%v:2_==0', [b, 2] )
+    " echo i . '/' . len(l)
+    Assert i == 5
+    Assert l[i] == 28
+    " :echo l[i]
+endfunction
+
+function! s:Test_Find_If_functor_predicate()
+    :let l = [ 1, 5, 48, 25, 5, 28, 6]
+    :let i = lh#list#find_if(l, 'v:1_>12  && v:1_<42 && v:1_%2==0')
+    " echo i . '/' . len(l)
+    Assert i == 5
+    Assert l[i] == 28
+    " :echo l[i]
+endfunction
+
+function! s:Test_find_if_double_bind()
+    :let b = { 'min': 12, 'max': 42 }
+    :let l = [ 1, 5, 48, 25, 5, 28, 6]
+    :let f = lh#function#bind( 'v:3_>v:1_.min  && v:3_<v:1_.max && v:3_%v:2_==0') 
+    :let p = lh#function#bind(f, b,2,'v:1_') 
+    :let i = lh#list#find_if(l, p)
+    :echo l[i]
+endfunction
+" double bind is not yet operational
+UTIgnore Test_find_if_double_bind
+
+"------------------------------------------------------------------------
+" Unique Sorting
+function! CmpNumbers(lhs, rhs)
+  if     a:lhs < a:rhs  | return -1
+  elseif a:lhs == a:rhs | return 0
+  else              | return +1
+  endif
+endfunction
+
+function! s:Test_sort()
+    :let l = [ 1, 5, 48, 25, 5, 28, 6]
+    :let expected = [ 1, 5, 6, 25, 28, 48]
+    :let s = lh#list#unique_sort(l, "CmpNumbers") 
+    " Comment string(s)
+    Assert s == expected
+endfunction
+
+function! s:Test_sort2()
+    :let l = [ 1, 5, 48, 25, 5, 28, 6]
+    :let expected = [ 1, 5, 6, 25, 28, 48]
+    :let s = lh#list#unique_sort2(l, "CmpNumbers") 
+    " Comment string(s)
+    Assert s == expected
+endfunction
+
+"------------------------------------------------------------------------
+" Searchs
+function! s:TestBinarySearches()
+  let v1 = [ -3, -2, -1, -1, 0, 0, 1, 2, 3, 4, 6 ]
+  let i = lh#list#lower_bound(v1, 3)
+  Assert v1[i] == 3
+  let i = lh#list#upper_bound(v1, 3)
+  Assert v1[i] == 4
+  let r = lh#list#equal_range(v1, 3)
+  Assert v1[r[0]:r[1]-1] == [3]
+
+  let i = lh#list#lower_bound(v1, -1)
+  Assert v1[i] == -1
+  let i = lh#list#upper_bound(v1, -1)
+  Assert v1[i] == 0
+  let r = lh#list#equal_range(v1, -1)
+  Assert v1[r[0]:r[1]-1] == [-1, -1]
+
+  let i = lh#list#lower_bound(v1, 5)
+  Assert v1[i] == 6
+  let i = lh#list#upper_bound(v1, 5)
+  Assert v1[i] == 6
+  let r = lh#list#equal_range(v1, 5)
+  Assert v1[r[0]:r[1]-1] == []
+
+  Assert len(v1) == lh#list#lower_bound(v1, 10)
+  Assert len(v1) == lh#list#upper_bound(v1, 10)
+  Assert [len(v1), len(v1)] == lh#list#equal_range(v1, 10)
+endfunction
+
+"------------------------------------------------------------------------
+" accumulate
+
+function! s:Test_accumulate_len_strings()
+  let strings = [ 'foo', 'bar', 'toto' ]
+  let len = eval(lh#list#accumulate(strings, 'strlen', 'join(v:1_,  "+")'))
+  Assert len == 3+3+4
+endfunction
+
+function! s:Test_accumulate_join()
+  let ll = [ 1, 2, 'foo', ['bar'] ]
+  let res = lh#list#accumulate(ll, 'string', 'join(v:1_,  " ## ")')
+  Assert res == "1 ## 2 ## 'foo' ## ['bar']"
+  " This test will fail because it seems :for each loop cannot iterate on
+  " heterogeneous containers
+endfunction
+
+"------------------------------------------------------------------------
+" Copy_if
+function! s:Test_copy_if()
+    :let l = [ 1, 25, 5, 48, 25, 5, 28, 6]
+    :let expected = [ 25, 48, 25, 28, 6]
+    :let s = lh#list#copy_if(l, [], "v:1_ > 5") 
+    " Comment string(s)
+    Assert s == expected
+endfunction
+
+"------------------------------------------------------------------------
+" subset
+function! s:Test_subset()
+    :let l = [ 1, 25, 5, 48, 25, 5, 28, 6]
+    :let indices = [ 0, 5, 7, 3 ]
+    :let expected = [ 1, 5, 6, 48 ]
+    :let s = lh#list#subset(l, indices) 
+    " Comment string(s)
+    Assert s == expected
+endfunction
+
+"------------------------------------------------------------------------
+" intersect
+function! s:Test_intersect()
+    :let l1 = [ 1, 25, 7, 48, 26, 5, 28, 6]
+    :let l2 = [ 3, 8, 7, 25, 6 ]
+    :let expected = [ 25, 7, 6 ]
+    :let s = lh#list#intersect(l1, l2) 
+    " Comment string(s)
+    Assert s == expected
+endfunction
+
+"------------------------------------------------------------------------
+let &cpo=s:cpo_save
+"=============================================================================
+" vim600: set fdm=marker:

dotfiles/vim/bundle/lh-vim-lib/tests/lh/path.vim

@@ -0,0 +1,180 @@
+"=============================================================================
+" $Id: path.vim 520 2012-03-19 18:09:15Z luc.hermitte $
+" File:		tests/lh/path.vim                                      {{{1
+" Author:	Luc Hermitte <EMAIL:hermitte {at} free {dot} fr>
+"		<URL:http://code.google.com/p/lh-vim/>
+" License:      GPLv3 with exceptions
+"               <URL:http://code.google.com/p/lh-vim/wiki/License>
+" Version:	3.0.0
+" Created:	28th May 2009
+" Last Update:	$Date: 2012-03-19 19:09:15 +0100 (Mon, 19 Mar 2012) $
+"------------------------------------------------------------------------
+" Description:
+" 	Tests for autoload/lh/path.vim
+" 
+"------------------------------------------------------------------------
+" Installation:	«install details»
+" History:	«history»
+" TODO:		«missing features»
+" }}}1
+"=============================================================================
+
+UTSuite [lh-vim-lib] Testing lh#path functions
+
+runtime autoload/lh/path.vim
+let s:cpo_save=&cpo
+set cpo&vim
+"------------------------------------------------------------------------
+function! s:Test_simplify()
+  Assert lh#path#simplify('a/b/c') == 'a/b/c'
+  Assert lh#path#simplify('a/b/./c') == 'a/b/c'
+  Assert lh#path#simplify('./a/b/./c') == 'a/b/c'
+  Assert lh#path#simplify('./a/../b/./c') == 'b/c'
+  Assert lh#path#simplify('../a/../b/./c') == '../b/c'
+  Assert lh#path#simplify('a\b\c') == 'a\b\c'
+  Assert lh#path#simplify('a\b\.\c') == 'a\b\c'
+  Assert lh#path#simplify('.\a\b\.\c') == 'a\b\c'
+  if exists('+shellslash')
+    Assert lh#path#simplify('.\a\..\b\.\c') == 'b\c'
+    Assert lh#path#simplify('..\a\..\b\.\c') == '..\b\c'
+  endif
+endfunction
+
+function! s:Test_strip_common()
+  let paths = ['foo/bar/file', 'foo/file', 'foo/foo/file']
+  let expected = [ 'bar/file', 'file', 'foo/file']
+  Assert lh#path#strip_common(paths) == expected
+endfunction
+
+function! s:Test_common()
+  " Pick one ...
+  Assert 'foo/' == lh#path#common(['foo/bar/dir', 'foo'])
+  Assert 'foo/bar/' == lh#path#common(['foo/bar/dir', 'foo/bar'])
+  Assert 'foo/' == lh#path#common(['foo/bar/dir', 'foo/bar2'])
+
+  Assert 'foo' == lh#path#common(['foo/bar/dir', 'foo'])
+  Assert 'foo/bar' == lh#path#common(['foo/bar/dir', 'foo/bar'])
+  Assert 'foo' == lh#path#common(['foo/bar/dir', 'foo/bar2'])
+endfunction
+
+function! s:Test_strip_start()
+  let expected = 'template/bar.template'
+  Assert lh#path#strip_start($HOME.'/.vim/template/bar.template',
+	\ [ $HOME.'/.vim', $HOME.'/vimfiles', '/usr/local/share/vim' ]) 
+	\ == expected
+
+  Assert lh#path#strip_start($HOME.'/vimfiles/template/bar.template',
+	\ [ $HOME.'/.vim', $HOME.'/vimfiles', '/usr/local/share/vim' ]) 
+	\ == expected
+
+  Assert lh#path#strip_start('/usr/local/share/vim/template/bar.template',
+	\ [ $HOME.'/.vim', $HOME.'/vimfiles', '/usr/local/share/vim' ]) 
+	\ == expected
+endfunction
+
+function! s:Test_IsAbsolutePath()
+  " nix paths
+  Assert lh#path#is_absolute_path('/usr/local')
+  Assert lh#path#is_absolute_path($HOME)
+  Assert ! lh#path#is_absolute_path('./usr/local')
+  Assert ! lh#path#is_absolute_path('.usr/local')
+
+  " windows paths
+  Assert lh#path#is_absolute_path('e:\usr\local')
+  Assert ! lh#path#is_absolute_path('.\usr\local')
+  Assert ! lh#path#is_absolute_path('.usr\local')
+
+  " UNC paths
+  Assert lh#path#is_absolute_path('\\usr\local')
+  Assert lh#path#is_absolute_path('//usr/local')
+endfunction
+
+function! s:Test_IsURL()
+  " nix paths
+  Assert ! lh#path#is_url('/usr/local')
+  Assert ! lh#path#is_url($HOME)
+  Assert ! lh#path#is_url('./usr/local')
+  Assert ! lh#path#is_url('.usr/local')
+
+  " windows paths
+  Assert ! lh#path#is_url('e:\usr\local')
+  Assert ! lh#path#is_url('.\usr\local')
+  Assert ! lh#path#is_url('.usr\local')
+
+  " UNC paths
+  Assert ! lh#path#is_url('\\usr\local')
+  Assert ! lh#path#is_url('//usr/local')
+
+  " URLs
+  Assert lh#path#is_url('http://www.usr/local')
+  Assert lh#path#is_url('https://www.usr/local')
+  Assert lh#path#is_url('ftp://www.usr/local')
+  Assert lh#path#is_url('sftp://www.usr/local')
+  Assert lh#path#is_url('dav://www.usr/local')
+  Assert lh#path#is_url('fetch://www.usr/local')
+  Assert lh#path#is_url('file://www.usr/local')
+  Assert lh#path#is_url('rcp://www.usr/local')
+  Assert lh#path#is_url('rsynch://www.usr/local')
+  Assert lh#path#is_url('scp://www.usr/local')
+endfunction
+
+function! s:Test_ToRelative()
+  let pwd = getcwd()
+  Assert lh#path#to_relative(pwd.'/foo/bar') == 'foo/bar'
+  Assert lh#path#to_relative(pwd.'/./foo') == 'foo'
+  Assert lh#path#to_relative(pwd.'/foo/../bar') == 'bar'
+
+  " Does not work yet as it returns an absolute path it that case
+  Assert lh#path#to_relative(pwd.'/../bar') == '../bar'
+endfunction
+
+function! s:Test_relative_path()
+  Assert lh#path#relative_to('foo/bar/dir', 'foo') == '../../'
+  Assert lh#path#relative_to('foo', 'foo/bar/dir') == 'bar/dir/'
+  Assert lh#path#relative_to('foo/bar', 'foo/bar2/dir') == '../bar2/dir/'
+
+  let pwd = getcwd()
+  Assert lh#path#relative_to(pwd ,pwd.'/../bar') == '../bar/'
+endfunction
+
+function! s:Test_search_vimfiles()
+  let expected_win = $HOME . '/vimfiles'
+  let expected_nix = $HOME . '/.vim'
+  let what =  lh#path#to_regex($HOME.'/').'\(vimfiles\|.vim\)'
+  " Comment what
+  let z = lh#path#find(&rtp,what)
+  if has('win16')||has('win32')||has('win64')
+    Assert z == expected_win
+  else
+    Assert z == expected_nix
+  endif
+endfunction
+
+function! s:Test_path_depth()
+  Assert 0 == lh#path#depth('.')
+  Assert 0 == lh#path#depth('./')
+  Assert 0 == lh#path#depth('.\')
+  Assert 1 == lh#path#depth('toto')
+  Assert 1 == lh#path#depth('toto/')
+  Assert 1 == lh#path#depth('toto\')
+  Assert 1 == lh#path#depth('toto/.')
+  Assert 1 == lh#path#depth('toto\.')
+  Assert 1 == lh#path#depth('toto/./.')
+  Assert 1 == lh#path#depth('toto\.\.')
+  Assert 0 == lh#path#depth('toto/..')
+  if exists('+shellslash')
+    Assert 0 == lh#path#depth('toto\..')
+  endif
+  Assert 2 == lh#path#depth('toto/titi/')
+  Assert 2 == lh#path#depth('toto\titi\')
+  Assert 2 == lh#path#depth('/toto/titi/')
+  Assert 2 == lh#path#depth('c:/toto/titi/')
+  Assert 2 == lh#path#depth('c:\toto/titi/')
+" todo: make a choice about "negative" paths like "../../foo"
+  Assert -1 == lh#path#depth('../../foo')
+endfunction
+
+"------------------------------------------------------------------------
+let &cpo=s:cpo_save
+"=============================================================================
+" vim600: set fdm=marker:

dotfiles/vim/bundle/lh-vim-lib/tests/lh/test-Fargs2String.vim

@@ -0,0 +1,85 @@
+"=============================================================================
+" $Id: test-Fargs2String.vim 520 2012-03-19 18:09:15Z luc.hermitte $
+" File:		tests/lh/test-Fargs2String.vim                           {{{1
+" Author:	Luc Hermitte <EMAIL:hermitte {at} free {dot} fr>
+"		<URL:http://code.google.com/p/lh-vim/>
+" License:      GPLv3 with exceptions
+"               <URL:http://code.google.com/p/lh-vim/wiki/License>
+" Version:	3.0.0
+" Created:	16th Apr 2007
+" Last Update:	$Date: 2012-03-19 19:09:15 +0100 (Mon, 19 Mar 2012) $
+"------------------------------------------------------------------------
+" Description:	Tests for lh-vim-lib . lh#command#Fargs2String
+" 
+"------------------------------------------------------------------------
+" Installation:	
+" 	Relies on the version «patched by myself|1?» of vim_units
+" History:	«history»
+" TODO:		«missing features»
+" }}}1
+"=============================================================================
+
+function! s:TestEmpty()
+  let empty = []
+  let res = lh#command#Fargs2String(empty)
+  call VUAssertEquals(len(empty), 0, 'Expected empty', 22)
+  call VUAssertEquals(res, '', 'Expected empty result', 23)
+endfunction
+
+function! s:TestSimpleText1()
+  let expected = 'text'
+  let one = [ expected ]
+  let res = lh#command#Fargs2String(one)
+  call VUAssertEquals(len(one), 0, 'Expected empty', 27)
+  call VUAssertEquals(res, expected, 'Expected a simple result', 28)
+endfunction
+
+function! s:TestSimpleTextN()
+  let expected = 'text'
+  let list = [ expected , 'stuff1', 'stuff2']
+  let res = lh#command#Fargs2String(list)
+  call VUAssertEquals(len(list), 2, 'Expected not empty', 38)
+  call VUAssertEquals(res, expected, 'Expected a simple result', 39)
+endfunction
+
+function! s:TestComposedN()
+  let expected = '"a several tokens string"'
+  let list = [ '"a', 'several', 'tokens', 'string"', 'stuff1', 'stuff2']
+  let res = lh#command#Fargs2String(list)
+  call VUAssertEquals(len(list), 2, 'Expected not empty', 46)
+  call VUAssertEquals(res, expected, 'Expected a composed string', 47)
+  call VUAssertEquals(list, ['stuff1', 'stuff2'], 'Expected a list', 48)
+  call VUAssertNotSame(list, ['stuff1', 'stuff2'], 'Expected different lists', 49)
+endfunction
+
+function! s:TestComposed1()
+  let expected = '"string"'
+  let list = [ '"string"', 'stuff1', 'stuff2']
+  let res = lh#command#Fargs2String(list)
+  call VUAssertEquals(len(list), 2, 'Expected not empty', 56)
+  call VUAssertEquals(res, expected, 'Expected a string', 57)
+  call VUAssertEquals(list, ['stuff1', 'stuff2'], 'Expected a list', 58)
+  call VUAssertNotSame(list, ['stuff1', 'stuff2'], 'Expected different lists', 59)
+endfunction
+
+function! s:TestInvalidString()
+  let expected = '"a string'
+  let list = [ '"a', 'string']
+  let res = lh#command#Fargs2String(list)
+  call VUAssertEquals(len(list), 0, 'Expected empty', 66)
+  call VUAssertEquals(res, expected, 'Expected an invalid string', 67)
+endfunction
+
+function! AllTests()
+  call s:TestEmpty()
+  call s:TestSimpleText1()
+  call s:TestSimpleTextN()
+  call s:TestComposed1()
+  call s:TestComposedN()
+endfunction
+
+" call VURunnerRunTest('AllTests')
+VURun % AllTests
+
+"=============================================================================
+" vim600: set fdm=marker:

dotfiles/vim/bundle/lh-vim-lib/tests/lh/test-askmenu.vim

@@ -0,0 +1,67 @@
+"=============================================================================
+" $Id: test-askmenu.vim 520 2012-03-19 18:09:15Z luc.hermitte $
+" File:		tests/test-buffer-menu.vim                                {{{1
+" Author:	Luc Hermitte <EMAIL:hermitte {at} free {dot} fr>
+"		<URL:http://code.google.com/p/lh-vim/>
+" License:      GPLv3 with exceptions
+"               <URL:http://code.google.com/p/lh-vim/wiki/License>
+" Version:	3.0.0
+" Created:	18th Apr 2007
+" Last Update:	$Date: 2012-03-19 19:09:15 +0100 (Mon, 19 Mar 2012) $
+"------------------------------------------------------------------------
+" Description:	
+" 	Test units for buffermenu.vim
+" 
+"------------------------------------------------------------------------
+" Installation:	Requires:
+" 	(*) Vim 7.0+
+" 	(*) vim_units.vim v0.2/1.0?
+" 	    Vimscript # «???»
+" 	(*) lh-vim-lib (lh#ask#menu)
+"
+" User Manual:
+" 	Source this file.
+"
+" History:	
+" (*) 17th Apr 2007: First version 
+" TODO:		«missing features»
+" }}}1
+"=============================================================================
+
+
+
+"=============================================================================
+let s:cpo_save=&cpo
+"------------------------------------------------------------------------
+" Functions {{{1
+
+function! TestAskMenu()
+  imenu          42.40.10 &LH-Tests.&Menu.&ask.i       iask
+  inoremenu      42.40.10 &LH-Tests.&Menu.&ask.inore   inoreask
+  nmenu          42.40.10 &LH-Tests.&Menu.&ask.n       nask
+  nnoremenu      42.40.10 &LH-Tests.&Menu.&ask.nnore   nnoreask
+  nmenu <script> 42.40.10 &LH-Tests.&Menu.&ask.nscript nscriptask
+  nnoremenu <script> 42.40.10 &LH-Tests.&Menu.&ask.nnnscript nnscriptask
+
+  vmenu          42.40.10 &LH-Tests.&Menu.&ask.v     vask
+  vnoremenu      42.40.10 &LH-Tests.&Menu.&ask.vnore vnoreask
+
+  call s:CheckInMode('i', 'i')
+
+endfunction
+
+function! s:CheckInMode(mode, name)
+  let g:menu = lh#askvim#menu('LH-Tests.Menu.ask.'.a:name, a:mode)
+  let g:name = a:name
+  " VUAssert 55 Equals g:menu.name     g:name     "Name mismatch"
+  " VUAssert 56 Equals g:menu.priority '42.40.10' "Priority mismatch"
+  " VUAssert 57 Fail "parce qu'il le faut bien"
+  echomsg "name= ".g:menu.name
+  echomsg "prio= ".g:menu.priority
+endfunction
+
+" Functions }}}1
+"------------------------------------------------------------------------
+let &cpo=s:cpo_save
+"=============================================================================
+" vim600: set fdm=marker:

dotfiles/vim/bundle/lh-vim-lib/tests/lh/test-command.vim

@@ -0,0 +1,69 @@
+" $Id: test-command.vim 156 2010-05-07 00:54:36Z luc.hermitte $
+" Tests for lh-vim-lib . lh#command
+
+" FindFilter(filter):                            Helper {{{3
+function! s:FindFilter(filter)
+  let filter = a:filter . '.vim'
+  let result =globpath(&rtp, "compiler/BTW-".filter) . "\n" .
+	\ globpath(&rtp, "compiler/BTW_".filter). "\n" .
+	\ globpath(&rtp, "compiler/BTW/".filter)
+  let result = substitute(result, '\n\n', '\n', 'g')
+  let result = substitute(result, '^\n', '', 'g')
+  return result
+endfunction
+
+function! s:ComplFilter(filter)
+  let files = s:FindFilter('*')
+  let files = substitute(files,
+	\ '\(^\|\n\).\{-}compiler[\\/]BTW[-_\\/]\(.\{-}\)\.vim\>\ze\%(\n\|$\)',
+	\ '\1\2', 'g')
+  return files
+endfunction
+
+function! s:Add()
+endfunction
+
+let s:v1 = 'v1'
+let s:v2 = 2
+
+function! s:Foo(i)
+  return a:i*a:i
+endfunction
+
+function! s:echo(params)
+  echo s:{join(a:params, '')}
+endfunction
+
+function! Echo(params)
+  " echo "Echo(".string(a:params).')'
+  let expr = 's:'.join(a:params, '')
+  " echo expr
+  exe 'echo '.expr
+endfunction
+
+let TBTWcommand = {
+      \ "name"      : "TBT",
+      \ "arg_type"  : "sub_commands",
+      \ "arguments" :
+      \     [
+      \       { "name"      : "echo",
+      \		"arg_type"  : "function",
+      \         "arguments" : "v1,v2",
+      \         "action": function("\<sid>echo") },
+      \       { "name"      : "Echo",
+      \		"arg_type"  : "function",
+      \         "arguments" : "v1,v2",
+      \         "action": function("Echo") },
+      \       { "name"  : "help" },
+      \       { "name"  : "add",
+      \         "arguments": function("s:ComplFilter"),
+      \         "action" : function("s:Add") }
+      \     ]
+      \ }
+
+call lh#command#new(TBTWcommand)
+
+nnoremap µ :call lh#command#new(TBTWcommand)<cr>
+
+"=============================================================================
+" vim600: set fdm=marker:

dotfiles/vim/bundle/lh-vim-lib/tests/lh/test-menu-map.vim

@@ -0,0 +1,56 @@
+"=============================================================================
+" $Id: test-menu-map.vim 520 2012-03-19 18:09:15Z luc.hermitte $
+" File:		tests/lh/test-menu-map.vim                               {{{1
+" Author:	Luc Hermitte <EMAIL:hermitte {at} free {dot} fr>
+"		<URL:http://code.google.com/p/lh-vim/>
+" License:      GPLv3 with exceptions
+"               <URL:http://code.google.com/p/lh-vim/wiki/License>
+" Version:	3.0.0
+" Created:	05th Dec 2006
+" Last Update:	$Date: 2012-03-19 19:09:15 +0100 (Mon, 19 Mar 2012) $
+"------------------------------------------------------------------------
+" Description:	Tests for lh-vim-lib . lh#menu#
+" 
+"------------------------------------------------------------------------
+" Installation:	«install details»
+" History:	«history»
+" TODO:		«missing features»
+" }}}1
+"=============================================================================
+
+
+" let g:want_buffermenu_or_global_disable = 1
+" let b:want_buffermenu_or_global_disable = 1
+" echo lh#option#get("want_buffermenu_or_global_disable", 1, "bg")
+
+" Call a command (':Command')
+call lh#menu#make("nic", '42.50.340',
+      \ '&LH-Tests.&Menu-Make.Build Ta&gs', "<C-L>g",
+      \ '<buffer>',
+      \ ":echo 'TeXtags'<CR>")
+
+" With '{' expanding to '{}××', or '{}' regarding the mode
+call lh#menu#IVN_make('42.50.360.200',
+      \ '&LH-Tests.&Menu-Make.&Insert.\toto{}', ']toto',
+      \ '\\toto{',
+      \ '{%i\\toto<ESC>%l',
+      \ "viw]toto")
+
+" Noremap for the visual maps
+call lh#menu#IVN_make('42.50.360.200',
+      \ '&LH-Tests.&Menu-Make.&Insert.\titi{}', ']titi',
+      \ '\\titi{',
+      \ '<ESC>`>a}<ESC>`<i\\titi{<ESC>%l',
+      \ "viw]titi",
+      \ 0, 1, 0)
+
+" Noremap for the insert and visual maps
+call lh#menu#IVN_make('42.50.360.200',
+      \ '&LH-Tests.&Menu-Make.&Insert.<tata></tata>', ']tata',
+      \ '<tata></tata><esc>?<<CR>i', 
+      \ '<ESC>`>a</tata><ESC>`<i<tata><ESC>/<\\/tata>/e1<CR>',
+      \ "viw]tata", 
+      \ 1, 1, 0)
+
+"=============================================================================
+" vim600: set fdm=marker:

dotfiles/vim/bundle/lh-vim-lib/tests/lh/test-toggle-menu.vim

@@ -0,0 +1,86 @@
+"=============================================================================
+" $Id: test-toggle-menu.vim 520 2012-03-19 18:09:15Z luc.hermitte $
+" File:         tests/lh/test-toggle-menu.vim                            {{{1
+" Author:       Luc Hermitte <EMAIL:hermitte {at} free {dot} fr>
+"               <URL:http://code.google.com/p/lh-vim/>
+" License:      GPLv3 with exceptions
+"               <URL:http://code.google.com/p/lh-vim/wiki/License>
+" Version:      3.0.0
+" Created:      17th Apr 2007
+" Last Update:  $Date: 2012-03-19 19:09:15 +0100 (Mon, 19 Mar 2012) $
+"------------------------------------------------------------------------
+" Description:  
+"       Tests for lh-vim-lib . lh#menu#def_toggle_item()
+"
+"------------------------------------------------------------------------
+" Installation: «install details»
+" History:      «history»
+" TODO:         «missing features»
+" }}}1
+"=============================================================================
+
+runtime autoload/lh/menu.vim
+
+let Data = {
+      \ "variable": "bar",
+      \ "idx_crt_value": 1,
+      \ "values": [ 'a', 'b', 'c', 'd' ],
+      \ "menu": { "priority": '42.50.10', "name": '&LH-Tests.&TogMenu.&bar'}
+      \}
+
+call lh#menu#def_toggle_item(Data)
+
+let Data2 = {
+      \ "variable": "foo",
+      \ "idx_crt_value": 3,
+      \ "texts": [ 'un', 'deux', 'trois', 'quatre' ],
+      \ "values": [ 1, 2, 3, 4 ],
+      \ "menu": { "priority": '42.50.11', "name": '&LH-Tests.&TogMenu.&foo'}
+      \}
+
+call lh#menu#def_toggle_item(Data2)
+
+" No default
+let Data3 = {
+      \ "variable": "nodef",
+      \ "texts": [ 'one', 'two', 'three', 'four' ],
+      \ "values": [ 1, 2, 3, 4 ],
+      \ "menu": { "priority": '42.50.12', "name": '&LH-Tests.&TogMenu.&nodef'}
+      \}
+call lh#menu#def_toggle_item(Data3)
+
+" No default
+let g:def = 2
+let Data4 = {
+      \ "variable": "def",
+      \ "values": [ 1, 2, 3, 4 ],
+      \ "menu": { "priority": '42.50.13', "name": '&LH-Tests.&TogMenu.&def'}
+      \}
+call lh#menu#def_toggle_item(Data4)
+
+" What follows does not work because we can't build an exportable FuncRef on top
+" of a script local function
+" finish
+
+function! s:getSNR()
+  if !exists("s:SNR")
+    let s:SNR=matchstr(expand("<sfile>"), "<SNR>\\d\\+_\\zegetSNR$")
+  endif
+  return s:SNR 
+endfunction
+
+function! s:Yes()
+  echomsg "Yes"
+endfunction
+
+function! s:No()
+  echomsg "No"
+endfunction
+let Data4 = {
+      \ "variable": "yesno",
+      \ "values": [ 1, 2 ],
+      \ "text": [ "No", "Yes" ],
+      \ "actions": [ function(s:getSNR()."No"), function(s:getSNR()."Yes") ],
+      \ "menu": { "priority": '42.50.20', "name": '&LH-Tests.&TogMenu.&yesno'}
+      \}
+call lh#menu#def_toggle_item(Data4)

dotfiles/vim/bundle/lh-vim-lib/tests/lh/topological-sort.vim

@@ -0,0 +1,122 @@
+"=============================================================================
+" $Id: topological-sort.vim 520 2012-03-19 18:09:15Z luc.hermitte $
+" File:         tests/lh/topological-sort.vim                            {{{1
+" Author:       Luc Hermitte <EMAIL:hermitte {at} free {dot} fr>
+"               <URL:http://code.google.com/p/lh-vim/>
+" License:      GPLv3 with exceptions
+"               <URL:http://code.google.com/p/lh-vim/wiki/License>
+" Version:      3.0.0
+" Created:      17th Apr 2008
+" Last Update:  $Date: 2012-03-19 19:09:15 +0100 (Mon, 19 Mar 2012) $
+"------------------------------------------------------------------------
+" Description:  «description»
+"
+"------------------------------------------------------------------------
+" Installation: «install details»
+" History:      «history»
+" TODO:         «missing features»
+" }}}1
+"=============================================================================
+
+let s:cpo_save=&cpo
+set cpo&vim
+"------------------------------------------------------------------------
+UTSuite [lh-vim-lib] topological sort
+
+" Fully defineds DAGs {{{1
+
+" A Direct Acyclic Graph {{{2
+let s:dag1 = {}
+let s:dag1[7] = [11, 8]
+let s:dag1[5] = [11]
+let s:dag1[3] = [8, 10]
+let s:dag1[11] = [2, 9, 10]
+let s:dag1[8] = [9]
+
+" A Direct Cyclic Graph {{{2
+let s:dcg1 = deepcopy(s:dag1)
+let s:dcg1[9] = [11]
+
+" Check routine: are the elements correctly sorted? {{{2
+function! s:DoTestOrder(elements)
+  Assert! len(a:elements) == 8
+  Assert index(a:elements, 7) < index(a:elements, 11)
+  Assert index(a:elements, 7) < index(a:elements, 8)
+  Assert index(a:elements, 5) < index(a:elements, 11)
+  Assert index(a:elements, 3) < index(a:elements, 8)
+  Assert index(a:elements, 3) < index(a:elements, 10)
+  Assert index(a:elements, 11) < index(a:elements, 2)
+  Assert index(a:elements, 11) < index(a:elements, 9)
+  Assert index(a:elements, 11) < index(a:elements, 10)
+  Assert index(a:elements, 8) < index(a:elements, 9)
+endfunction
+
+" Test DAG1 {{{2
+function! s:TestDAG_depth()
+  let res = lh#graph#tsort#depth(s:dag1, [3, 5,7])
+  call s:DoTestOrder(res)
+  echo "D(s:dag1)=".string(res)
+endfunction
+
+function! s:TestDAG_breadth()
+  let res = lh#graph#tsort#breadth(s:dag1, [3, 5,7])
+  call s:DoTestOrder(res)
+  echo "B(s:dag1)=".string(res)
+endfunction
+
+" Test DCG1 {{{2
+function! s:TestDCG_depth()
+  let expr = 'lh#graph#tsort#depth('.string(s:dcg1).', [3, 5,7])'
+  Assert should#throw(expr, 'Tsort: cyclic graph detected')
+endfunction
+
+function! s:TestDCG_breadth()
+  let expr = 'lh#graph#tsort#breadth('.string(s:dcg1).', [3, 5,7])'
+  Assert should#throw(expr, 'Tsort: cyclic graph detected')
+endfunction
+
+" Lazzy Evaluated DAGs {{{1
+
+" Emulated lazzyness {{{2
+" The time-consumings evaluation function
+let s:called = 0
+function! Fetch(node)
+  let s:called += 1
+  return has_key(s:dag1, a:node) ? (s:dag1[a:node]) : []
+endfunction
+
+" Test Fetch on a DAG {{{2
+function! s:TestDAG_fetch()
+  let s:called = 0
+  let res = lh#graph#tsort#depth(function('Fetch'), [3,5,7])
+  call s:DoTestOrder(res)
+  echo "D(fetch)=".string(res)
+  echo "Fetch has been evaluated ".s:called." times / ".len(res)
+  Assert s:called == len(res)
+endfunction
+
+
+" Setup/Teardown functions {{{1
+" display the test name before each assertion
+function! s:Setup()
+  if exists('g:UT_print_test')
+    let s:old_print_test = g:UT_print_test
+  endif
+  let g:UT_print_test = 1
+endfunction
+
+function! s:Teardown()
+  if exists('s:old_print_test')
+    let g:UT_print_test = s:old_print_test 
+    unlet s:old_print_test
+  else
+    unlet g:UT_print_test
+  endif
+endfunction
+
+
+" }}}1
+let &cpo=s:cpo_save
+"=============================================================================
+" vim600: set fdm=marker:
+

dotfiles/vim/plugin/local_vimrc.vim

@@ -0,0 +1,187 @@
+"=============================================================================
+" $Id$
+" File:		plugin/local_vimrc.vim                                     {{{1
+" Author:	Luc Hermitte <EMAIL:hermitte {at} free {dot} fr>
+"		<URL:http://code.google.com/p/lh-vim/>
+" Version:	1.10
+" Created:	09th Apr 2003
+" Last Update:	10th Apr 2012
+" License:      GPLv3
+"------------------------------------------------------------------------
+" Description:	Solution to Yakov Lerner's question on Vim ML {{{2
+"	Search for a _vimrc_local.vim file in the parents directories and
+"	source it if found.
+"
+"	Initial Question:
+"	"Is it possible, after sourcing ~/.exrc, to traverse from $HOME down
+"	 to cwd, and source .exrc from every directory if present ?
+"	 (And if cwd is not under $HOME, just source ~/.exrc).
+"	 What do I put into .vimrc to do this ?
+" 
+"	"Example: current dir is ~/a/b/c. Files are sourced in this order:
+"	 ~/.exrc, then ~/a/.exrc, ~/a/b/.exrc, ~/a/b/c/.exrc.
+"	 No messages if some of .exrc does not exist."
+" }}}2
+"------------------------------------------------------------------------
+" Installation:	{{{2
+" 	0- Set g:local_vimrc in your .vimrc if you wish to use filenames other
+" 	   than '_vimrc_local.vim'
+" 	a- Drop this plugin into a {rtp}/plugin/ directory, and install
+" 	   lh-vim-lib.
+" 	b- Define _vimrc_local.vim files into your directories
+"
+" 	   Ideally, each foo/bar/_vimrc_local.vim should be defined the same
+" 	   way as a ftplugin, i.e.: {{{3
+"		" Global stuff that needs to be updated/override
+"		let g:bar = 'bar'  " YES! This is a global variable!
+"		
+"		" Local stuff that needs to be defined once for each buffer
+"		if exists('b:foo_bar_local_vimrc') | finish | endif
+"		let b:foo_bar_local_vimrc = 1
+"		setlocal xxx
+"		nnoremap <buffer> foo :call <sid>s:Foo()<cr>
+"		let b:foo = 'foo'
+"		
+"		" Global stuff that needs to be defined once only => functions
+"		if exists('g:foo_bar_local_vimrc') | finish | endif
+"		let g:foo_bar_local_vimrc = 1
+"		function s:Foo()
+"		  ...
+"		endfunction
+"	c- In order to load the local variable before a skeleton is read, ask
+"	   the maintainer of template-file expander pluin to explicitly execute
+"	   :SourceLocalVimrc before doing the actual expansion.
+"
+" History:	{{{2
+"	v1.10   s:k_version in local_vimrc files is automatically incremented
+"	        on saving
+"	v1.9    New command :SourceLocalVimrc in order to explicitly load the
+"	        local-vimrc file before creating new files from a template (We
+"	        can't just rely on BufNewFile as there is no guaranty
+"	        local_vimrc's BufNewFile will be called before the one from the
+"	        Template Expander Plugin => it's up to the TEP to call the
+"	        function)
+"	v1.8    No more infinite recursion on file in non existent paths.
+"	        + patch from cristiklein to support paths with spaces
+"	v1.7    Don't search a local vimrc with remote paths (ftp://, http, ... )
+"	v1.6    Sometimes root path is Z:\\, which is quite odd
+"	v1.5    The auto-command is moved to the au-group LocalVimrc
+"	v1.4	Stop the recursion when we get to // or \\ (UNC paths)
+"	v1.3    More comments.
+"	        Trace of the directories searched when 'verbose' >= 2
+"	v1.2	Stops at $HOME or at root (/)
+" 	v1.1	Uses _vimrc_local.vim
+" 	v1.0	Initial solution
+" TODO:		{{{2
+" 	(*) Add option to stop looking at $HOME or elsewhere
+" 	    ([bg]:lv_stop_at : string, default $HOME) 
+" See also: alternative scripts: #441, #3393, #1860, ...
+" }}}1
+"=============================================================================
+
+"=============================================================================
+" Avoid global reinclusion {{{1
+let s:k_version = 109
+if exists("g:loaded_local_vimrc") 
+      \ && (g:loaded_local_vimrc >= s:k_version)
+      \ && !exists('g:force_reload_local_vimrc')
+  finish 
+endif
+let g:loaded_local_vimrc_vim = s:k_version
+let s:cpo_save=&cpo
+set cpo&vim
+" Avoid global reinclusion }}}1
+"------------------------------------------------------------------------
+" Commands {{{1
+command! -nargs=0 SourceLocalVimrc call s:Main(expand('%:p'))
+
+" Functions {{{1
+" Name of the files used                                              {{{2
+function! s:LocalVimrcName()
+  return exists('g:local_vimrc') ? g:local_vimrc : '_vimrc_local.vim'
+endfunction
+
+let s:local_vimrc = s:LocalVimrcName()
+
+" Value of $HOME -- actually a regex.                                 {{{2
+let s:home = substitute($HOME, '/\|\\', '[/\\\\]', 'g')
+
+" Regex used to determine when we must stop looking for local-vimrc's {{{2
+" Sometimes paths appears as Z:\\ ....
+let s:re_last_path = '^/\=$\|^[A-Za-z]:[/\\]\+$\|^//$\|^\\\\$'. 
+      \ ((s:home != '') ? ('\|^'.s:home.'$') : '')
+
+" The main function                                                   {{{2
+function! s:SourceLocal(path)
+  let up_path = fnamemodify(a:path,':h')
+  if up_path == '.' " likelly a non existant path
+    if ! isdirectory(a:path)
+      call lh#common#warning_msg("[local_vimrc] The current file '".expand('%:p:')."' seems to be in a non-existant directory: '".a:path."'")
+    endif
+    let up_path = getcwd()
+  endif
+  " call confirm('crt='.a:path."\nup=".up_path."\n$HOME=".s:home, '&Ok', 1)
+  " echomsg ('crt='.a:path."\nup=".up_path."\n$HOME=".s:home)
+  if (a:path !~ s:re_last_path)
+    if (up_path !~ s:re_last_path)
+      " Recursive call: first check the parent directory
+      call s:SourceLocal(up_path)
+    elseif filereadable(up_path.'/'.s:local_vimrc)
+      " Terminal condition: try to source the upper(/uppest?) local-vimrc
+      if &verbose >= 2
+	echo 'Check '.up_path.' for '.s:local_vimrc.' ... found!'
+      endif
+      exe 'source '.escape(up_path.'/'.s:local_vimrc, ' \$,')
+    elseif &verbose >= 2
+      echo 'Check '.up_path.' for '.s:local_vimrc.' ... none!'
+    endif
+  endif
+
+  " In all case, try to source the local-vimrc present in the directory
+  " currently considered
+  if filereadable(a:path.'/'.s:local_vimrc)
+    if &verbose >= 2
+      echo 'Check '.a:path.' for '.s:local_vimrc.' ... found!'
+    endif
+    exe 'source '.escape(a:path.'/'.s:local_vimrc, ' \$,')
+  elseif &verbose >= 2
+    echo 'Check '.a:path.' for '.s:local_vimrc.' ... none!'
+  endif
+endfunction
+
+function! s:CheckForbiddenPath(path)
+  let ok = a:path !~ '^\(s\=ftp:\|s\=http:\|scp:\|^$\)'
+  return ok
+endfunction
+
+function! s:Main(path)
+  " echomsg 'Sourcing: '.a:path
+  if !s:CheckForbiddenPath(a:path) 
+    return
+  else
+    call s:SourceLocal(a:path)
+  endif
+endfunction
+
+" Update s:k_version in local_vimrc files                             {{{2
+function! s:IncrementVersionOnSave()
+  let l = search('let s:k_version', 'n')
+  if l > 0
+    let nl = substitute(getline(l), '\(let\s\+s:k_version\s*=\s*\)\(\d\+\)\s*$', '\=submatch(1).(1+submatch(2))', '')
+    call setline(l, nl)
+  endif
+endfunction
+
+" Auto-command                                                        {{{2
+" => automate the loading of local-vimrc's every time we change buffers 
+aug LocalVimrc
+  au!
+  au BufEnter * :call s:Main(expand('<afile>:p:h'))
+  exe 'au BufWritePre '.s:local_vimrc . ' call s:IncrementVersionOnSave()'
+aug END
+
+" Functions }}}1
+"------------------------------------------------------------------------
+let &cpo=s:cpo_save
+"=============================================================================
+" vim600: set fdm=marker:

dotfiles/vim/syntax/ini.vim

@@ -0,0 +1,27 @@
+" Vim syntax file
+" Language:	Vim 7.2 script
+" Filenames:    *.ini, .hgrc, */.hg/hgrc
+" Maintainer:	Peter Hosey
+" Last Change:	Nov 11, 2008
+" Version:	7.2-02
+
+" Quit when a syntax file was already loaded
+if exists("b:current_syntax")
+  finish
+endif
+
+syn match   iniSection skipwhite contains=iniRule "^\[.\+\]$"
+
+syn match   iniRule "^[^=:]\{-1,}="
+syn match   iniRule "^[^:=]\{-1,}:"
+
+syn match   iniComment skipwhite "^[#;].*"
+
+" Highlighting Settings
+" ====================
+
+hi def link iniSection Keyword
+hi def link iniRule Identifier
+hi def link iniComment Comment
+
+let b:current_syntax = "ini"

dotfiles/vim/syntax/python.vim

@@ -0,0 +1,535 @@
+" Vim syntax file
+" Language:     Python
+" Maintainer:   Dmitry Vasiliev <dima at hlabs dot org>
+" URL:          https://github.com/hdima/vim-scripts/blob/master/syntax/python/python.vim
+" Last Change:  2013-03-10
+" Filenames:    *.py
+" Version:      3.3.0
+"
+" Based on python.vim (from Vim 6.1 distribution)
+" by Neil Schemenauer <nas at python dot ca>
+"
+" Bugs and feature requests can be reported through email
+" <dima at hlabs dot org>, GitHub at:
+"
+"   https://github.com/hdima/vim-scripts/issues
+"
+" , or Twitter:
+"
+"   https://twitter.com/hdima
+"
+" Contributors
+" ============
+"
+"   Jeroen Ruigrok van der Werven
+"   Pedro Algarvio
+"   John Eikenberry
+"   Caleb Adamantine
+"   Andrea Riciputi
+"   Anton Butanaev
+"   Marc Weber
+"
+" Options
+" =======
+"
+"    :let OPTION_NAME = 1                   Enable option
+"    :let OPTION_NAME = 0                   Disable option
+"
+"
+" Option to select Python version
+" -------------------------------
+"
+"    python_version_2                       Enable highlighting for Python 2
+"                                           (Python 3 highlighting is enabled
+"                                           by default). Can also be set as
+"                                           a buffer (b:python_version_2)
+"                                           variable.
+"
+"    You can also use the following local to buffer commands to switch
+"    between two highlighting modes:
+"
+"    :Python2Syntax                         Switch to Python 2 highlighting
+"                                           mode
+"    :Python3Syntax                         Switch to Python 3 highlighting
+"                                           mode
+"
+" Option names used by the script
+" -------------------------------
+"
+"    python_highlight_builtins              Highlight builtin functions and
+"                                           objects
+"      python_highlight_builtin_objs        Highlight builtin objects only
+"      python_highlight_builtin_funcs       Highlight builtin functions only
+"    python_highlight_exceptions            Highlight standard exceptions
+"    python_highlight_string_formatting     Highlight % string formatting
+"    python_highlight_string_format         Highlight str.format syntax
+"    python_highlight_string_templates      Highlight string.Template syntax
+"    python_highlight_indent_errors         Highlight indentation errors
+"    python_highlight_space_errors          Highlight trailing spaces
+"    python_highlight_doctests              Highlight doc-tests
+"    python_print_as_function               Highlight 'print' statement as
+"                                           function for Python 2
+"
+"    python_highlight_all                   Enable all the options above
+"                                           NOTE: This option don't override
+"                                           any previously set options
+"
+"    python_slow_sync                       Can be set to 0 for slow machines
+"
+
+" For version 5.x: Clear all syntax items
+" For versions greater than 6.x: Quit when a syntax file was already loaded
+if version < 600
+  syntax clear
+elseif exists("b:current_syntax")
+  finish
+endif
+
+"
+" Commands
+"
+command! -buffer Python2Syntax let b:python_version_2 = 1 | if exists("g:syntax_on") | syn off | endif | syn enable
+command! -buffer Python3Syntax let b:python_version_2 = 0 | if exists("g:syntax_on") | syn off | endif | syn enable
+
+" Enable option if it's not defined
+function! s:EnableByDefault(name)
+  if !exists(a:name)
+    let {a:name} = 1
+  endif
+endfunction
+
+" Check if option is enabled
+function! s:Enabled(name)
+  return exists(a:name) && {a:name} != 0
+endfunction
+
+" Is it Python 2 syntax?
+function! s:Python2Syntax()
+  return s:Enabled("b:python_version_2") || s:Enabled("g:python_version_2")
+endfunction
+
+"
+" Default options
+"
+
+call s:EnableByDefault("g:python_slow_sync")
+
+if s:Enabled("g:python_highlight_all")
+  call s:EnableByDefault("g:python_highlight_builtins")
+  if s:Enabled("g:python_highlight_builtins")
+    call s:EnableByDefault("g:python_highlight_builtin_objs")
+    call s:EnableByDefault("g:python_highlight_builtin_funcs")
+  endif
+  call s:EnableByDefault("g:python_highlight_exceptions")
+  call s:EnableByDefault("g:python_highlight_string_formatting")
+  call s:EnableByDefault("g:python_highlight_string_format")
+  call s:EnableByDefault("g:python_highlight_string_templates")
+  call s:EnableByDefault("g:python_highlight_indent_errors")
+  call s:EnableByDefault("g:python_highlight_space_errors")
+  call s:EnableByDefault("g:python_highlight_doctests")
+  call s:EnableByDefault("g:python_print_as_function")
+endif
+
+"
+" Keywords
+"
+
+syn keyword pythonStatement     break continue del
+syn keyword pythonStatement     exec return
+syn keyword pythonStatement     pass raise
+syn keyword pythonStatement     global assert
+syn keyword pythonStatement     lambda yield
+syn keyword pythonStatement     with
+syn keyword pythonStatement     def class nextgroup=pythonFunction skipwhite
+syn keyword pythonRepeat        for while
+syn keyword pythonConditional   if elif else
+syn keyword pythonPreCondit     import from
+syn keyword pythonException     try except finally
+syn keyword pythonOperator      and in is not or
+
+" added by aloism
+syn keyword pythonConvention    self
+
+if s:Python2Syntax()
+  if !s:Enabled("g:python_print_as_function")
+    syn keyword pythonStatement  print
+  endif
+  syn keyword pythonPreCondit   as
+  syn match   pythonFunction    "[a-zA-Z_][a-zA-Z0-9_]*" display contained
+else
+  syn keyword pythonStatement   as nonlocal False None True
+  syn match   pythonFunction    "\%([^[:cntrl:][:space:][:punct:][:digit:]]\|_\)\%([^[:cntrl:][:punct:][:space:]]\|_\)*" display contained
+endif
+
+"
+" Decorators (new in Python 2.4)
+"
+
+syn match   pythonDecorator	"@" display nextgroup=pythonDottedName skipwhite
+syn match   pythonDottedName "[a-zA-Z_][a-zA-Z0-9_]*\%(\.[a-zA-Z_][a-zA-Z0-9_]*\)*" display contained
+syn match   pythonDot        "\." display containedin=pythonDottedName
+
+"
+" Comments
+"
+
+syn match   pythonComment	"#.*$" display contains=pythonTodo,@Spell
+syn match   pythonRun		"\%^#!.*$"
+syn match   pythonCoding	"\%^.*\%(\n.*\)\?#.*coding[:=]\s*[0-9A-Za-z-_.]\+.*$"
+syn keyword pythonTodo		TODO FIXME XXX contained
+
+"
+" Errors
+"
+
+syn match pythonError		"\<\d\+\D\+\>" display
+syn match pythonError		"[$?]" display
+syn match pythonError		"[&|]\{2,}" display
+syn match pythonError		"[=]\{3,}" display
+
+" Mixing spaces and tabs also may be used for pretty formatting multiline
+" statements
+if s:Enabled("g:python_highlight_indent_errors")
+  syn match pythonIndentError	"^\s*\%( \t\|\t \)\s*\S"me=e-1 display
+endif
+
+" Trailing space errors
+if s:Enabled("g:python_highlight_space_errors")
+  syn match pythonSpaceError	"\s\+$" display
+endif
+
+"
+" Strings
+"
+
+if s:Python2Syntax()
+  " Python 2 strings
+  syn region pythonString   start=+[bB]\='+ skip=+\\\\\|\\'\|\\$+ excludenl end=+'+ end=+$+ keepend contains=pythonBytesEscape,pythonBytesEscapeError,pythonUniEscape,pythonUniEscapeError,@Spell
+  syn region pythonString   start=+[bB]\="+ skip=+\\\\\|\\"\|\\$+ excludenl end=+"+ end=+$+ keepend contains=pythonBytesEscape,pythonBytesEscapeError,pythonUniEscape,pythonUniEscapeError,@Spell
+  syn region pythonString   start=+[bB]\="""+ end=+"""+ keepend contains=pythonBytesEscape,pythonBytesEscapeError,pythonUniEscape,pythonUniEscapeError,pythonDocTest2,pythonSpaceError,@Spell
+  syn region pythonString   start=+[bB]\='''+ end=+'''+ keepend contains=pythonBytesEscape,pythonBytesEscapeError,pythonUniEscape,pythonUniEscapeError,pythonDocTest,pythonSpaceError,@Spell
+else
+  " Python 3 byte strings
+  syn region pythonBytes		start=+[bB]'+ skip=+\\\\\|\\'\|\\$+ excludenl end=+'+ end=+$+ keepend contains=pythonBytesError,pythonBytesContent,@Spell
+  syn region pythonBytes		start=+[bB]"+ skip=+\\\\\|\\"\|\\$+ excludenl end=+"+ end=+$+ keepend contains=pythonBytesError,pythonBytesContent,@Spell
+  syn region pythonBytes		start=+[bB]"""+ end=+"""+ keepend contains=pythonBytesError,pythonBytesContent,pythonDocTest2,pythonSpaceError,@Spell
+  syn region pythonBytes		start=+[bB]'''+ end=+'''+ keepend contains=pythonBytesError,pythonBytesContent,pythonDocTest,pythonSpaceError,@Spell
+
+  syn match pythonBytesError    ".\+" display contained
+  syn match pythonBytesContent  "[\u0000-\u00ff]\+" display contained contains=pythonBytesEscape,pythonBytesEscapeError
+endif
+
+syn match pythonBytesEscape       +\\[abfnrtv'"\\]+ display contained
+syn match pythonBytesEscape       "\\\o\o\=\o\=" display contained
+syn match pythonBytesEscapeError  "\\\o\{,2}[89]" display contained
+syn match pythonBytesEscape       "\\x\x\{2}" display contained
+syn match pythonBytesEscapeError  "\\x\x\=\X" display contained
+syn match pythonBytesEscape       "\\$"
+
+syn match pythonUniEscape         "\\u\x\{4}" display contained
+syn match pythonUniEscapeError    "\\u\x\{,3}\X" display contained
+syn match pythonUniEscape         "\\U\x\{8}" display contained
+syn match pythonUniEscapeError    "\\U\x\{,7}\X" display contained
+syn match pythonUniEscape         "\\N{[A-Z ]\+}" display contained
+syn match pythonUniEscapeError    "\\N{[^A-Z ]\+}" display contained
+
+if s:Python2Syntax()
+  " Python 2 Unicode strings
+  syn region pythonUniString  start=+[uU]'+ skip=+\\\\\|\\'\|\\$+ excludenl end=+'+ end=+$+ keepend contains=pythonBytesEscape,pythonBytesEscapeError,pythonUniEscape,pythonUniEscapeError,@Spell
+  syn region pythonUniString  start=+[uU]"+ skip=+\\\\\|\\"\|\\$+ excludenl end=+"+ end=+$+ keepend contains=pythonBytesEscape,pythonBytesEscapeError,pythonUniEscape,pythonUniEscapeError,@Spell
+  syn region pythonUniString  start=+[uU]"""+ end=+"""+ keepend contains=pythonBytesEscape,pythonBytesEscapeError,pythonUniEscape,pythonUniEscapeError,pythonDocTest2,pythonSpaceError,@Spell
+  syn region pythonUniString  start=+[uU]'''+ end=+'''+ keepend contains=pythonBytesEscape,pythonBytesEscapeError,pythonUniEscape,pythonUniEscapeError,pythonDocTest,pythonSpaceError,@Spell
+else
+  " Python 3 strings
+  syn region pythonString   start=+'+ skip=+\\\\\|\\'\|\\$+ excludenl end=+'+ end=+$+ keepend contains=pythonBytesEscape,pythonBytesEscapeError,pythonUniEscape,pythonUniEscapeError,@Spell
+  syn region pythonString   start=+"+ skip=+\\\\\|\\"\|\\$+ excludenl end=+"+ end=+$+ keepend contains=pythonBytesEscape,pythonBytesEscapeError,pythonUniEscape,pythonUniEscapeError,@Spell
+  syn region pythonString   start=+"""+ end=+"""+ keepend contains=pythonBytesEscape,pythonBytesEscapeError,pythonUniEscape,pythonUniEscapeError,pythonDocTest2,pythonSpaceError,@Spell
+  syn region pythonString   start=+'''+ end=+'''+ keepend contains=pythonBytesEscape,pythonBytesEscapeError,pythonUniEscape,pythonUniEscapeError,pythonDocTest,pythonSpaceError,@Spell
+endif
+
+if s:Python2Syntax()
+  " Python 2 Unicode raw strings
+  syn region pythonUniRawString start=+[uU][rR]'+ skip=+\\\\\|\\'\|\\$+ excludenl end=+'+ end=+$+ keepend contains=pythonRawEscape,pythonUniRawEscape,pythonUniRawEscapeError,@Spell
+  syn region pythonUniRawString start=+[uU][rR]"+ skip=+\\\\\|\\"\|\\$+ excludenl end=+"+ end=+$+ keepend contains=pythonRawEscape,pythonUniRawEscape,pythonUniRawEscapeError,@Spell
+  syn region pythonUniRawString start=+[uU][rR]"""+ end=+"""+ keepend contains=pythonUniRawEscape,pythonUniRawEscapeError,pythonDocTest2,pythonSpaceError,@Spell
+  syn region pythonUniRawString start=+[uU][rR]'''+ end=+'''+ keepend contains=pythonUniRawEscape,pythonUniRawEscapeError,pythonDocTest,pythonSpaceError,@Spell
+
+  syn match  pythonUniRawEscape       "\([^\\]\(\\\\\)*\)\@<=\\u\x\{4}" display contained
+  syn match  pythonUniRawEscapeError  "\([^\\]\(\\\\\)*\)\@<=\\u\x\{,3}\X" display contained
+endif
+
+" Python 2/3 raw strings
+if s:Python2Syntax()
+  syn region pythonRawString  start=+[bB]\=[rR]'+ skip=+\\\\\|\\'\|\\$+ excludenl end=+'+ end=+$+ keepend contains=pythonRawEscape,@Spell
+  syn region pythonRawString  start=+[bB]\=[rR]"+ skip=+\\\\\|\\"\|\\$+ excludenl end=+"+ end=+$+ keepend contains=pythonRawEscape,@Spell
+  syn region pythonRawString  start=+[bB]\=[rR]"""+ end=+"""+ keepend contains=pythonDocTest2,pythonSpaceError,@Spell
+  syn region pythonRawString  start=+[bB]\=[rR]'''+ end=+'''+ keepend contains=pythonDocTest,pythonSpaceError,@Spell
+else
+  syn region pythonRawString  start=+[rR]'+ skip=+\\\\\|\\'\|\\$+ excludenl end=+'+ end=+$+ keepend contains=pythonRawEscape,@Spell
+  syn region pythonRawString  start=+[rR]"+ skip=+\\\\\|\\"\|\\$+ excludenl end=+"+ end=+$+ keepend contains=pythonRawEscape,@Spell
+  syn region pythonRawString  start=+[rR]"""+ end=+"""+ keepend contains=pythonDocTest2,pythonSpaceError,@Spell
+  syn region pythonRawString  start=+[rR]'''+ end=+'''+ keepend contains=pythonDocTest,pythonSpaceError,@Spell
+
+  syn region pythonRawBytes  start=+[bB][rR]'+ skip=+\\\\\|\\'\|\\$+ excludenl end=+'+ end=+$+ keepend contains=pythonRawEscape,@Spell
+  syn region pythonRawBytes  start=+[bB][rR]"+ skip=+\\\\\|\\"\|\\$+ excludenl end=+"+ end=+$+ keepend contains=pythonRawEscape,@Spell
+  syn region pythonRawBytes  start=+[bB][rR]"""+ end=+"""+ keepend contains=pythonDocTest2,pythonSpaceError,@Spell
+  syn region pythonRawBytes  start=+[bB][rR]'''+ end=+'''+ keepend contains=pythonDocTest,pythonSpaceError,@Spell
+endif
+
+syn match pythonRawEscape +\\['"]+ display transparent contained
+
+if s:Enabled("g:python_highlight_string_formatting")
+  " % operator string formatting
+  if s:Python2Syntax()
+    syn match pythonStrFormatting	"%\%(([^)]\+)\)\=[-#0 +]*\d*\%(\.\d\+\)\=[hlL]\=[diouxXeEfFgGcrs%]" contained containedin=pythonString,pythonUniString,pythonUniRawString,pythonRawString
+    syn match pythonStrFormatting	"%[-#0 +]*\%(\*\|\d\+\)\=\%(\.\%(\*\|\d\+\)\)\=[hlL]\=[diouxXeEfFgGcrs%]" contained containedin=pythonString,pythonUniString,pythonUniRawString,pythonRawString
+  else
+    syn match pythonStrFormatting	"%\%(([^)]\+)\)\=[-#0 +]*\d*\%(\.\d\+\)\=[hlL]\=[diouxXeEfFgGcrs%]" contained containedin=pythonString,pythonRawString
+    syn match pythonStrFormatting	"%[-#0 +]*\%(\*\|\d\+\)\=\%(\.\%(\*\|\d\+\)\)\=[hlL]\=[diouxXeEfFgGcrs%]" contained containedin=pythonString,pythonRawString
+  endif
+endif
+
+if s:Enabled("g:python_highlight_string_format")
+  " str.format syntax
+  if s:Python2Syntax()
+    syn match pythonStrFormat "{{\|}}" contained containedin=pythonString,pythonUniString,pythonUniRawString,pythonRawString
+    syn match pythonStrFormat	"{\%(\%([^[:cntrl:][:space:][:punct:][:digit:]]\|_\)\%([^[:cntrl:][:punct:][:space:]]\|_\)*\|\d\+\)\=\%(\.\%([^[:cntrl:][:space:][:punct:][:digit:]]\|_\)\%([^[:cntrl:][:punct:][:space:]]\|_\)*\|\[\%(\d\+\|[^!:\}]\+\)\]\)*\%(![rsa]\)\=\%(:\%({\%(\%([^[:cntrl:][:space:][:punct:][:digit:]]\|_\)\%([^[:cntrl:][:punct:][:space:]]\|_\)*\|\d\+\)}\|\%([^}]\=[<>=^]\)\=[ +-]\=#\=0\=\d*,\=\%(\.\d\+\)\=[bcdeEfFgGnosxX%]\=\)\=\)\=}" contained containedin=pythonString,pythonUniString,pythonUniRawString,pythonRawString
+  else
+    syn match pythonStrFormat "{{\|}}" contained containedin=pythonString,pythonRawString
+    syn match pythonStrFormat	"{\%(\%([^[:cntrl:][:space:][:punct:][:digit:]]\|_\)\%([^[:cntrl:][:punct:][:space:]]\|_\)*\|\d\+\)\=\%(\.\%([^[:cntrl:][:space:][:punct:][:digit:]]\|_\)\%([^[:cntrl:][:punct:][:space:]]\|_\)*\|\[\%(\d\+\|[^!:\}]\+\)\]\)*\%(![rsa]\)\=\%(:\%({\%(\%([^[:cntrl:][:space:][:punct:][:digit:]]\|_\)\%([^[:cntrl:][:punct:][:space:]]\|_\)*\|\d\+\)}\|\%([^}]\=[<>=^]\)\=[ +-]\=#\=0\=\d*,\=\%(\.\d\+\)\=[bcdeEfFgGnosxX%]\=\)\=\)\=}" contained containedin=pythonString,pythonRawString
+  endif
+endif
+
+if s:Enabled("g:python_highlight_string_templates")
+  " string.Template format
+  if s:Python2Syntax()
+    syn match pythonStrTemplate	"\$\$" contained containedin=pythonString,pythonUniString,pythonUniRawString,pythonRawString
+    syn match pythonStrTemplate	"\${[a-zA-Z_][a-zA-Z0-9_]*}" contained containedin=pythonString,pythonUniString,pythonUniRawString,pythonRawString
+    syn match pythonStrTemplate	"\$[a-zA-Z_][a-zA-Z0-9_]*" contained containedin=pythonString,pythonUniString,pythonUniRawString,pythonRawString
+  else
+    syn match pythonStrTemplate	"\$\$" contained containedin=pythonString,pythonRawString
+    syn match pythonStrTemplate	"\${[a-zA-Z_][a-zA-Z0-9_]*}" contained containedin=pythonString,pythonRawString
+    syn match pythonStrTemplate	"\$[a-zA-Z_][a-zA-Z0-9_]*" contained containedin=pythonString,pythonRawString
+  endif
+endif
+
+if s:Enabled("g:python_highlight_doctests")
+  " DocTests
+  syn region pythonDocTest	start="^\s*>>>" end=+'''+he=s-1 end="^\s*$" contained
+  syn region pythonDocTest2	start="^\s*>>>" end=+"""+he=s-1 end="^\s*$" contained
+endif
+
+"
+" Numbers (ints, longs, floats, complex)
+"
+
+if s:Python2Syntax()
+  syn match   pythonHexError	"\<0[xX]\x*[g-zG-Z]\+\x*[lL]\=\>" display
+  syn match   pythonOctError	"\<0[oO]\=\o*\D\+\d*[lL]\=\>" display
+  syn match   pythonBinError	"\<0[bB][01]*\D\+\d*[lL]\=\>" display
+
+  syn match   pythonHexNumber	"\<0[xX]\x\+[lL]\=\>" display
+  syn match   pythonOctNumber "\<0[oO]\o\+[lL]\=\>" display
+  syn match   pythonBinNumber "\<0[bB][01]\+[lL]\=\>" display
+
+  syn match   pythonNumberError	"\<\d\+\D[lL]\=\>" display
+  syn match   pythonNumber	"\<\d[lL]\=\>" display
+  syn match   pythonNumber	"\<[0-9]\d\+[lL]\=\>" display
+  syn match   pythonNumber	"\<\d\+[lLjJ]\>" display
+
+  syn match   pythonOctError	"\<0[oO]\=\o*[8-9]\d*[lL]\=\>" display
+  syn match   pythonBinError	"\<0[bB][01]*[2-9]\d*[lL]\=\>" display
+else
+  syn match   pythonHexError	"\<0[xX]\x*[g-zG-Z]\x*\>" display
+  syn match   pythonOctError	"\<0[oO]\=\o*\D\+\d*\>" display
+  syn match   pythonBinError	"\<0[bB][01]*\D\+\d*\>" display
+
+  syn match   pythonHexNumber	"\<0[xX]\x\+\>" display
+  syn match   pythonOctNumber "\<0[oO]\o\+\>" display
+  syn match   pythonBinNumber "\<0[bB][01]\+\>" display
+
+  syn match   pythonNumberError	"\<\d\+\D\>" display
+  syn match   pythonNumberError	"\<0\d\+\>" display
+  syn match   pythonNumber	"\<\d\>" display
+  syn match   pythonNumber	"\<[1-9]\d\+\>" display
+  syn match   pythonNumber	"\<\d\+[jJ]\>" display
+
+  syn match   pythonOctError	"\<0[oO]\=\o*[8-9]\d*\>" display
+  syn match   pythonBinError	"\<0[bB][01]*[2-9]\d*\>" display
+endif
+
+syn match   pythonFloat		"\.\d\+\%([eE][+-]\=\d\+\)\=[jJ]\=\>" display
+syn match   pythonFloat		"\<\d\+[eE][+-]\=\d\+[jJ]\=\>" display
+syn match   pythonFloat		"\<\d\+\.\d*\%([eE][+-]\=\d\+\)\=[jJ]\=" display
+
+"
+" Builtin objects and types
+"
+
+if s:Enabled("g:python_highlight_builtin_objs")
+  if s:Python2Syntax()
+    syn keyword pythonBuiltinObj	True False None
+  endif
+  syn keyword pythonBuiltinObj	Ellipsis NotImplemented
+  syn keyword pythonBuiltinObj	__debug__ __doc__ __file__ __name__ __package__
+endif
+
+"
+" Builtin functions
+"
+
+if s:Enabled("g:python_highlight_builtin_funcs")
+  if s:Python2Syntax()
+    syn keyword pythonBuiltinFunc	apply basestring buffer callable coerce
+    syn keyword pythonBuiltinFunc	execfile file help intern long raw_input
+    syn keyword pythonBuiltinFunc	reduce reload unichr unicode xrange
+    if s:Enabled("g:python_print_as_function")
+      syn keyword pythonBuiltinFunc	print
+    endif
+  else
+    syn keyword pythonBuiltinFunc	ascii exec memoryview print
+  endif
+  syn keyword pythonBuiltinFunc	__import__ abs all any
+  syn keyword pythonBuiltinFunc	bin bool bytearray bytes
+  syn keyword pythonBuiltinFunc	chr classmethod cmp compile complex
+  syn keyword pythonBuiltinFunc	delattr dict dir divmod enumerate eval
+  syn keyword pythonBuiltinFunc	filter float format frozenset getattr
+  syn keyword pythonBuiltinFunc	globals hasattr hash hex id
+  syn keyword pythonBuiltinFunc	input int isinstance
+  syn keyword pythonBuiltinFunc	issubclass iter len list locals map max
+  syn keyword pythonBuiltinFunc	min next object oct open ord
+  syn keyword pythonBuiltinFunc	pow property range
+  syn keyword pythonBuiltinFunc	repr reversed round set setattr
+  syn keyword pythonBuiltinFunc	slice sorted staticmethod str sum super tuple
+  syn keyword pythonBuiltinFunc	type vars zip
+endif
+
+"
+" Builtin exceptions and warnings
+"
+
+if s:Enabled("g:python_highlight_exceptions")
+  if s:Python2Syntax()
+    syn keyword pythonExClass	StandardError
+  else
+    syn keyword pythonExClass	BlockingIOError ChildProcessError
+    syn keyword pythonExClass	ConnectionError BrokenPipeError
+    syn keyword pythonExClass	ConnectionAbortedError ConnectionRefusedError
+    syn keyword pythonExClass	ConnectionResetError FileExistsError
+    syn keyword pythonExClass	FileNotFoundError InterruptedError
+    syn keyword pythonExClass	IsADirectoryError NotADirectoryError
+    syn keyword pythonExClass	PermissionError ProcessLookupError TimeoutError
+
+    syn keyword pythonExClass	ResourceWarning
+  endif
+  syn keyword pythonExClass	BaseException
+  syn keyword pythonExClass	Exception ArithmeticError
+  syn keyword pythonExClass	LookupError EnvironmentError
+
+  syn keyword pythonExClass	AssertionError AttributeError BufferError EOFError
+  syn keyword pythonExClass	FloatingPointError GeneratorExit IOError
+  syn keyword pythonExClass	ImportError IndexError KeyError
+  syn keyword pythonExClass	KeyboardInterrupt MemoryError NameError
+  syn keyword pythonExClass	NotImplementedError OSError OverflowError
+  syn keyword pythonExClass	ReferenceError RuntimeError StopIteration
+  syn keyword pythonExClass	SyntaxError IndentationError TabError
+  syn keyword pythonExClass	SystemError SystemExit TypeError
+  syn keyword pythonExClass	UnboundLocalError UnicodeError
+  syn keyword pythonExClass	UnicodeEncodeError UnicodeDecodeError
+  syn keyword pythonExClass	UnicodeTranslateError ValueError VMSError
+  syn keyword pythonExClass	WindowsError ZeroDivisionError
+
+  syn keyword pythonExClass	Warning UserWarning BytesWarning DeprecationWarning
+  syn keyword pythonExClass	PendingDepricationWarning SyntaxWarning
+  syn keyword pythonExClass	RuntimeWarning FutureWarning
+  syn keyword pythonExClass	ImportWarning UnicodeWarning
+endif
+
+if s:Enabled("g:python_slow_sync")
+  syn sync minlines=2000
+else
+  " This is fast but code inside triple quoted strings screws it up. It
+  " is impossible to fix because the only way to know if you are inside a
+  " triple quoted string is to start from the beginning of the file.
+  syn sync match pythonSync grouphere NONE "):$"
+  syn sync maxlines=200
+endif
+
+if version >= 508 || !exists("did_python_syn_inits")
+  if version <= 508
+    let did_python_syn_inits = 1
+    command -nargs=+ HiLink hi link <args>
+  else
+    command -nargs=+ HiLink hi def link <args>
+  endif
+
+  HiLink pythonStatement        Statement
+  HiLink pythonPreCondit        Statement
+  HiLink pythonFunction         Function
+  HiLink pythonConditional      Conditional
+  HiLink pythonRepeat           Repeat
+  HiLink pythonException        Exception
+  HiLink pythonOperator         Operator
+
+  HiLink pythonDecorator        Define
+  HiLink pythonDottedName       Function
+  HiLink pythonDot              Normal
+
+  HiLink pythonComment          Comment
+  HiLink pythonCoding           Special
+  HiLink pythonRun              Special
+  HiLink pythonTodo             Todo
+
+  HiLink pythonError            Error
+  HiLink pythonIndentError      Error
+  HiLink pythonSpaceError       Error
+
+  HiLink pythonString           String
+  HiLink pythonRawString        String
+
+  HiLink pythonUniEscape        Special
+  HiLink pythonUniEscapeError   Error
+
+  if s:Python2Syntax()
+    HiLink pythonUniString          String
+    HiLink pythonUniRawString       String
+    HiLink pythonUniRawEscape       Special
+    HiLink pythonUniRawEscapeError  Error
+  else
+    HiLink pythonBytes              String
+    HiLink pythonRawBytes           String
+    HiLink pythonBytesContent       String
+    HiLink pythonBytesError         Error
+    HiLink pythonBytesEscape        Special
+    HiLink pythonBytesEscapeError   Error
+  endif
+
+  HiLink pythonStrFormatting    Special
+  HiLink pythonStrFormat        Special
+  HiLink pythonStrTemplate      Special
+
+  HiLink pythonDocTest          Special
+  HiLink pythonDocTest2         Special
+
+  " added by aloism
+  HiLink pythonConvention       Define	
+
+  HiLink pythonNumber           Number
+  HiLink pythonHexNumber        Number
+  HiLink pythonOctNumber        Number
+  HiLink pythonBinNumber        Number
+  HiLink pythonFloat            Float
+  HiLink pythonNumberError      Error
+  HiLink pythonOctError         Error
+  HiLink pythonHexError         Error
+  HiLink pythonBinError         Error
+
+  HiLink pythonBuiltinObj       Structure
+  HiLink pythonBuiltinFunc      Function
+
+  HiLink pythonExClass          Structure
+
+  delcommand HiLink
+endif
+
+let b:current_syntax = "python"

dotfiles/vim/vimrc

@@ -0,0 +1,93 @@
+execute pathogen#infect()
+
+"#### vrom vimrc_example.vim ####"
+
+" allow backspacing over everything in insert mode
+set backspace=indent,eol,start
+set history=500		" keep 50 lines of command line history
+set ruler		" show the cursor position all the time
+set showcmd		" display incomplete commands
+set incsearch		" do incremental searching
+
+" In many terminal emulators the mouse works just fine, thus enable it.
+if has('mouse')
+  set mouse=a
+endif
+
+" Switch syntax highlighting on, when the terminal has colors
+" Also switch on highlighting the last used search pattern.
+if &t_Co > 2 || has("gui_running")
+  syntax on
+  set hlsearch
+endif
+
+" Only do this part when compiled with support for autocommands.
+if has("autocmd")
+
+  " Enable file type detection.
+  " Use the default filetype settings, so that mail gets 'tw' set to 72,
+  " 'cindent' is on in C files, etc.
+  " Also load indent files, to automatically do language-dependent indenting.
+  filetype plugin indent on
+
+  " Put these in an autocmd group, so that we can delete them easily.
+  augroup vimrcEx
+  au!
+
+  " For all text files set 'textwidth' to 78 characters.
+  autocmd FileType text setlocal textwidth=78
+
+  " When editing a file, always jump to the last known cursor position.
+  " Don't do it when the position is invalid or when inside an event handler
+  " (happens when dropping a file on gvim).
+  " Also don't do it when the mark is in the first line, that is the default
+  " position when opening a file.
+  autocmd BufReadPost *
+    \ if line("'\"") > 1 && line("'\"") <= line("$") |
+    \   exe "normal! g`\"" |
+    \ endif
+
+  augroup END
+
+else
+
+  set autoindent		" always set autoindenting on
+
+endif " has("autocmd")
+
+" Convenient command to see the difference between the current buffer and the
+" file it was loaded from, thus the changes you made.
+" Only define it when not defined already.
+if !exists(":DiffOrig")
+  command DiffOrig vert new | set bt=nofile | r ++edit # | 0d_ | diffthis
+		  \ | wincmd p | diffthis
+endif
+
+"########################
+"######## from me #######
+
+set listchars=tab:>-,precedes:<
+set list
+
+" my favorite indent style
+set tabstop=4
+set shiftwidth=4
+set expandtab
+
+let g:local_vimrc=".vimrc_local.vim"
+
+" for gvim
+colorscheme torte
+set gfn=Droid\ Sans\ Mono\ 9
+
+set fileencodings=ucs-bom,utf-8,cp1250,latin1
+
+let python_highlight_all = 1
+
+set number
+highlight LineNr term=bold cterm=NONE ctermfg=DarkGrey ctermbg=NONE gui=NONE guifg=DarkGrey guibg=NONE
+
+set autoindent
+
+set pastetoggle=<F2>
+nmap <F3> :set invnumber<CR>

mklinks

@@ -0,0 +1,49 @@
+#!/bin/sh
+
+# ============================================
+# mklinks
+# --------------------------------------------
+# This script will go through each sub-folder
+# of DOTROOT and create symbolic link to it
+# under your HOME named with "." prefix.
+#
+# This is useful for sharing your dotfiles
+# (e.g. using service like Dropbox or keeping
+# them in a shared VCS repository like git)
+#
+#    DOTROOT - path where your shared dot-files
+#              are.
+#    PREFIX  - where you want your links to
+#              dot-files to be created ($HOME
+#              by default)
+#
+# --------------------------------------------
+# By Alois Mahdal; no warranty
+# ============================================
+
+
+if [ -z "$1" ];
+    then echo "usage: $0: DOTROOT [PREFIX]";
+    exit 1;
+fi;
+
+dotroot=$1
+prefix=$HOME
+
+if [ -n "$2" ];
+    then prefix=$2;
+fi;
+
+
+ls $dotroot | while read item;
+do
+    source=$dotroot/$item;
+    target=$prefix/.$item;
+    if [ -e $target ];
+    then
+        echo "target exists: $target" 1>&2;
+    else
+        ln -s $source $target;
+    fi;
+done;
+