" AUTHOR: GPL(C) Mohsin Ahmed, http://www.cs.albany.edu/~mosh 
" WHOM: GVIM/VIM tricks scriptus.
" WHAT: Source this file into vim, to add these commands to your menu
:amenu MoshReg.Edit-Backup<TAB>:sav  :exe "sav! $TMP/" . expand("%:t")<CR>
:amenu MoshReg.Edit-Backup-Tmp<TAB>:sav  :exe "sav $TMP/" . expand("%:t") . strftime("-%Y-%m-%d_%H%M%S")<CR>
:amenu MoshReg.Goto-File_or_Dir<TAB>gf    <C-w>o<C-w>sgf:set buflisted<CR><C-w>w<C-w>R
:amenu MoshReg.Cd-Dir<TAB>:cd       :exe ":cd " expand("%:h") <CR>
:amenu MoshReg.List-Goto-Buffer-N<TAB>:buf\ NUMBER :ls!<CR>:buf 1
:amenu MoshReg.Grep-Files             :!(cd %:p:h;grep -i error *.*)&
:amenu MoshReg.Find-Files             :!(cd %:p:h; find . -print -type f -name '*WORD*')&
:amenu Mo1.C.//To/**/Comment<TAB>:s,//xx,/*\ xx\ */, :s,//\s*\(.*\)$,/* \1 */,<CR>


:amenu Mo1.Show.Wrap-Lines<TAB>:set\ wrap!    :set wrap!<bar>set guioptions^=b<cr>
:amenu Mo1.Show.LineNumbers<TAB>:set\ nu!    :set nu!<CR>
:amenu Mo1.Show.Tabs<TAB>:set\ list!     :set list!<CR>
:amenu Mo1.Subst.s/PWD/$PWD,gc          :exe ":%s,".expand("%:h").",$PWD,gc"
:amenu Mo1.Subst.basename<TAB>:%s,\\S+/,,gc     :%s/\<\([a-zA-Z]:\)\=[/\\]\S\+[/\\]//gc
:amenu Mo1.Subst.backslash2slash<TAB>:s,\\\\,\/,g      :s,\\,/,g

if strlen($DICT)>0
:amenu Mo2.Dict.Preview<TAB>:pedit\ WORD\ $DICT :exe "silent pedit +/^" . toupper(expand("<cword>")) . " $DICT"<CR>
:imenu Mo2.Dict.Lookup<TAB>:!perl  <ESC>:!perl -ne \"print if m/^<cword>/i;\" $DICT<CR>
:tmenu Mo2.Dict.Lookup  " lookup work being typed in insert mode"
endif

:amenu Mo2.Tags.Preview<TAB><C-w>}  <C-w>}
:amenu Mo2.Tags.Auto-Preview<TAB>:autopreview\.vim  :so ~/vim/autopreview.vim<CR>
:amenu Mo2.Tags.make-ctags<TAB>:make-tags :!(cd %:p:h;ctags --file-tags=yes *.*)&<CR>
:amenu Mo2.emacs.FileList_To_etags     :%   s/.*/<c-l><C-v><c-m>&,1/


