Ensure that Options for built-in symbols are the original defaults

Question

I often create symbols (no args) or functions (with args) in which common options (and styles) are set in body and unique opts within args for managing multiple calls to built-in functions. these spit out a very friendly Sequence object. But this still has a problem of creating symbols which in best practices should be kept at a bare minimized.

As a novice I recently discovered SetOptions[symbol, rules] as it is cleaner, easier on the eyes, and much less prone to error than trailing a trainload of options inside each call to the same function. But one of the best things of all is that no new symbols are created.

As far as I know Options[symbol] returns the original Mathematica default values only if SetOptions[symbol, rules] was not previously changed.

To achieve what I want, I can only think to begin with a fresh kernel and, before anything loads, run something like this defopts = Options[symbol] /. List -> Sequence; then, once done, reset the options with SetOptions[symbol, defopts].

I feel like resetting should be as simple as ResetOptions[symbol] (similar to ResetDirectory) while returning original non-default settings (for safety) along with the new current settings. If we only wish to view without any reset something like ResetOptions[symbol, False].

So, in short, is there a straightforward programmatic way of retrieving the originally defined default Options For built in symbols, after these have been changed with SetOptions? Is there an easy way to reset to the original default settings?

Answer 1

Here is the example you mentioned in comments, if I am not misunderstanding:

buttonOptions = 
  {AutoAction -> True,
   BaseStyle -> {16, White, Bold}, 
   Background -> Black};
Button["Click Here", Echo@RandomPolygon[], buttonOptions]

In the example above, the options for button have been set according to the buttonOptions variable. AutoAction is active as well: in the animation, I am merely hovering over the button and a new action is taken each time.