" .vimrc
" http://briancarper.net/vim/vimrc  - Some parts stolen from others.
"
set nocompatible
syntax on
filetype on
filetype plugin on
filetype plugin indent on

set encoding=utf-8
set fileencoding=utf-8

set backup
" I want all my backups in one directory
if has('win32')
    let s:homedir = "$HOME/vimfiles"
else
    let s:homedir = "$HOME"
endif

execute "set backupdir=" . s:homedir . "/.backups"

set history=5000
set viminfo='1024,<0,s100,f0,r/tmp,r/mnt
" see :h last-position-jump
au BufReadPost * if line("'\"") > 0|if line("'\"") <= line("$")|exe("norm'\"")|else|exe "norm $"|endif|endif

" Appearance
colorscheme gentooish
if has('win32')
    set guifont=Terminus:h12:w6
    hi StatusLine gui=NONE
    hi User1 gui=NONE
    hi User2 gui=NONE
    hi WildMenu gui=NONE
else
    set guifont=Terminus\ 10
endif
set guioptions-=T
set guioptions-=m

if(has("gui_running"))
    set cursorline
endif

set backspace=indent,eol,start
set ruler
set showcmd
set number
set wrap

" Search
set incsearch
set hls
set noignorecase

set splitright

" Sane defaults for tabs
set tabstop=4
set shiftwidth=4
set softtabstop=4
set expandtab
set smartindent

set foldcolumn=0
set foldmethod=syntax
set foldlevelstart=1
"au BufNewFile,BufRead * syn sync fromstart

set laststatus=2
set wildmenu

" Bouncy parens
set showmatch

" Visual bells give me seizures
set t_vb=''

set nostartofline
"set nowrapscan

" Stolen from http://github.com/ciaranm/dotfiles-ciaranm/tree/master
if (&termencoding == "utf-8") || has("gui_running")
    if v:version >= 700
        set list listchars=eol:\ ,tab:»·,trail:·,precedes:…,extends:…,nbsp:‗
    else
        set list listchars=eol:\ ,tab:»·,trail:·,extends:…
    endif
else
    if v:version >= 700
        set list listchars=eol:\ ,tab:>-,trail:.,extends:>,nbsp:_
    else
        set list listchars=eol:\ ,tab:>-,trail:.,extends:>
    endif
endif

" Inspired by http://github.com/ciaranm/dotfiles-ciaranm/tree/master
set statusline=%f\ %2*%m\ %1*%h%r%=[%{&encoding}\ %{&fileformat}\ %{strlen(&ft)?&ft:'none'}\ %{getfperm(@%)}]\ 0x%B\ %12.(%c:%l/%L%)

