proc uniFormat {} {

	global htmfmt ltxfmt plnfmt

# -------------------------- SET UP OUTPUT FORMAT STYLES -------------------
#
#                            H T M L
#
set htmfmt(Bul)         {<ul>}
set htmfmt(Eul)         {</ul>}
set htmfmt(Bol)         {<ol>}
set htmfmt(Eol)         {</ol>}
set htmfmt(li)          {<li>%s}
set htmfmt(Bdl)         {<dl>}
set htmfmt(Edl)         {</dl>}
set htmfmt(dt)          {<dt>}
set htmfmt(dd)          {<dd>}
set htmfmt(bold)        {<b>%s</b>}
set htmfmt(ital)        {<i>%s</i>}
set htmfmt(tt)          {<tt>%s</tt>}
set htmfmt(var)         {<var>%s</var>}
set htmfmt(rule)        {<hr>}
set htmfmt(ss)          {<center><b>%s</b></center>}
set htmfmt(br)          {<br>}
set htmfmt(p)           {<p>}
set htmfmt(h2)          {<h2>%s</h2>}
set htmfmt(h3)          {<h3>%s</h3>}
set htmfmt(h4)          {<h4>%s</h4>}
set htmfmt(Bhead)       {<head>}
set htmfmt(Ehead)       {</head>}
set htmfmt(Bbody)       {<body>}
set htmfmt(Ebody)       {</body>}
set htmfmt(title)       {<title>%s</title>}
set htmfmt(Bhtml)       {<html>}
set htmfmt(Ehtml)       {</html>}
set htmfmt(null)        {}
#
#                            L A T E X
#
set ltxfmt(Bul)         {\begin{itemize}}
set ltxfmt(Eul)         {\end{itemize}}
set ltxfmt(Bol)         {\begin{enum}}
set ltxfmt(Eol)         {\end{enum}}
set ltxfmt(li)          {\item %s}
#
# if you use these, you always get boldface on the meme name
#       even in both members of ISA pairs.  and everything is
#       double spaced.  This is the right way.
#
set ltxfmt(Bdl)         {\begin{description} \setlength{\itemsep}{0pt} \setlength{\parsep} {0.5ex plus0.2ex minus0.1ex}}
set ltxfmt(Edl)         {\end{description}}
#
# But if you use these, you're hosed.  Don't do it.
#
# set ltxfmt(Bdl)         {\begin{itemize}}
# set ltxfmt(Edl)         {\end{itemize}}
#
set ltxfmt(dt)          "\\item\[\{%%"
set ltxfmt(dd)          "\}\]%%"
set ltxfmt(bold)        {\textbf{%s}}
set ltxfmt(ital)        {\textit{%s}}
set ltxfmt(tt)          {\texttt{%s}}
set ltxfmt(var)         {$%s$}
set ltxfmt(rule)        {}
set ltxfmt(ss)          {\subsection{%s}}
set ltxfmt(br)          "\\\\"
set ltxfmt(p)           {}
set ltxfmt(h2)          {{\huge %s}\\}
set ltxfmt(h3)          {{\huge %s}\\}
set ltxfmt(h4)          {{\large %s}\\}
set ltxfmt(Bhead)       "\\documentclass\[twoside,11pt,openright\]{report}\n\
\\usepackage{desrev}\n
\\chauthor{auto maton}{deimos@ucolick.org}"
set ltxfmt(Ehead)       {%% end head}
set ltxfmt(Bbody)       {\begin{document}}
set ltxfmt(Ebody)       {\end{document}}
set ltxfmt(title)       {%% HTML title %s}
set ltxfmt(Bhtml)       {%% autogenerated LaTeX from mbc}
set ltxfmt(Ehtml)       {%% trailer cruft}
set ltxfmt(null)        {%%}
#
#
# ----------------------------------------------------------------------------
#
}
