pgfmacro2.jl

using MacroTools
using DataStructures

function prockey(key)
    if isa(key, Symbol) || isa(key, String)
        return :($(string(key)) => nothing)
    elseif @capture(key, (a_ : b_) | (a_ => b_) | (a_ = b_))
        return :($(string(a))=>$b)
    end
    error("Invalid pgf option $key")
end

function procmap(d)
  if @capture(d, f_(xs__))
      return :($f($(map(procmap, xs)...)))
  elseif !@capture(d, {xs__})
      return d
  else
      return :(OrderedDict{Any, Any}($(map(prockey, xs)...)))
  end
end

macro pgf(ex)
    esc(prewalk(procmap, ex))
end