" Filetype-specific fun
if !exists("autocommands_loaded")
    let autocommands_loaded = 1
    "autocmd QuickFixCmdPost * :copen | :set cwh=1 | :set ch=1
    autocmd QuickFixCmdPost * :copen

    " CSS
    au bufNewFile,BufRead *.css map <F2> omargin: 0;<CR>padding: 0;<ESC>
    au bufNewFile,BufRead *.css imap <F2> margin: 0;<CR>padding: 0;

    augroup Ruby
        au BufNewFile,BufRead *.{rb} setlocal tabstop=2|setlocal shiftwidth=2|setlocal softtabstop=2
        au BufNewFile,BufRead *.{html.erb} setlocal tabstop=4|setlocal shiftwidth=4|setlocal softtabstop=4
        "au BufNewFile *.rb :execute "0r " . s:homedir . "/skeleton/skeleton.ruby"|norm G

        au BufNewFile,BufRead *.{rb,rhtml,erb} nmap <silent> <Leader>s :silent !pkill mongrel_rails;script/server -d<CR>
        au BufNewFile,BufRead *.{rb,rhtml,erb} nmap <silent> <Leader>d :silent !pkill mongrel_rails;script/server -d<CR>
        au BufNewFile,BufRead *.{rhtml,erb} map <F3> o<%=  %><LEFT><LEFT><LEFT>
        au BufNewFile,BufRead *.{rhtml,erb} imap <F3> <%=  %><LEFT><LEFT><LEFT>
        au BufNewFile,BufRead *.{rhtml,erb} map <S-F3> o<%  %><LEFT><LEFT><LEFT>
        au BufNewFile,BufRead *.{rhtml,erb} imap <S-F3> <%  %><LEFT><LEFT><LEFT>

        au BufNewFile,BufRead */migrate/*.rb iabbrev a_c add_column
        au BufNewFile,BufRead */migrate/*.rb iabbrev r_c remove_column
    augroup END

    au BufNewFile *.{h,cpp} nmap <silent> <Leader>m :silent make<CR>
    au BufNewFile *.h call Ifndef()

    au BufNewFile,BufRead *cpp map <F3> :!g++ % -o %:r<CR>
    au BufNewFile,BufRead *cpp map <F4> :!g++ % -o %:r && %:r<CR>

    au BufNewFile,BufRead *.java let java_highlight_functions="style"

    augroup PHP
        au BufNewFile,BufRead *.php nmap <Leader>p Iprint_r(<ESC>A);<ESC>
        au BufNewFile,BufRead *.php nmap <Leader>c iclass {<CR>function __construct() {<CR><CR>}<CR>}<CR>
        au BufNewFile,BufRead *.php nmap <Leader>i :s/$\?\(\S\+\)/$this->\1 = $\1;/<CR>
    augroup END

    if has("win32")
        au BufNewFile,BufRead *.bla setf bla
        au BufNewFile,BufRead *.bla nmap <Leader>p :!"c:\Program Files\StatNeth\Blaise 4.8 Enterprise\Bin\B4CPars.exe" %:t:r.bpf<CR><CR>
        au BufNewFile,BufRead *.bla nmap <Leader>r :silent !"c:\Program Files\StatNeth\Blaise 4.8 Enterprise\Bin\dep.exe" %:t:r /MEGADS<CR>
        au BufNewFile,BufRead *.bla nmap <Leader>d :silent !del %:t:r.bdb<CR>
    endif
    au BufNewFile,BufRead *.{lisp,el,emacs} call LispHighlight()

    au BufNewFile,BufRead *.clj setlocal complete+=k~/.vim/clj-keys.txt|call ClojureHighlight()
endif

function! Ifndef()
    let str = toupper(expand("%:t:r"))
    execute "norm i#ifndef " . str
    norm o
    execute "norm i#define " . str
    norm o
    norm o
    norm i#endif
endfunction

" Use `:match none` to turn off the matches afterwards.
function! CountLines()
    let i = 0
    let s:regex = input("Regex>")
    execute('silent g/' . s:regex . '/let i = i + 1')
    execute("match Search /^.*" . s:regex . ".*$/")
    echo i . " lines match."
    norm ''
endfunction

" Highlight parens in light grey so they blend in.  Backquoted should stand
" out a bit more.
function! LispHighlight()
    syn region lispList matchgroup=lispList start="(" skip="|.\{-}|" end=")" contains=@lispListCluster
    syn region lispBQList matchgroup=lispBQList start="`("  skip="|.\{-}|" end=")" contains=@lispListCluster
    hi lispList guifg=#555555
    hi lispBQList guifg=#999999
endfunction

function! ClojureHighlight()
    hi clojureParen0 guifg=#555555
endfunction

" S-arrows suck
vmap <S-Up> <Up>
imap <S-Up> <Up>
nmap <S-Up> <Up>
vmap <S-Down> <Down>
imap <S-Down> <Down>
nmap <S-Down> <Down>

" Right-drag will do a vblock select
" nnoremap <RightMouse> <LeftMouse><C-V>
" nnoremap <RightDrag> <LeftDrag>
" vnoremap <RightMouse> <LeftMouse><C-V>
" vnoremap <RightDrag> <LeftDrag>

" Screwy default bindings for these, let's disable.
"nnoremap <S-LeftMouse> <LeftMouse>
nnoremap <C-LeftMouse> <LeftMouse>
nnoremap <A-LeftMouse> <LeftMouse>
nnoremap <S-RightMouse> <RightMouse>
nnoremap <C-RightMouse> <RightMouse>
nnoremap <A-RightMouse> <RightMouse>

nmap <Leader>bd :silent bufdo! bd<CR>
nmap <Leader>l :call CountLines()<CR>
nmap <Leader>w :setlocal nowrap!<CR>
nmap <Leader>h :nohls<CR>
nmap <Leader>q :cclose<CR>

" Emacs-ish keybindings, oops
noremap! <M-Backspace> <C-W>
noremap! <M-Left> <C-Left>
noremap! <M-Right> <C-Right>
noremap! <C-A> <Home>
noremap! <C-E> <End>

" Annoying
nmap q: <Nop>
nmap q/ <Nop>
nmap q? <Nop>

function! IsDiff(col)
    let hlID = diff_hlID(".", a:col)
    return hlID == 24
endfunction

function! FindDiffOnLine()
    let c = 1
    while c < col("$")
        if IsDiff(c)
            call cursor(".", c)
            return
        endif
        let c += 1
    endwhile
endfunction

nnoremap <silent> ]c ]c:call FindDiffOnLine()<CR>
nnoremap <silent> [c [c:call FindDiffOnLine()<CR>

" Window movements etc.
nnoremap <M-Right> <C-W><Right>
nnoremap <M-Left> <C-W><Left>
nnoremap <M-Up> <C-W><Up><C-W>_
nnoremap <M-Down> <C-W><Down><C-W>_

nmap <C-w>v :vnew<CR>
nmap <C-w>V :let spr=&spr<BAR>set nospr<BAR>vnew<BAR>let &spr=spr<CR>
nnoremap <silent> <C-W>N :let sb=&sb<BAR>set sb<BAR>new<BAR>let &sb=sb<CR>

nmap <C-M-Up> <C-w>n
nmap <C-M-Down> <C-w>N
nmap <C-M-Right> <C-w>v
nmap <C-M-Left> <C-w>V
nmap <C-_> <C-w>_

nnoremap <C-S-Right> zL
nnoremap <C-S-Left> zH

"---------------------------------------------------------------------
" Author:  Jean Jordaan <jean(at)upfrontsystems.co.za>
" Source:  (http://groups.yahoo.com/group/vim/message/16444
" Date:    Mon Feb 26, 2001  5:34 am
" Subject: Some functions to read mailing list digests with Vim.
"
function! Uniq(...) range
    " use arguments if two passed
    if a:0 == 2
        let a = a:1
        let z = a:2
    " use range
    else
        let a = a:firstline
        let z = a:lastline
    endif
    while (a <= z)
        let str1 = getline(a)
        let str2 = getline(a+1)
        if (str1 == str2)
            execute a . "delete"
            let z = z - 1
        else
            let a = a + 1
        endif
    endwhile
endfunction
command! -nargs=0 -range Uniq <line1>,<line2>call Uniq()

"cabbrev w <c-r>=(getcmdtype()==':' && getcmdpos()==1 ? 'W' : 'w')<CR>
"command! -nargs=* W :execute("silent !echo " . strftime("%Y-%m-%d %H:%M:%S") . " >> ~/timestamps")|w <args>

nnoremap <Leader>fg :execute 'g/'.input("Search term: > ").'/norm ddGp'<CR>
vmap <Leader>o <ESC>:'<,'>g/^$/d<CR>'<<C-V>'>I1 <ESC>'<<C-V>'>:I<CR>:'<,'>s:^\(\s*\)\(\d\+\) \(.*\):\1    C\2 (\2) "\3",:<CR>'<kA": (<ESC>'>$s<CR>)<ESC><<
set wildignore+=*.bpk,*.bjk,*.diw,*.bmi,*.bdm,*.bfi,*.bdb,*.bxi

function! FoldText()
    let numlines = v:foldend - v:foldstart
    let firstline = getline(v:foldstart)
    "let spaces = 60 - len(firstline)
    return printf("%3d » %s ", numlines, firstline)
endfunction
set foldtext=FoldText()
set fillchars=fold:·

vmap <silent> <Leader>i= <ESC>:AlignPush<CR>:AlignCtrl lp1P1<CR>:'<,'>Align =<CR>:AlignPop<CR>
vmap <silent> <Leader>i, <ESC>:AlignPush<CR>:AlignCtrl lp0P1<CR>:'<,'>Align ,<CR>:AlignPop<CR>
vmap <silent> <Leader>i( <ESC>:AlignPush<CR>:AlignCtrl lp0P0<CR>:'<,'>Align (<CR>:AlignPop<CR>
vmap <silent> <Leader>i@ <ESC>:AlignPush<CR>:AlignCtrl lp0P0<CR>:'<,'>Align @<CR>:AlignPop<CR>

nmap <silent> <Leader>al vi(yo<ESC>p==:s/\</@/g<CR>A = <ESC>$p:nohls<CR>
nmap <silent> <Leader>ss :set foldmethod=syntax<CR>
nmap <Leader>"" :s/\v(^[^"]*)@<!"@<!""@!([^"]*$)@!/""/g<CR>
nmap <Leader>e :g/^\s*$/d<CR>

" From https://launchpad.net/bzr-vim-commands, slightly modified
command! -complete=file -nargs=* Bzr call s:RunShellCommand('bzr '.<q-args>)
command! -complete=file -nargs=* Git call s:RunShellCommand('git '.<q-args>)
command! -complete=file -nargs=* Hg call s:RunShellCommand('hg '.<q-args>)
command! -complete=file -nargs=* Svn call s:RunShellCommand('svn '.<q-args>)
command! -complete=file -nargs=+ Shell call s:RunShellCommand(<q-args>)
function! s:RunShellCommand(cmdline)
   botright new
   setlocal buftype=nofile bufhidden=wipe noswapfile nowrap
   call setline(1,a:cmdline)
   call setline(2,substitute(a:cmdline,'.','=','g'))
   execute 'silent $read !'.escape(a:cmdline,'()%#')
   setlocal nomodifiable
   if search('\m\C^--- .*\n+++ .*\n@@','n')
       setlocal filetype=diff
   endif
   if a:cmdline =~ '\m\C^git '
       match Statement /\v\C<commit \x{7,}>/
   elseif a:cmdline =~ '\m\C^bzr log'
       match Statement /\v-{50,}/
   endif
endfunction

function! DeleteUnlistedBuffer()
    if ! buflisted(bufname("%"))
        q
    endif
endfunction
nmap <silent> <Leader><Space> :call DeleteUnlistedBuffer()<CR>
vmap <Leader>ra <ESC>:'<,'>s/\w\+/@\1 = \1/<CR>:set nohls<CR>

function! FixInvisiblePunctuation()
    silent! %s/\%u2019/'/g
    silent! %s/\%u2026/.../g
    silent! %s/\%uf0e0/->/g
endfunction

vmap <Leader>n 99<:'<,'>g/^$/d<CR>'<<C-V>'>I1 <ESC>'<<C-V>'>:I<CR>:'<,'>s/\v^(\d+) (.*)/    "\1": "\2"/<CR>'<V'>><ESC>'<O:opts:<ESC><<
nmap <Leader>n :s/\v^(\d+\S{-})\.\s+(.*)/      :number: "\1"\r      :text: "\2"/<CR>
nmap <Leader>t :s/\v\s*(\S+)\s*(.*)/  - :name: \1\r    :text: "\2"/<CR>\h

let g:loaded_alignmaps=1

"function! MoveToClosingParen()
"    let c = getline(".")[col(".") - 1]
"    if col(".") == col("$") || c != ")"
"        call search(")", "W")
"    endif
"    let pos = getpos(".")
"    let pos[2] = pos[2] + 1
"    call setpos(".", pos)
"endfunction
"
"function! MoveLeft()
"    let pos = getpos(".")
"    let pos[2] = pos[2] - 1
"    call setpos(".", pos)
"endfunction!
"
"function! MoveRight()
"    let pos = getpos(".")
"    let pos[2] = pos[2] + 1
"    call setpos(".", pos)
"endfunction!
"
"function! DeleteOrMoveLeft()
"    let prevchar = getline(".")[col(".") - 2]
"    let thischar = getline(".")[col(".") - 1 ]
"    if prevchar == ")"
"        call MoveLeft()
"        return ""
"    elseif prevchar == "("
"        if thischar == ")"
"            call MoveRight()
"            return ""
"        else
"            call MoveLeft()
"            return ""
"        end
"    else
"        return ""
"    endif
"endfunction
"
"function! DeleteOrDoNothing()
"    let prevchar = getline(".")[col(".") - 2]
"    let thischar = getline(".")[col(".") - 1]
"    let nextchar = getline(".")[col(".")]
"    if thischar == "(" 
"       if nextchar == ")"
"            call MoveRight()
"            call MoveRight()
"            return ""
"        else
"            return ""
"        end
"    elseif thischar == ")"
"       if prevchar == "("
"            call MoveRight()
"            return ""
"        else
"            return ""
"        end
"    else
"        return "\<Del>"
"    endif
"endfunction
"
"inoremap <BS> <C-r>=DeleteOrMoveLeft()<CR>
"inoremap <Del> <C-r>=DeleteOrDoNothing()<CR>
"inoremap ( ()<Left>
"inoremap ) <C-\><C-o>:call MoveToClosingParen()<CR>
"