gistfile1.vim

command! -complete=shellcmd -nargs=+ Shell call s:RunShellCommand(<q-args>)
function! s:RunShellCommand(cmdline)
  echo a:cmdline
  let expanded_cmdline = a:cmdline
  for part in split(a:cmdline, ' ')
     if part[0] =~ '\v[%#<]'
        let expanded_part = fnameescape(expand(part))
        let expanded_cmdline = substitute(expanded_cmdline, part, expanded_part, '')
     endif
  endfor

  let shellwin=bufwinnr('ShellResults')
  let taskwin=bufwinnr('TaskList')

  if shellwin == -1
	if taskwin == -1
      set splitright
      vsplit ShellResults 
	else
	  exec taskwin . ' :wincmd w'
	  split ShellResults
	endif
	setlocal buftype=nofile noswapfile nowrap
  else
    exec shellwin . ' :wincmd w'
	normal! ggdG
  endif

  call setline(1, '$ ' . a:cmdline)
  let result=system(expanded_cmdline)
  call append(1, split(result, '\v\n'))
endfunction

function! s:Tasklist()
  let cmdline='/home/greg/scripts/fstr.sh "@todo"'
  let taskwin=bufwinnr('TaskList')
  let shellwin=bufwinnr('ShellResults')

  if taskwin == -1
    if shellwin == -1
      set splitright
      vsplit TaskList
	else
	  exec shellwin . ' :wincmd w'
	  split TaskList
	endif
    setlocal buftype=nofile noswapfile nowrap
  else
    exec taskwin . ' :wincmd w'
    normal! ggdG
  endif

  call setline(1, 'Current Tasks:')
  let tasks=system(cmdline)
  call append(1, split(tasks, '\v\n'))
endfunction

command! -complete=shellcmd -nargs=0 Tasks call s:Tasklist()