reintroduce compact show for operators (#478)

* reintroduce compact show for operators

* tests for compact show

* Fix test

Author: jishnub

Project.toml

@@ -1,6 +1,6 @@
 name = "ApproxFunBase"
 uuid = "fbd15aa5-315a-5a7d-a8a4-24992e37be05"
-version = "0.8.32"
+version = "0.8.33"
 
 [deps]
 AbstractFFTs = "621f4979-c628-5d54-868e-fcf4e3e8185c"

src/show.jl

@@ -99,6 +99,10 @@ end
 function show(io::IO, mimetype::MIME"text/plain", @nospecialize(B::Operator); header::Bool=true)
     header && summary(io, B)
 
+    if !haskey(io, :compact) && size(B, 2) > 1
+        io = IOContext(io, :compact => true)
+    end
+
     if !isambiguous(domainspace(B)) && eltype(B) <: Number
         println(io)
         sz1, sz2 = min.(size(B), 10)

test/show.jl

@@ -74,6 +74,17 @@
 			s = summary(A)
 			@test startswith(s, "ConstantOperator")
 		end
+		@testset "compact show" begin
+			p  = [1+1e-8];
+			M = Multiplication(Fun(PointSpace(p)), PointSpace(p));
+			s = sprint(show, MIME"text/plain"(), M)
+			@test s == "FiniteOperator : PointSpace([1.00000001]) → PointSpace([1.00000001])\n 1.00000001"
+			p  = [1+1e-8, 2+1e-8];
+			M = Multiplication(Fun(PointSpace(p)), PointSpace(p));
+			s = sprint(show, MIME"text/plain"(), M)
+			@test s == ("FiniteOperator : PointSpace([1.00000001, 2.00000001]) → PointSpace([1.00000001, 2.00000001])"*
+							"\n 1.0   ⋅ \n  ⋅   2.0")
+		end
 	end
 	@testset "Iterators" begin
 		B = ApproxFunBase.BlockInterlacer((Ones{Int}(2), Ones{Int}(2)))