From bc5293b5a4bb3a36adaf40fce28efb1f80abe865 Mon Sep 17 00:00:00 2001
From: Josef Heinen <j.heinen@fz-juelich.de>
Date: Tue, 14 Jun 2016 18:03:03 +0200
Subject: [PATCH] conserve user defined GR workstation type

---
 src/backends/gr.jl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/backends/gr.jl b/src/backends/gr.jl
index 8554294f..34a22274 100644
--- a/src/backends/gr.jl
+++ b/src/backends/gr.jl
@@ -895,11 +895,12 @@ const _gr_mimeformats = Dict(
 for (mime, fmt) in _gr_mimeformats
     @eval function _writemime(io::IO, ::MIME{Symbol($mime)}, plt::Plot{GRBackend})
         GR.emergencyclosegks()
+        wstype = haskey(ENV, "GKS_WSTYPE") ? ENV["GKS_WSTYPE"] : "0"
         ENV["GKS_WSTYPE"] = $fmt
         gr_display(plt)
         GR.emergencyclosegks()
         write(io, readall("gks." * $fmt))
-        ENV["GKS_WSTYPE"] = ""
+        ENV["GKS_WSTYPE"] = wstype
     end
 end