Provide and use foreplay#evalprint()

This provides a central point for alternate output methods, such as
capturing to a buffer.

In support of #7.

plugin/foreplay.vim

@@ -408,6 +408,14 @@ function! foreplay#eval(expr) abort
   throw err
 endfunction
 
+function! foreplay#evalprint(expr) abort
+  try
+    echo foreplay#eval(a:expr)
+  catch /^Clojure:/
+  endtry
+  return ''
+endfunction
+
 function! foreplay#evalparse(expr) abort
   let response = s:eval(
         \ '(symbol ((fn *vimify [x]' .
@@ -485,23 +493,16 @@ function! s:printop(type) abort
 endfunction
 
 function! s:print_last() abort
-  try
+  call foreplay#evalprint(s:todo)
-    echo foreplay#eval(s:todo)
-  catch /^Clojure:/
-  endtry
   return ''
 endfunction
 
 function! s:editop(type) abort
   call feedkeys(&cedit . "\<Home>", 'n')
   let input = s:input(substitute(substitute(s:opfunc(a:type), "\s*;[^\n]*", '', 'g'), '\n\+\s*', ' ', 'g'))
-  try
   if input !=# ''
-      echo foreplay#eval(input)
+    call foreplay#evalprint(input)
   endif
-  catch /^Clojure:/
-    return ''
-  endtry
 endfunction
 
 function! s:Eval(bang, line1, line2, count, args) abort
@@ -524,9 +525,9 @@ function! s:Eval(bang, line1, line2, count, args) abort
       exe line1.','.line2.'delete _'
     endif
   endif
+  if a:bang
     try
       let result = foreplay#eval(expr)
-    if a:bang
       if a:args !=# ''
         call append(a:line1, result)
         exe a:line1
@@ -534,11 +535,11 @@ function! s:Eval(bang, line1, line2, count, args) abort
         call append(a:line1-1, result)
         exe a:line1-1
       endif
-    else
-      echo result
-    endif
     catch /^Clojure:/
     endtry
+  else
+    call foreplay#evalprint(expr)
+  endif
   return ''
 endfunction
 
@@ -584,14 +585,7 @@ function! s:inputeval() abort
   if input ==# ''
     return ''
   else
-    try
+    call foreplay#evalprint(input)
-      echo foreplay#eval(input)
-      return ''
-    catch /^Clojure:/
-      return ''
-    catch
-      return 'echoerr '.string(v:exception)
-    endtry
   endif
 endfunction