summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/thinsp/thinsp.sty
blob: fa6891e2115f1ed7e868445b11125e1eea32754e (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
96
97
98
99
100
101
102
103
104
105
106
% Copyright (C) 2007 Palle Jorgensen

% This file is free software; you can redistribute it and/or modify it
% under the terms of the GNU General Public License as published by
% the Free Software Foundation; either version 2 of the License, or
% (at your option) any later version.

% This file is distributed in the hope that it will be useful, but
% WITHOUT ANY WARRANTY; without even the implied warranty of
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
% General Public License for more details.

% You should have received a copy of the GNU General Public License
% along with this file; if not, write to the Free Software Foundation,
% Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.

\ProvidesPackage{thinsp}[2007/30/11 v 0.1 Package providing stretchable thinspaces]

\newif\if@thinsp@thinspace
\@thinsp@thinspacetrue
\DeclareOption{nothinspace}{\@thinsp@thinspacefalse}
\DeclareOption{thinspace}{\@thinsp@thinspacetrue}

\newif\if@thinsp@thinthinspace
\@thinsp@thinthinspacetrue
\DeclareOption{nothinthinspace}{\@thinsp@thinthinspacefalse}
\DeclareOption{thinthinspace}{\@thinsp@thinthinspacetrue}


\newif\if@thinsp@negthinspace
\@thinsp@negthinspacefalse
\DeclareOption{nonegthinspace}{\@thinsp@negthinspacefalse}
\DeclareOption{negthinspace}{\@thinsp@negthinspacetrue}

\def\thinsp@thinamount{.5}
\def\thinsp@thinthinamount{.25}

\DeclareOption{onethird}{%
  \def\thinsp@thinamount{.333}%
  \def\thinsp@thinthinamount{.167}%
}

\DeclareOption{onehalf}{%
  \def\thinsp@thinamount{.5}%
  \def\thinsp@thinthinamount{.25}%
}

\DeclareOption{twothirds}{%
  \def\thinsp@thinamount{.667}%
  \def\thinsp@thinthinamount{.333}%
}

\ProcessOptions*

\def\stretchthinspace{%
  \nobreak\hskip\thinsp@thinamount\fontdimen2\font%
  \@plus\thinsp@thinamount\fontdimen2\font%
  \@minus\thinsp@thinamount\fontdimen4\font%
  \relax%
}

\def\stretchnegthinspace{%
  \nobreak\hskip-\thinsp@thinamount\fontdimen2\font%
  \@plus\thinsp@thinamount\fontdimen4\font%
  \@minus\thinsp@thinamount\fontdimen3\font%
  \relax%
}

\def\stretchthinthinspace{%
  \nobreak\hskip\thinsp@thinthinamount\fontdimen2\font%
  \@plus\thinsp@thinthinamount\fontdimen3\font%
  \@minus\thinsp@thinthinamount\fontdimen4\font%
  \relax%
}

\AtBeginDocument{%
  \if@thinsp@thinspace
  \PackageInfo{thinsp}{Redefining \string\thinspace}
  \let\thinspace\stretchthinspace
  \@ifpackageloaded{amsmath}{%
    \PackageInfo{thinsp}{And now redefining AMS-math's
      \string\thinspace}
    \def\,{\ifmmode\mskip\thinmuskip\else\stretchthinspace\fi}%
    \let\thinspace\,%
  }
  \fi
  % 
  \if@thinsp@negthinspace
  \PackageInfo{thinsp}{Redefining \string\negthinspace}
  \let\negthinspace\stretchnegthinspace
  \@ifpackageloaded{amsmath}{%
    \PackageInfo{thinsp}{And now redefining AMS-math's
      \string\negthinspace}
    \def\!{\ifmmode\mskip-\thinmuskip\else\stretchnegthinspace\fi}%
    \let\negthinspace\!%
  }
  \fi
  % 
  \if@thinsp@thinthinspace
  \@ifundefined{thinthinspace}{}{%
    \PackageInfo{thinsp}{Redefining \string\thinthinspace}}
  \let\thinthinspace\stretchthinthinspace
  \fi
}

\endinput