add hooks for use with Winston.jl

Author: simonbyrne

src/KDE.jl

@@ -12,4 +12,15 @@ export kde, UnivariateKDE, BivariateKDE
 include("univariate.jl")
 include("bivariate.jl")
 
+macro glue(pkg)
+    path = joinpath(dirname(Base.source_path(nothing)),"glue",string(pkg,".jl"))
+    init = symbol(string(pkg,"_init"))
+    quote
+        $(esc(init))() = include($path)
+        isdefined(Main,$(QuoteNode(pkg))) && $(esc(init))()
+    end
+end
+
+@glue Winston
+
 end # module

src/glue/Winston.jl

@@ -0,0 +1,17 @@
+using Winston
+import Winston: plot, imagesc
+
+function plot(p::FramedPlot, k::UnivariateKDE, args...; kwargs...)
+    plot(p, k.x, k.density, args...;  kwargs...)
+end
+
+function plot(k::UnivariateKDE, args...; kwargs...)
+    plot(Winston.ghf(), k, args...; kwargs...)
+end
+
+function imagesc(k::BivariateKDE, clims::Winston.Interval; kwargs...)
+    imagesc(extrema(k.x), reverse(extrema(k.y)), k.density', clims; kwargs...)
+end
+function imagesc(k::BivariateKDE; kwargs...)
+    imagesc(k, (0.0,maximum(k.density)); kwargs...)
+end