Exporting Figures with Mathematica

Mathematica makes great figures, which are a good starting point for a publishable version. Its default options however gain to be boosted as follow:

bs = {BaseStyle -> Large, Frame -> True, 
  FrameStyle -> Directive[{{Black, Thickness[.001]}}], 
  FrameTicksStyle -> Directive[{{Black}}], ImageSize -> 800}

Then the option can be enforced by specifying Evaluate[bs] in the desired Plot, e.g.:

Unfortunately, there seems to be no easy way to make such options the default (using DefaultBaseStyle for instance, as you would expect).