Show timing of every output

Question

I know I can follow Wolfram's guide and enable "ShowTiming" to show the timing of the previous command at the bottom of the window.

Additionally, I can enable "AddTimeStamp" to show when each cell is evaluated next to the cell. I was wondering if I could sorta combine "ShowTiming" and "AddTimeStamp" and show how long each output takes NEXT to the output cell (replacing the timestamp). So instead of the output cells showing the timestamp, it would instead show the timing.

I know I could calculate this myself by subtracting the output date from the input date, but it would be more convenient to have this happen automatically.

Answer 1

Here's a Mathematica 12 stylesheet solution that adds the "ShowTiming" status area to each output cell label:

CurrentValue[EvaluationNotebook[], EvaluationCompletionAction] = {"ShowTiming"};

SetOptions[
    EvaluationNotebook[],
    StyleDefinitions->Notebook[
        {
        Cell[StyleData[StyleDefinitions->"Default.nb"]],
        Cell[StyleData["Input"],
            CellEpilog :> With[{time = AbsoluteCurrentValue["WindowStatusArea"]},
                If[CurrentValue[NextCell[], CellStyle] === {"Output"},
                    SetOptions[NextCell[], CellLabel -> time<>" Out["<>ToString[$Line-1]<>"]="]
                ]
            ]
        ]
        },
        StyleDefinitions->"PrivateStylesheetFormatting.nb"
    ]
]