spaces.tex

%
% This is file `spaces.tex'.
%
% The standard usage is:
%
%   \newcommand*\mathscalefractioninverse{25/26}
%   \input{spaces}
%   % Note:
%   %   If not specified, then \mathscalefractioninverse
%   % will be set to 1.
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
\expandafter\edef\csname current@catcode\endcsname{\the\catcode`\@}
\catcode`\@=11 %
% Math scale fraction inverse
\ifx\mathscalefractioninverse\@undefined
  \def\mathscalefractioninverse{1}
\fi
% Math spaces
\thinmuskip =\muexpr\thinmuskip *\mathscalefractioninverse\relax
\medmuskip  =\muexpr\medmuskip  *\mathscalefractioninverse\relax
\thickmuskip=\muexpr\thickmuskip*\mathscalefractioninverse\relax
% Text spaces
\def\enspace{\kern\dimexpr\unexpanded{\f@size}\p@/2\relax}
\def\enskip{\hskip\dimexpr\unexpanded{\f@size}\p@/2\relax\relax}
\def\quad{\hskip\dimexpr\unexpanded{\f@size}\p@\relax\relax}
\def\qquad{\hskip\dimexpr\unexpanded{\f@size}\p@*2\relax\relax}
% \, and friends need extra care
\AtBeginDocument{%
  \@ifpackageloaded{amsmath}{%
    \renewcommand\,%
      {\tmspace+\thinmuskip{\dimexpr\unexpanded{\f@size}\p@/6}}%
    \let\thinspace\,%
    \renewcommand\!%
      {\tmspace-\thinmuskip{\dimexpr\unexpanded{\f@size}\p@/6}}%
    \let\negthinspace\!%
    \renewcommand\:%
      {\tmspace+\medmuskip{\dimexpr\unexpanded{\f@size}\p@*2/9}}%
    \let\medspace\:%
    \renewcommand\negmedspace
      {\tmspace-\medmuskip{\dimexpr\unexpanded{\f@size}\p@*2/9}}%
    \renewcommand\;%
      {\tmspace+\thickmuskip{\dimexpr\unexpanded{\f@size}\p@*5/18}}%
    \let\thickspace\;%
    \renewcommand\negthickspace
      {\tmspace-\thickmuskip{\dimexpr\unexpanded{\f@size}\p@*5/18}}%
    \renewcommand\bmod{\nonscript\mskip-\medmuskip\mkern\thickmuskip\mathbin
      {\operator@font mod}\penalty900
      \mkern\thickmuskip\nonscript\mskip-\medmuskip}%
    \renewcommand\pod[1]{\allowbreak
      \if@display\mkern\muexpr18mu*\mathscalefractioninverse\relax
      \else\mkern\muexpr8mu*\mathscalefractioninverse\relax\fi(#1)}%
    \renewcommand\pmod[1]{\pod{{\operator@font mod}\,\,#1}}%
    \renewcommand\mod[1]{\allowbreak
      \if@display\mkern\muexpr18mu*\mathscalefractioninverse\relax
      \else\mkern\muexpr12mu*\mathscalefractioninverse\relax\fi
      {\operator@font mod}\,\,#1}%
    \renewcommand\minalignsep{\dimexpr\unexpanded{\f@size}\p@\relax}%
    \renewcommand\mintagsep{0.5\dimexpr\unexpanded{\f@size}\p@\relax}%
    \multlinegap\f@size\p@\relax
    \multlinetaggap\f@size\p@\relax
  }{%
    \def\thinspace{\kern\dimexpr\unexpanded{\f@size}\p@/6\relax}%
    \def\negthinspace{\kern-\dimexpr\unexpanded{\f@size}\p@/6\relax}%
    \def\bmod{%
      \nonscript\mskip-\medmuskip\mkern\thickmuskip
      \mathbin{\operator@font mod}\penalty900\mkern\thickmuskip
      \nonscript\mskip-\medmuskip}%
    \def\pmod#1{%
      \allowbreak\mkern\muexpr18mu*\mathscalefractioninverse\relax
      ({\operator@font mod}\,\,#1)}%
  }%
}
\catcode`\@=\current@catcode\relax
\endinput