DarkOrangeFormalSymbols

(* Code for displaying all 52 formal symbols in a dark orange font *)
(* Generalized from: *)
(* http://reference.wolfram.com/mathematica/tutorial/LettersAndLetterLikeForms.html#173509264 *)

azAZ = CharacterRange["a", "z"]~Join~CharacterRange["A", "Z"];
$azAZ = CharacterRange["\[FormalA]", "\[FormalZ]"]~Join~
        CharacterRange["\[FormalCapitalA]", "\[FormalCapitalZ]"];

Do[With[{$x = Symbol[$azAZ[[i]]], x = azAZ[[i]]},
  MakeBoxes[$x, _] := TagBox[x, $x &, AutoDelete -> True,
    BaseStyle -> {FontColor -> Darker@Orange,
      ShowSyntaxStyles -> False}]], {i, 52}]