" :make does a syntax check
if expand("%:e") == "psgi"
    exe 'setlocal makeprg=plackup\ -Ilib\ -a\ ' . expand("%")
else
    setlocal makeprg=$VIMRUNTIME/tools/efm_perl.pl\ -c\ %\ $*
    setlocal errorformat=%f:%l:%m
endif

" look up words in perldoc rather than man for K
function! s:perldoc(word)
    let perldoc_pager = $PERLDOC_PAGER
    let $PERLDOC_PAGER = 'cat'
    exe 'silent read! perldoc -f "' . a:word . '" 2>/dev/null || perldoc "' . a:word . '"'
    let $PERLDOC_PAGER = perldoc_pager
    set ft=man
endfunction
nmap <buffer> <silent>K :call Help(0, [':'], '<SID>perldoc')<CR>
vmap <buffer> <silent>K :call Help(1, [':'], '<SID>perldoc')<CR>

nmap <buffer> <silent>gf :exe v:count . 'find ' . substitute(expand('<cfile>'), '::', '/', 'g') . '.pm'<CR>
" XXX: <cfile> is wrong here, need to do something like i do for Help
"vmap <buffer> <silent>gf :exe v:count . 'find ' . substitute(expand('<cfile>'), '::', '/', 'g') . '.pm'<CR>

function! s:unpostfix()
    let postop_pattern = '\<\(if\|unless\|while\|until\|for\)\>'
    let indent = repeat(' ', &sw)

    if getline('.') =~ postop_pattern
        normal kJ
    else
        normal J
    endif

    " XXX this doesn't insert newlines properly
    " let line = getline('.')
    " let line = substitute(
    "     \line,
    "     \'\(\s*\)\(.*\) ' . postop_pattern . ' \(.*\);',
    "     \'\1\3 (\4) {\1' . indent . '\2;\n\1}',
    "     \''
    " \)
    " call setline('.', line)
    exe 's/\(\s*\)\(.*\) ' . postop_pattern . ' \(.*\);/\1\3 (\4) {\r\1' . indent . '\2;\r\1}/'
endfunction

map <buffer> <silent> <Leader>i :call <SID>unpostfix()<CR>

if 0
" reimplement :make, since it always prints to the screen, which is annoying
function! Make()
    if exists('#QuickFixCmdPre')
        doau QuickFixCmdPre make
    endif

    cexpr ""

    let buffer_contents = join(getbufline("", 1, '$'), "\n")
    let output = system("perl -c -Ilib", buffer_contents)
    let lines = split(output, "\n")

    for line in lines
        let match = matchlist(line, '\(.\+\) at - line \(\d\+\)')
        if !empty(match)
            caddexpr expand('%') . ':' . match[2] . ':' . match[1]
        endif
    endfor

    if exists('#QuickFixCmdPost')
        doau QuickFixCmdPost make
    endif
endfunction

function! HighlightCurrent()
    exe '1wincmd w'
    try
        syntax clear CompileError
    catch /E28/
    endtry
    let qlist = getqflist()
    for q in qlist
        let line = substitute(getline(q['lnum']), '\', '\\\\', 'g')
        exe 'syntax match CompileError /^\%' . q['lnum'] . 'l' . line . '$/'
    endfor
    highlight CompileError ctermbg=red guibg=red
endfunction

let b:needs_clear = 0
function! UpdateStatusLine()
    let qlist = getqflist()
    let lnum = getpos('.')[1]
    for q in qlist
        if lnum == q["lnum"]
            let text = q["text"]
            let width = &columns - 52
            if strlen(text) > width - 3
                let text = strpart(text, 0, width - 3) . '...'
            endif
            echo text
            let b:needs_clear = 1
            return
        endif
    endfor
    if b:needs_clear
        echo ""
        let b:needs_clear = 0
    endif
endfunction

au BufEnter,BufWritePost <buffer> call Make()
au QuickFixCmdPost       <buffer> call HighlightCurrent()
au CursorMoved           <buffer> call UpdateStatusLine()
endif