summaryrefslogtreecommitdiff
path: root/macros/latex209/contrib/misc/xxxcustom.tex
blob: 7fde01e36df5b450b8fd79f79fb4e302de187bf8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
% LaTeX customization for XXX


\makeatletter

\typeout{LaTeX customization 'XXXcustom'.  Version 1.00 - released 17 June 1985
}


% plain TeX compatibility

\def\oldstyle{\xdef\@oldstyle{\the\textfont\@ne}\mit\@oldstyle}


% Compatibility with XXX-TeX

\def\smaller{\footnotesize}		% smaller than small

\let\nfootnote=\footnote

\let\tell=\typeout

\def\implies{\quad\supset\ }

\def\tdots{\ldots\thinspace}

\let\bop=\newpage

\def\hbreak{\hfil\break}

\def\lp{\par\noindent}

\def\ifundefined#1{\expandafter\ifx\csname#1\endcsname\relax}

\def\boxit#1{\fbox{\sc#1}}


% Draft Stuff

\newif\ifdraft	\draftfalse

\def\draftstring{{\ifdraft \tt Draft\fi}}

\def\ds@DScustom{\ifdraft \@ifundefined{ds@draft}{}{\ds@draft}\fi}


% Extras

\newdimen\extra@wid		\extra@wid=\z@

\def\extra#1#2{%
    \setbox\z@=\hbox{#2:\quad}
    \ifnum\extra@wid<\wd\z@	\extra@wid=\wd\z@\fi
    \def#1##1{%
	\nobreak
	\extra@skip
	\vbox{%
	    \def\@filler{#2:\hfil\global\let\@filler=\empty}%
	    \let\\=\cr
	    \tabskip=\z@
	    \halign{%
		\hbox to\extra@wid{\@filler}\ignorespaces####\unskip\hfil\cr
		##1\cr
	    }%
	}%
	\nobreak
    }%
}

\def\extra@skip{%
    \vskip 2\baselineskip
    \def\extra@skip{\vskip .15in}%
}


% Miscellany

\def\bigquote#1\endbigquote{%
    \begin{quote}
	\noindent\llap{``}\ignorespaces#1\unskip''
    \end{quote}
}



% Double Spacing Macro

\def\doublespace{
	\baselineskip=2\baselinestretch pt
}

\def\XXXAA{\leavevmode\setbox0\hbox{h}\dimen@\ht0\advance\dimen@-1ex%
  \rlap{\kern+.45ex\raise.67\dimen@\hbox{\char'27}}A}

\makeatother