How to copy Mathematica code with subindices in a readable way?

I’m trying to post some Mathematica code that makes heavy use of indices on a blog, and when copying and pasting I end up with unreadable stuff like

Cos[Subscript[[Theta], 0] + [Tau]] Sin[Subscript[[Phi], 0] - L], 
Sin[Subscript[[Theta], 0] + [Tau]] Sin[Subscript[[Phi], 0] - L], 
 Cos[Subscript[[Phi], 0] - L]}, {[Tau], 0, 
 L /Sin[Subscript[[Phi], 0] - L]}

Is there any way to copy heavily subindexed code like this in a readable format? Even if it is then impossible to paste back and execute, I’d rather prefer the code to be readable and provide an executable copy.