root/.vimrc

" First things first - turn on no-compatible
" (for advanced features) - otherwise we might
" as well just use vi :-)
set nocompatible

" mac specific settings
if exists( "$HOME" )
  if $HOME == '/Users/kentcowgill'
    " my mac and terminal settings need this
    " to display color correctly.
    set term=xterm-color
    " take advantage of the perldoc filetype plugin
    helptags /Users/kentcowgill/.vim/doc
    " this is really only helpful where i have a browser
    " handy to view URLs
    function! Browser ()
      let line = getline (".")
      let line = matchstr (line, "htt[^ ]*")
      exec "!open ".line
    endfunction
    " and a keymap to call it
    map <Leader>w :call Browser ()<CR>
  else
    " other unixen prefer this, and $HOME is likely different
    set term=xterm
    helptags /home/kcowgill/.vim/doc
  endif
else
  " just in case, but ought to confirm this first
  set term=xterm
  helptags /home/kcowgill/.vim/doc
endif

set tags=./tags,../tags,../../tags,../../../tags

" Display oriented settings
" turn on syntax highlighting
syntax enable
" i prefer light on dark terminals
set background=dark
" load filetype plugins
filetype plugin on
filetype plugin indent on
" the following scheme is good for presentations.
colors desert
"set cursorline
" the desert colorscheme sets these a little
" funny, so they're adjusted here
highlight Folded term=standout ctermfg=6
  \ guifg=SkyBlue
highlight Pmenu ctermfg=1 ctermbg=4
  \ guibg=grey30
highlight FoldColumn term=standout cterm=bold
  \ ctermfg=white ctermbg=0 guifg=gold guibg=grey30
highlight Ignore term=standout cterm=bold
  \ ctermfg=white ctermbg=0 guifg=gold guibg=grey30
"highlight CursorLine term=none cterm=none ctermbg=8
highlight Special ctermfg=13
" long lines are bad!
highlight link rightMargin Error
match rightMargin '\(^.\{78,\}\)\@<=.'
" highlight whitespace at EOL:
highlight link WhitespaceEOL Error
2match WhitespaceEOL '\s\+$'
" SpecialKey maps to at least the tabs I'm displaying
high SpecialKey term=reverse ctermfg=4
" wrap long lines, don't make me scroll
set wrap
" balance braces
set showmatch
" how long to show matches (in 1/10ths of seconds)
set matchtime=4
" add brackets
set matchpairs+=<:>
" filetype additions
autocmd BufNewFile,BufRead *.t,*.ptml,*.cgi setf perl
autocmd BufNewFile,BufRead *.tt,*.tt2 setf tt2html
"autocmd FileType text call TextMode()
autocmd FileType mail call TextMode()
autocmd FileType perl call PerlMode()


" Status line settings
" show what mode we're in
set showmode
" always show the status line
set laststatus=2
" always show cursor position
set ruler
" enhanced commandline/status completion
set wildmenu
set wildmode=longest:full,full
" options for this are list, list:longest, list:longest,full

" Searching and matching settings
" jumps to search word as you type
set incsearch
" highlight search matches (but if you
" like this, you can make it a more pleasant
hi Search    ctermbg=8 ctermfg=white cterm=bold
hi IncSearch ctermbg=8 ctermfg=white cterm=bold
set hls

" Tabs and indenting settings
" how to deal with tabs.  indent of two
set tabstop=2
" expand tabs to spaces
set expandtab
" number of spaces to use for autoindenting
set shiftwidth=2
" auto indenting features
set autoindent
set smartindent
"make tab in visual mode indent code
vmap <tab> >gv
vmap <s-tab> <gv
" in insert mode, remaps tab to ctrl-n, for autocomplete
inoremap <Tab> <C-N>
" stop left indenting comments
inoremap # X<C-H>#
" show tabs and spaces
set list listchars=tab:\|-,trail:.

" OS and environment settings
set path=$PATH,.,/usr/bin,/usr/local/bin
" how many lines of history to save
set history=500
" backspace over newlines,autoindents,
" and insertion point in insert mode
set backspace=eol,indent,start
"jump to last sursor position
autocmd BufReadPost *
  \ if line("'\"") > 0 && line("'\"") <= line("$") |
  \   exe "normal g`\"" |
  \ endif
