testrunner.vim

function! RedGreenForShellCmd(cmd)
  exec ":! " . a:cmd
  redraw
  if v:shell_error 
    call RedBar()
  else
    call GreenBar()
  endif
endfunction

"from Gary Bernhardt"
function! RedBar()
    hi RedBar ctermfg=white ctermbg=red guibg=red
    echohl RedBar
    echon repeat(" ",&columns - 1)
    echohl
endfunction

function! GreenBar()
    hi GreenBar ctermfg=white ctermbg=green guibg=green
    echohl GreenBar
    echon repeat(" ",&columns - 1)
    echohl
endfunction