search text objects

function! s:search_object(aori)
  let last = searchpos(@/, 'ecnW')
  let cmd = last[0] . 'G' . last[1] . '|'
  if a:aori == 'a'
    let first = searchpos(@/, 'bcnW')
    let cmd .= 'o' . first[0] . 'G' . first[1] . '|'
  endif
  echom cmd
  return cmd
endfunction

vnoremap <expr> a/ <SID>search_object('a')
vnoremap <expr> i/ <SID>search_object('i')
onoremap a/ :normal va/<CR>
onoremap i/ :normal vi/<CR>