augroup END
" current directory follows the file being edited
" as long as it's not a remote file (or a test file)
function! AlwaysCD()
  if bufname("") !~ "^scp://" && bufname("") !~ "\.t$"
    lcd %:p:h
  endif
endfunction
autocmd BufEnter * call AlwaysCD()
" backups, swapfiles
set nobackup
set nowb
set noswapfile
" allow to write any file we're allowed to
" write, no ! necessary
set writeany
" set some easy key mappings for switching
" buffers: when switching to a buffer above or
" below, completely expand it, shrinking
" all others maximally
nmap <c-k> <c-w>k<c-w>_
nmap <c-j> <c-w>j<c-w>_
" shorthand for switching to right/left buffers and maximizing vertically
nmap <c-l> <c-w>l<c-w>|
nmap <c-h> <c-w>h<c-w>|
" set a min window height for stacking windows
set wmh=0
" set a min window width for stacking window left/right
set wmw=0
" handily re-sources .vimrc on saving .vimrc file ;-)
" <buffer> applies mapping as a local buffer mapping only
autocmd BufEnter *.vimrc noremap <buffer> :w :w<cr>:source %<cr>
"don't use Q for Ex mode
map Q :q
" keep the cursor in the center of the screen!
set scrolloff=999
" support unicode
set encoding=utf-8
" page on extended output
set more
" shift-f1 to toggle paste
set pastetoggle=<S-F1>
" set xterm title
set title
" ignore directories matching
set wildignore+=*/CVS/
set wildignore+=*/SVN/

" Settings or text files.
" turn on spelling when entering a text file:
"autocmd BufRead,BufNewFile *.txt setlocal spell spelllang=en_us | set tw=78

" Settings for perl stuff.
" perltidy things! true, perl-support provides this, but i had gotten
" used to hitting "_t" to run my source through perltidy.
nnoremap <silent> _t :%!perltidy -q<Enter>
vnoremap <silent> _t :!perltidy -q<Enter>
" instead of man pages, read perldoc on hitting K over a keyword!
autocmd BufRead,BufNewFile *.pm,*.pl,*.t,*.ptml  setlocal keywordprg=perldoc\ -f
" type "#!P<CR>" in insert mode, and it expands to a default perl fileheader
iabbrev #!P #!/usr/bin/perl<CR><CR>use strict;<CR>use warnings;<ESC>:filetype detect<CR>o
" hit "#!+" when cursor is on a \w+, and a POD stub will be created above
" the cursor, and you'll be dumped into insert mode in the appropriate place.
nnoremap <silent> #!+ bywko<cr>=item <ESC>p$xo<CR><CR>=cut<CR><ESC>3ko
vnoremap <silent> #!+ bywko<cr>=item <ESC>p$xo<CR><CR>=cut<CR><ESC>3ko
" hit "#!-" and you get POD stub doumentation for the top of a file
nnoremap <silent> #!- i<cr>=head1 NAME<cr><cr><cr>=head1 SYNOPSIS<cr><cr><cr>=head1 DESCRIPTION<cr><cr><cr>=head2 Header<cr><cr>=over 20<cr><cr>=item ItemName<cr><cr>=cut<cr><ESC>
vnoremap <silent> #!- i<cr>=head1 NAME<cr><cr><cr>=head1 SYNOPSIS<cr><cr><cr>=head1 DESCRIPTION<cr><cr><cr>=head2 Header<cr><cr>=over 20<cr><cr>=item ItemName<cr><cr>=cut<cr><ESC>
" hit "#!_" and you get POD stub doumentation for the bottom of a file
nnoremap <silent> #!_ i<cr>=back<cr><cr>=head1 AUTHOR<cr><cr>Kent Cowgill - <kent@c2group.net><cr><cr>=head1 BUGS<cr><cr><cr>=head1 ACKNOWLEDGEMENTS<cr><cr><cr>=head1 SEE ALSO<cr><cr><cr>=cut<ESC>
vnoremap <silent> #!_ i<cr>=back<cr><cr>=head1 AUTHOR<cr><cr>Kent Cowgill - <kent@c2group.net><cr><cr>=head1 BUGS<cr><cr><cr>=head1 ACKNOWLEDGEMENTS<cr><cr><cr>=head1 SEE ALSO<cr><cr><cr>=cut<ESC>

