GridLines not rendering. Tried changing Background to White and GridLines to Black to see if they render at all but they do not. How do I make GridLines render and can these PlotStyles and settings be saved in a reusable PlotTheme?
Clear[f, g, h]
f[x_] := x^2 - 4
g[x_] := 4 Sin[x] + 4
h[x_] := -2 x
Plot[{f[x], g[x], h[x]}, {x, -Pi, Pi},
PlotLabels -> {f[x], g[x], h[x]},
PlotStyle -> {{Yellow, Thick , Dashed}, {Lime, Thin}, {LightBlue,
Thick}}, Filling -> Axis, GridLines -> Automatic,
GridLinesStyle -> Directive[White, Dashed, Thick],
AxesLabel -> {x, y}, LabelingSize -> Automatic, Frame -> True,
FrameLabel -> {{Left FrameLabel,
None}, {Style["Multiple Univariate Functions", Black],
Style["Top FrameLabel", Black, 12, Bold]}},
Prolog -> {RGBColor[0, 0, .5],
Rectangle[Scaled[{0, 0}], Scaled[{1, 1}]]}]