:amenu Mo1./.Delete-Matching-Lines<TAB>:g//d     :g//d<CR>
:amenu Mo1./.Delete-Non-Matching-Lines<TAB>:v//d :v//d<CR>
:amenu Mo1./.Delete-Matching-Paras<tab>:1,$!perl     :1,$! perl -0000lne 'print if m/word/'
:amenu Mo1./.Move-Matching-Lines-Top<TAB>g//\.m0     ma:g// .m0<CR>`a
:amenu Mo1./.Move-Non-Matching-Lines-Last<TAB>v//\.m$ ma:v// .m$<CR>`a
:amenu Mo1./.Match-Date<TAB>/Date  /[A-Z][a-z][a-z] [A-Z][a-z][a-z] \+\d\+ \+\d\d:\d\d:\d\d \([A-Z][A-Z]T \)\=\d\d\d\d\>/<CR>
:amenu Mo1.Filter<TAB>:!perl_yourscript  :1,$!perl -ne \"s[xx][xx]i; printf(\\"\%3d:\%s\\",\$.,\$_) if m/./i;\"
:amenu Mo1.Format.NumberLines<TAB>:!perl :1,$!perl -ne \"printf(\\"\%3d:\%s\\",\$.,\$_);\"<CR>
:amenu Mo1.Format.ChopLongLines         :%s!\(.\{-80,}\)\s!\1<C-v>\r!gc
:amenu Mo1.Format.Par<TAB>j{!}par\.exe\ 72j         j{!}par 72j
:amenu Mo1.Format.Par:gqap<TAB>gqap}     gqap}
:amenu Mo1.Format.Buffer<TAB>gqG         gqG
:amenu Mo1.Format.Region<TAB>gq          gq
:amenu Mo1.Format.JoinHypenatedLines    :%s,\v\s+(\w+)-\n(\s*)(\S+)\s*, \1\3^M\2,gc
:amenu Mo1.Format.JoinBackSlashLines    :%s,\\\n,,gc
:amenu Mo1.Char.Del-Blank-Lines<TAB>:v\/\.\/d   :v/./d<CR>
:amenu Mo1.Char.Remove-Control<TAB>:%s,[^[:print:]\\t],,g   :%s,[^[:print:]\t],,g<CR>
:amenu Mo1.Char.Indent-Leading-Spaces<TAB><<>>  <<>>
:amenu Mo1.Char.Del-Control-M<TAB>:%s,\\r,,g   :%s,\r,,g<CR>
:amenu Mo1.Char.Dos2Unix<TAB>ff=unix    :set ff=unix
:amenu Mo1.Char.Unix2Dos<TAB>ff=dos     :set ff=dos
:amenu Mo1.Char.Untabify<TAB>expantab,retab   :set expandtab<bar>:retab<CR>
:amenu Mo1.Char.Leading-Spaces-to-Tab<TAB>:%s,^\\s\\+,\\t,c  :%s,^\s\+,^I,c
:amenu Mo1.Char.Del-Trailing-Spaces<TAB>^Ks ma:silent! %s,[\s\r]\+$,,<CR>`a
:amenu Mo1.Char.Squeeze-Blank-Lines<TAB>^Kj ma:silent! v/./ .,/./-1 j<CR>`a
:amenu Mo1.Char.Del-Underlined-Man<TAB>^Kh  ma:silent! %s,.\b,,g<CR>`a

:amenu Mo1.Cvs.diff_fix :set ft=diff<CR>:1,$!cvs2local.pl
:amenu Mo1.Cvs.cvs-annotate<TAB>:!cvs-ann\.ksh :exe  "!cvs-ann ".line(".")."-3..".line(".")."+3" expand("%")<CR>

:amenu Mo1.Register.RegA2Clip<TAB>:let\ @*=@a        :let @*=@a<CR>
:amenu Mo1.Register.Clip2RegA<TAB>:let\ @a=@*        :let @a=@*<CR>
:amenu Mo1.Register.Clear-RegA<TAB>:let\ @a=""      :let @a=""<CR>
:amenu Mo1.Register.MatchingLines2RegA<TAB>:g//ya   :g//y a<CR>
:amenu Mo1.Register.AddMatchingLines2RegA<TAB>:g//yA   :g//y A<CR>

:amenu Mo1.Web.iHomePage     o<a href="http://www.cs.albany.edu/~mosh">Home</a><ESC>
:amenu Mo1.Web.iMailToAlb    o<a href="mailto:mosh#cs.albany.edu">Email</a><ESC>

:hi previewWord term=bold ctermfg=black ctermbg=green guibg=green
:amenu Mo1.Mark.Highlight :exe 'match previewWord "\%' . line(".") . 'l\%' . col(".") . 'c\k*"'<CR>
:amenu Mo1.-Sep-	:

:amenu Mo1.Vim.ExeLine<TAB>:exe\ getline("\.") :execute getline(".")<CR>

amenu Maya.Tex.Quotes<TAB>``Quoted''       :%s,".*",``&'',gc
amenu Maya.Tex.Verse<TAB>Verse             `<O\begin{quote}<ESC>`>o\end{quote}
amenu Maya.Tex.TeXCookBook                 :!(start yap $DOC/tex-cookbook.dvi)&<CR>
amenu Maya.Tex.LaTeX<TAB>!latex            :exe "!latex " expand("%:r")<CR>
amenu Maya.Tex.SpellCheck<TAB>!ispell      :!(ispell %)&
amenu Maya.Tex.DviView<TAB>!yap            :exe "!yap " expand("%:r")<CR>
amenu Maya.Tex.Ghostview<TAB>!gs           :exe "!gsview " expand("%:r")<CR>
amenu Maya.Tex.MetaFont<TAB>!mf            :exe "!mf " expand("%:r")<CR>
amenu Maya.Tex.TeX<TAB>!tex                :exe "!tex " expand("%:r")<CR>
amenu Maya.Web.Txt2Html<TAB>href           :%s,.*,<a href="&">&</a><br>,gc

"-- Use TAB to complete when typing words,
"-- uses dictionary and source files.

function! MoshTabOrComplete()
    if col('.')>1 && strpart( getline('.'), col('.')-2, 3 ) =~ '^\w\>'
        return "\<C-N>"
    else
        return "\<Tab>"
endfunction

inoremap <Tab> <C-R>=MoshTabOrComplete()<CR>

" Source any local .vimrc up the tree, allows tags up any tree.
if $HOME =~? "\\(mohsin\\|mosh\\)$"
    let parent=1
    let local_vimrc = ".vimrc"
    let local_tags = "tags"
    while parent <= 8
        if filewritable(local_vimrc)
            echomsg "sourcing " . local_vimrc
            exe ":so " . local_vimrc
        endif
        let local_vimrc = "../". local_vimrc
        let local_tags = "../". local_tags
        exe ":set tags+=".local_tags
        let parent = parent+1
    endwhile
    unlet parent local_vimrc
endif

" EOF