gistfile1.vim

command! -nargs=0 CompileThis call s:compile_this()
let s:compile_cmd = {
      \ 'c': 'gcc -c -Wall',
      \ 'cpp': 'g++ -c -Wall -std=c++0x',
      \ 'haskell': 'ghc -c -Wall'
      \ }
function! s:compile_this()
  if !has_key(s:compile_cmd, &l:filetype)
    echoerr "I don't know how to compile"
    return
  endif

  let save = &l:makeprg
  let &l:makeprg = s:compile_cmd[&l:filetype]
  execute 'make ' . expand('%:p')
  let &l:makeprg = save
endfunction