From 6f2b55dc15fa84c6b3db4b2adb3fc22b4b2cd411 Mon Sep 17 00:00:00 2001
From: Josef Heinen <j.heinen@fz-juelich.de>
Date: Tue, 14 Jun 2016 11:09:48 +0200
Subject: [PATCH] Allow changing GR's default output device

use the GKS_WSTYPE environment to set the default workstation type
(= GKS logical device driver) for the GR framework
---
 src/backends/gr.jl | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/src/backends/gr.jl b/src/backends/gr.jl
index 8554294f..f4d05536 100644
--- a/src/backends/gr.jl
+++ b/src/backends/gr.jl
@@ -41,6 +41,11 @@ supported_scales(::GRBackend) = [:identity, :log10]
 is_subplot_supported(::GRBackend) = true
 
 
+if haskey(ENV, "GKS_WSTYPE")
+    _gr_wstype = ENV["GKS_WSTYPE"]
+else
+    _gr_wstype = nothing
+end
 
 function _initialize_backend(::GRBackend; kw...)
     @eval begin
@@ -895,11 +900,15 @@ const _gr_mimeformats = Dict(
 for (mime, fmt) in _gr_mimeformats
     @eval function _writemime(io::IO, ::MIME{Symbol($mime)}, plt::Plot{GRBackend})
         GR.emergencyclosegks()
-        ENV["GKS_WSTYPE"] = $fmt
+        setenv("GKS_WSTYPE", $fmt)
         gr_display(plt)
         GR.emergencyclosegks()
         write(io, readall("gks." * $fmt))
-        ENV["GKS_WSTYPE"] = ""
+        if _gr_wstype != nothing
+            setenv("GKS_WSTYPE", $_gr_wstype)
+        else
+            setenv("GKS_WSTYPE", "")
+        end
     end
 end