Merge pull request #461 from JuliaRobotics/feature/20Q2/showplot

html DFG plotting on display

Author: Affie

src/CloudGraphsDFG/entities/CloudGraphsDFG.jl

@@ -57,7 +57,7 @@ function CloudGraphsDFG{T}(host::String,
 end
 
 
-function show(io::IO, c::CloudGraphsDFG)
+function show(io::IO, ::MIME"text/plain", c::CloudGraphsDFG)
     println(io, "CloudGraphsDFG:")
     println(io, " - Neo4J instance: $(c.neo4jInstance.connection.host)")
     println(io, " - Session: $(c.userId):$(c.robotId):$(c.sessionId)")

src/DFGPlots/DFGPlots.jl

@@ -96,4 +96,46 @@ function gplot(dfg::LightDFG; keyargs...)
     gplot(dfg.g; keyargs...)
 end
 
+
+function Base.show(io::IO, ::MIME"application/prs.juno.plotpane+html", dfg::AbstractDFG)
+    size = get(io, :juno_plotsize, [100, 100])
+
+    plot_output = IOBuffer()
+    draw(SVGJS(plot_output, GraphPlot.Compose.default_graphic_width,
+               GraphPlot.Compose.default_graphic_width, false), dfgplot(dfg))
+    plotsvg = String(take!(plot_output))
+
+    print(io,
+        """
+            <div style="
+            background-color: #eee;
+            color: #222;
+            width: $(size[1]-40)px;
+            height: $(size[2]-40)px;
+            position: absolute;
+            top: 0;
+            left: 0;
+            padding: 20px;
+            margin: 0;
+            ">
+            $(typeof(dfg))
+            <ul>
+                <li>$(dfg.userId)</li>
+                <li>$(dfg.robotId)</li>
+                <li>$(dfg.sessionId)</li>
+                <li>$(dfg.description)</li>
+            </ul>
+            <script charset="utf-8">
+                $(read(Compose.snapsvgjs, String))
+            </script>
+            <script charset="utf-8">
+                $(read(GraphPlot.gadflyjs, String))
+            </script>
+            $(plotsvg)
+            </div>
+        """)
+
+end
+
+
 end

src/LightDFG/FactorGraphs/FactorGraphs.jl

@@ -64,7 +64,7 @@ FactorGraph() = FactorGraph{Int, AbstractVariableType, AbstractFactorType}()
 # FactorGraph{V,F}() where {V <: AbstractVariableType, F <: AbstractFactorType} = FactorGraph{Int, V, F}()
 
 
-function show(io::IO, g::FactorGraph)
+function show(io::IO, ::MIME"text/plain", g::FactorGraph)
     dir = is_directed(g) ? "directed" : "undirected"
     print(io, "{$(nv(g)), $(ne(g))} $dir $(eltype(g)) $(typeof(g))")
 end