Fast Make for Vim

I wasn't really satisfied with Vim's :make behavior so I wrote a script to do what I wanted.

• Saves buffer first
  
• If there are errors, show them in the quickfix window
• Success is reported in the status bar
  
• Saves some keystrokes, especially if mapped to F5
  

Here it is. You can put it in ~/.vim/plugin/Make.vim, or if you are using pathogen, ~/.vim/bundle/Make/plugin/Make.vim.

This is basically my first Vim plugin so please let me know if there are things I could improve.

"=============================================================================
" File: Make.vim
" Author: Victor Shih
" Last Change: 3/30/2011
" Version: 0.01
" WebPage: http://blog.vicshih.com/2011/03/fast-make-for-vim.html
" Description:
" Custom Make command:
" - if results are a single line, echo;
" - otherwise output to quickfix buffer
"
" Usage:
"    :Make [<target(s)>]
"
" Trigger via F5 by specifying:
"
"   if exists('g:make_loaded')
"     map <buffer> <F5> :Make<CR>
"     imap <buffer> <F5> <ESC>:Make<CR>
"   endif
"
" in any desired ftplugin scripts.
"
" g:make_loaded is set when this script is run
"
function! Make(args)
  " Close quickfix
  cclose

  " Compile arguments
  let l:args = strlen(a:args) ? ' ' . a:args : ''
  let l:title = expand('%') . ' - Make' . l:args

  " Force write
  silent write!

  " Move to current directory
  lcd %:p:h

  " Make
  let l:out = split(system('make' . l:args), "\n")
  let l:len = len(l:out)

  " Output to quickfix
  cgetexpr l:out
  let w:quickfix_title = l:title

  " If no output, just report success
  if l:len == 0
    redraw
    echo l:title . ' succeeded'
  " If output is a single line, echo it
  elseif l:len == 1
    cc 1
    redraw
    echo l:out[0]
  else
    execute 'copen' l:len + 1
    cc 1
  endif
endfunction

command! -nargs=? Make call Make("<args>")

let g:make_loaded = 1