From 9eab1083abced4061f0cfaede05ca2cbbc45c926 Mon Sep 17 00:00:00 2001
From: Thomas Breloff <tom@breloff.com>
Date: Thu, 29 Oct 2015 17:18:14 -0400
Subject: [PATCH] working on with

---
 src/Plots.jl |  1 +
 src/utils.jl | 69 +++++++++++++++++++++++++++++++++++++++++++++++++++-
 2 files changed, 69 insertions(+), 1 deletion(-)

diff --git a/src/Plots.jl b/src/Plots.jl
index b62062f6..2de9c16a 100644
--- a/src/Plots.jl
+++ b/src/Plots.jl
@@ -19,6 +19,7 @@ export
 
   current,
   default,
+  with,
   
   scatter,
   scatter!,
diff --git a/src/utils.jl b/src/utils.jl
index a8b98660..7ab50f82 100644
--- a/src/utils.jl
+++ b/src/utils.jl
@@ -162,7 +162,6 @@ end
 
 function replaceAliases!(d::Dict, aliases::Dict)
   ks = collect(keys(d))
-  # for (k,v) in d
   for k in ks
     if haskey(aliases, k)
       d[aliases[k]] = d[k]
@@ -201,6 +200,74 @@ limsType(lims) = :invalid
 Base.convert{T<:Real}(::Type{Vector{T}}, rng::Range{T}) = T[x for x in rng]
 Base.convert{T<:Real,S<:Real}(::Type{Vector{T}}, rng::Range{S}) = T[x for x in rng]
 
+
+# ---------------------------------------------------------------
+
+function with(f::Function, args...; kw...)
+
+  # dict to store old and new keyword args for anything that changes
+  newdefs = Dict(kw)
+  olddefs = Dict()
+  for k in keys(newdefs)
+    olddefs[k] = default(k)
+  end
+
+  # save the backend
+  oldbackend = CURRENT_BACKEND.sym
+
+  for arg in args
+    
+    # change backend?
+    if arg in backends()
+      backend(arg)
+    end
+
+    # # TODO: generalize this strategy to allow args as much as possible
+    # #       as in:  with(:gadfly, :scatter, :legend, :grid) do; ...; end
+    # # TODO: can we generalize this enough to also do something similar in the plot commands??
+
+    # k = :linetype
+    # if arg in _allTypes
+    #   olddefs[k] = default(k)
+    #   newdefs[k] = arg
+    # elseif haskey(_typeAliases, arg)
+    #   olddefs[k] = default(k)
+    #   newdefs[k] = _typeAliases[arg]
+    # end
+
+    k = :legend
+    if arg in (k, :leg)
+      olddefs[k] = default(k)
+      newdefs[k] = true
+    end
+
+    k = :grid
+    if arg == k
+      olddefs[k] = default(k)
+      newdefs[k] = true
+    end
+  end
+
+  display(olddefs)
+  display(newdefs)
+
+  # now set all those defaults
+  default(; newdefs...)
+
+  # call the function
+  f()
+
+  # put the defaults back
+  default(; olddefs...)
+
+  # revert the backend
+  if CURRENT_BACKEND.sym != oldbackend
+    backend(oldbackend)
+  end
+
+  return
+end
+
 # ---------------------------------------------------------------
 
 type DebugMode