noremap ,ai :r!grep "^sub" % \| awk '{print "=item " $2}'
noremap ,ap maG:r ~/.vim/codesnippets-perl/podtemplate<cr>'a

" Settings specific for the perl-support plugin
" my perl includes pod
let perl_include_pod = 1
" syntax color complex things like @{${"foo"}}
let perl_extended_vars = 1
" give package names another color
let perl_want_scope_in_variables = 1
" folding!
"let perl_fold = 1
" misc settings, not that i've ever used them
let g:Perl_AuthorName      = 'Kent Cowgill'
let g:Perl_AuthorRef       = 'Mr.'
let g:Perl_Email           = 'kent@c2group.net'
let g:Perl_Company         = 'C2 Group, Inc.'

" Setting for the VSTreeExplorer (vim -> IDE)
" vim in terminal, so no setting the width!
let Tlist_Inc_Winwidth=0
" make vtreeexplorer split vertically
let treeExplVertical = 1
" and have it be 30 chars wide
let treeExplWinSize = 30
" make it a bit more compact
let treeExplIndent = 2

" tab navigation - ctrl-t opens new tab
nmap <C-t> :tabnew<cr>
imap <C-t> <ESC>:tabnew<cr>
" hold shift and 'h' to go to next tab to the right
map <S-h> gT
" hold shift and 'l' to go to next tab to the left
map <S-l> gt

" ctags settings  Stolen from Jason Crome
set tags=tags
let Tlist_Ctags_Cmd='/usr/local/bin/ctags'
let Tlist_Inc_Winwidth=0
let Tlist_Show_One_File=1
let Tlist_Exist_OnlyWindow=1
let Tlist_Use_Right_Window=1
let Tlist_Sort_Type="name"
let Tlist_Display_Prototype=0
let Tlist_Compact_Format=1 " Compact?
let Tlist_GainFocus_On_ToggleOpen=1
let Tlist_Display_Tag_Scope=1
let Tlist_Close_On_Select=0
let Tlist_Enable_Fold_Column=0
let TList_WinWidth=50
map <S-F4> :TlistToggle<CR>
map <silent> ,tl :TlistToggle<CR>

function! TextMode()            " Stolen from David Hand by way of Andy Lester
    set nocindent               " nocin:  don't use C-indenting
    set nosmartindent           " nosi:  don't "smart" indent, either
    set autoindent              " ai:  indent to match previous line
    set noshowmatch             " nosm:  don't show matches on parens, &c.
    set comments=n:>,n:#,fn:-   " com: list of things to be comments
    "set textwidth=78            " tw:  wrap at 72 characters
    "set formatoptions=tcrqn     " fo:  word wrap, format comments
    set dictionary+=/usr/share/dict/*  " dict:  dict for word completion
    set complete=.,w,b,u,t,i,k  " cpt:  complete words
endfunction

function! PerlMode()            " Stolen from David Hand by way of Andy Lester
    set shiftwidth=2            " sw:  a healthy tab stop
    "set textwidth=78            " tw:  wrap at 72 characters
    set autoindent              " ai:  indent to match previous line
    set cindent                 " cin:  Use C-indenting
    set cinkeys=0{,0},!^F,o,O,e " cink:  Perl-friendly reindent keys
    set cinoptions=t0,+4,(0,)60,u0,*100  " cino:  all sorts of options
    set cinwords=if,else,while,do,for,elsif,sub
    set comments=n:#            " com:  Perlish comments
    "set formatoptions=crql      " fo:  word wrap, format comments
    set nosmartindent           " nosi:  Smart indent useless under C-indent
    set showmatch               " show matches on parens, bracketc, etc.
endfunction


" misc testing bits.

" lookup docs for:
" :set iskeyword
" :set complete+=~/data/my_std_identifiers

" set options by browsing
" :options | resize

" words to increase indent level for:
" :set cinwords=if,else,etc

" vim functions in perl:
" :help :perl-using

" K in normal mode looks up word under cursor
" :set keywordprog=perldoc
"
" z= gives word list
" ]s move to next misspelled word
" [s move to previous misspelled word
" zg add word under cursor to the spell file
" zug undo that
" zG temporarily remember word
" zuG undo that
" zw mark the word as a bad word
" zuw undo that
" zW temporarily
" zuW undo that
set tw=0
set formatoptions=tcrqn     " fo:  word wrap, format comments
set fo+=t
set fo-=o
set fo-=l