Approximate error display of REPL.

Follow up to #257, uses showerror and the output channel.

src/Literate.jl

@@ -936,15 +936,24 @@ function execute_block(sb::Module, block::String; inputfile::String, fake_source
         end
     end
     popdisplay(disp) # IOCapture.capture has a try-catch so should always end up here
-    if c.error && !continue_on_error
+    if c.error
-        error("""
+        if continue_on_error
-             $(sprint(showerror, c.value))
+            err = c.value
-             when executing the following code block from inputfile `$(Base.contractuser(inputfile))`
+            if err isa LoadError # include_string may wrap error in LoadError
-
+                err = err.error
-             ```julia
+            end
-             $block
+            error_output = "ERROR: " * sprint(showerror, err)
-             ```
+            return nothing, error_output, disp.data
-             """)
+        else
+           error("""
+                 $(sprint(showerror, c.value))
+                 when executing the following code block from inputfile `$(Base.contractuser(inputfile))`
+
+                 ```julia
+                 $block
+                 ```
+                 """)
+        end
     end
     return c.value, c.output, disp.data
 end

test/runtests.jl

@@ -1471,7 +1471,7 @@ end end
         write(inputfile, input_with_error)
         Literate.markdown(inputfile, sandbox; continue_on_error = true, execute = true)
         output_md = read(joinpath(sandbox, "input.md"), String)
-        @test occursin("DomainError(-1.0", output_md)
+        @test occursin("ERROR: DomainError with -1.0", output_md)
     end
 end