filterqf

function! g:FilterQf(ob)
  let [cc,bnr] = [[],bufnr('%')]
  let shm = &shortmess
  set shortmess+=A
  for i in a:ob
    silent! exe 'hide keepalt keepjumps b ' . get(i,'bufnr')
    let [ln,cl] = [get(i,'lnum'),get(i,'col')]
    if synIDattr(synID(ln, cl ? cl : matchend(getline(ln),'^\s*\S'),0),'name')
          \ !~? 'string\|regex\|comment'
      call add(cc,deepcopy(i))
    endif
  endfor
  silent! exe 'keepalt keepjumps b ' . bnr
  let &shm = shm
  return cc
endfunction
command! QfSyn call setqflist(g:FilterQf(getqflist()))