Is there a package for automating equation colorization?

Question

I'd like to have the equation colorization process be somewhat semantic, i.e., I can still type equations or math the ordinary way, except they occur in an environment in which the colorization happens automatically, so:

this:

_1\psi_1 \left[\begin{matrix} a \\ b \end{matrix} ; q,z \right] 
= \sum_{n=-\infty}^\infty \frac {(a;q)_n} {(b;q)_n} z^n
= \frac {(b/a,q,q/az,az;q)_\infty }
{(b,b/az,q/a,z;q)_\infty}

would result in things like this:
_{(source: maresh.info)}

without having to insert \color{} everywhere Is there a package which already does this?

Answer 1

\documentclass{article}

\usepackage[dvipsnames,usenames]{color}
\usepackage{amsmath}

\def\zz#1#2#3{%
\begingroup
\lccode`\~`#1%
\lowercase{\endgroup\edef~}{#2{#3}}%
\mathcode`#1"8000
}

\begin{document}
\zz\a{}{\noexpand\textcolor{red}{\mathchar\the\mathcode`\a}}
\zz\b{}{\noexpand\textcolor{green}{\mathchar\the\mathcode`\b}}
\zz\q{}{\noexpand\textcolor{Mahogany}{\mathchar\the\mathcode`\q}}
\zz\z{}{\noexpand\textcolor{yellow}{\mathchar\the\mathcode`\z}}
\zz\n{}{\noexpand\textcolor{Aquamarine}{\mathchar\the\mathcode`\n}}
\zz\=\mathrel{\noexpand\textcolor{green}{\mathchar\the\mathcode`\=}}
\zz\-\mathbin{\noexpand\textcolor{YellowGreen}{\mathchar\the\mathcode`\-}}
\zz\1{}{\noexpand\textcolor{cyan}{\mathchar\the\mathcode`\1}}
\zz\,\mathpunct{\noexpand\textcolor{Sepia}{\mathchar\the\mathcode`\,}}
\zz\/{}{\noexpand\textcolor{Tan}{\mathchar\the\mathcode`\/}}
\zz\;\mathpunct{\noexpand\textcolor{blue}{\mathchar\the\mathcode`\;}}
\let\oldinfty\infty
\def\infty{{\textcolor{PineGreen}{\oldinfty}}}


\pagecolor{black}
\color{white}

zzz
\begin{equation}
_1\psi_1 \left[\begin{matrix} a \\ b \end{matrix} ; q,z \right] 
= \sum_{n=-\infty}^\infty \frac {(a;q)_n} {(b;q)_n} z^n
= \frac {(b/a,q,q/az,az;q)_\infty }
{(b,b/az,q/a,z;q)_\infty}
\end{equation}

\end{document}