diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex')
-rw-r--r-- | Master/texmf-dist/tex/latex/gmutils/gmutils.sty | 1234 |
1 files changed, 798 insertions, 436 deletions
diff --git a/Master/texmf-dist/tex/latex/gmutils/gmutils.sty b/Master/texmf-dist/tex/latex/gmutils/gmutils.sty index 2c9058651dd..5182082a4dd 100644 --- a/Master/texmf-dist/tex/latex/gmutils/gmutils.sty +++ b/Master/texmf-dist/tex/latex/gmutils/gmutils.sty @@ -4,6 +4,8 @@ % \author{Grzegorz Murzynowski} % \maketitle % +% \let\ty\emph +% % \begin{copyrnote} % %%Written by Grzegorz Murzynowski, @@ -49,11 +51,15 @@ % \chschange{v0.90}{2008/8/4}{4035} % \chschange{v0.91}{2008/8/6}{4055} % \chschange{v0.92}{2008/8/11}{4133} +% \chschange{v0.93}{2008/8/21}{4140} +% \chschange{v0.93}{2008/8/30}{4501} +% % % \skiplines we skip the driver \ifnum\catcode`\@=12 -\documentclass[debug,countalllines,codespacesgrey,outeroff,pagella]{gmdocc} +\documentclass[debug, countalllines, codespacesgrey, outeroff, +pagella, fontspec=quiet]{gmdocc} \usepackage{eufrak}% for |\continuum| in the commentary. \twocoltoc \begin{document} @@ -75,7 +81,7 @@ \NeedsTeXFormat{LaTeX2e} \ProvidesPackage{gmutils} - [2008/08/07 v0.92 some rather TeXnical macros, some of them tricky (GM)] + [2008/08/30 v0.93 some rather TeXnical macros, some of them tricky (GM)] % % \tableofcontents @@ -105,29 +111,28 @@ % most probably. % \end{gmlonely} % -% \subdivision{Contents of the \pk{gmutils.zip} Archive} +% \subdivision{Contents of the \pk{gmutils.zip} archive} % % The distribution of the \pk{gmutils} package consists of the -% following four files and a~\acro{TDS}-compliant archive. +% following three files and a~\acro{TDS}-compliant archive. % \begin{verse} % \pk{gmutils.sty}\\ % \pk{README}\\ -% \pk{gmutilsDoc.tex}\\ -% \pk{gmutilsDoc.pdf}\\ +% \pk{gmutils.pdf}\\ % \pk{gmutils.tds.zip} % \end{verse} % % \begin{gmlonely} -% \subdivision{Compiling of the Documentation} +% \subdivision{Compiling of the documentation} % % The last of the above files (the \pk{.pdf}, i.e., \emph{this % file}) is a~documentation compiled from the \pk{.sty} file by -% running \LaTeX\ on the \pk{gmutilsDoc.tex} file twice +% running \LaTeX\ on the \pk{gmutils.sty} file twice % (|xelatex gmutils.sty| in the directory you wish the % documentation to be in, you don't have copy the \file{.sty} file % there, \TeX\ will find it), % then MakeIndex on the \file{gmutils.idx} file, and then \LaTeX\ -% on \file{gmutilsDoc.tex} once more. +% on \file{gmutils.sty} once more. % % MakeIndex shell command: % \[\hbox{|makeindex -r gmutilsDoc|}\] @@ -149,13 +154,13 @@ % \end{gmlonely} % \ifx\XeTeXversion\relax -\let\XeTeXversion\@undefined% If someone earlier used the - % |\@ifundefined{XeTeXversion}| to test -% whether the engine is \XeTeX, then |\XeTeXversion| \emph{is} defined + \let\XeTeXversion\@undefined% If someone earlier used +% \inverb|\@ifundefined{XeTeXversion}| to test +% whether the engine is \XeTeX, then \incs{XeTeXversion} \emph{is} defined % in the sense of \eTeX\ tests. In that case we |\let| it to something -% really undefined. Well, we might keep sticking to |\@ifundefined|, +% really undefined. Well, we might keep sticking to \incs{@ifundefined}, % but it's a~macro and it eats its arguments, freezing their catcodes, -% which is not what we want in line \ref{not@ifundef} +% which is not what we want in line \ref{not@ifundef}. \fi \ifdefined\XeTeXversion @@ -164,11 +169,80 @@ % -% \division{A~couple of abbreviations} -% \Define\@xa \Define\@nx +% \subdivision{A~couple of abbreviations} +% {\DoIndex{\@nx \@xa} \Define\@xa \Define\@nx \let\@xa\expandafter \let\@nx\noexpand +%} \HideDefining*\pdef +\def\pdef{\protected\def} +%\changes{v0.93}{2008/08/20}{added} + +% And this one is defined, I~know, but it's not |\long| with the +% standard definition and I~want to be able to |\gobble| a~|\par| +% sometimes. +% \Define\gobbletwo +\long\def\gobble#1{} +% \Define\@gobble +\let\@gobble\gobble +\let\gobbletwo\@gobbletwo + + +% \HideDefining*\provide +\long\pdef\provide#1{%\changes{v0.93}{2008/08/30}{added} + \ifdefined#1% \UnDef + \ifx\relax#1\afterfifi{\def#1}% + \else\afterfifi{\gmu@gobdef}% \UnDef + \fi + \else\afterfi{\def#1}% + \fi} + + +\long\def\gmu@gobdef#1#{% \UnDef + \def\gmu@tempa{}% it's a~junk macro assignment + % to absorb possible prefixes. + \@gobble} + +% \HideDefining*\pprovide +\def\pprovide{\protected\provide} +% \changes[\pprovide]{v0.93}{2008/08/30}{added} Note that both +% |\provide| and |\pprovide| may be prefixed with |\global|, |\outer|, +% |\long| and |\protected| because the prefixes stick to |\def| +% because all before it is expandable. If the condition(s) is false +% (|#1| is defined) then the prefixes are absorbed by a~junk +% assignment. +% +% Note moreover that unlike \LaTeX's |\providecommand|, our +% \cs{(p)provide} allow any parameters string just like |\def| +% (because they just \emph{expand} to |\def|). +% + +\long\def\@nameedef#1#2{% \changes{v0.93}{2008/08/30}{added} + \@xa\edef\csname#1\endcsname{#2}} + +% \subdivision{\cs{firstofone} and the queer \cs{catcode}s} +% +% Remember that once a~macro's argument has been read, its +% |\catcode|s are assigned forever and ever. That's what is +% |\firstofone| for. It allows you to change the |\catcode|s locally +% for a~definition \emph{outside} the changed |\catcode|s' group. +% Just see the below usage of this macro `with \TeX's eyes', as my +% \TeX\ Guru taught me. +% +\long\def\firstofone#1{#1} + +% The next command, |\foone|, is intended as two-argument for +% shortening of the |\bgroup...\firstofone{\egroup...}| hack. +% +\long\def\foone#1{\bgroup#1\egroupfirstofone} +% \UnDef +\long\def\egroupfirstofone#1{\egroup#1} + +\long\def\fooatletter{\foone\makeatletter} + + + +% \subdivision{Global Boolean switches} % % The |\newgif| declaration's effect is used even in the \LaTeXe\ % source by redefining some particular user defined ifs (UD-ifs @@ -178,7 +252,7 @@ % \LaTeX's |\newif| modulo the letter $g$ and the |\global| prefix. % (File d: \file{ltdefns.dtx} Date: 2004/02/20 Version v1.3g, lines % 139--150) \Define\newgif -\protected\def\newgif#1{% +\pdef\newgif#1{% {\escapechar\m@ne \global\let#1\iffalse \@gif#1\iftrue @@ -195,13 +269,13 @@ \@xa\@gobbletwo\string#2\endcsname {\global\let#1#2}} -\protected\def\newif#1{% We not only make \incs{newif} +\pdef\newif#1{% We not only make \incs{newif} % \incs{protected} but also make it to define \cs{protected} % assignments so that premature expansion doesn't affect % \inverb|\if…\fi| nesting. % \changes{v0.92}{2008/08/09}{added redefinition so that now % switches defined with it are \cs{protected} so they won't expand to - % an further expanding or unbalanced \cs{iftrue/false} in an edef} + % a~further expanding or unbalanced \cs{iftrue/false} in an \cs{edef}} \count@\escapechar \escapechar\m@ne \let#1\iffalse \@if#1\iftrue @@ -214,6 +288,9 @@ {\let#1#2}} +\pdef\hidden@iffalse{\iffalse} +\pdef\hidden@iftrue{\iftrue} + % After |\newgif\iffoo| you may type |{\foogtrue}| and the |\iffoo| % switch becomes globally equal |\iftrue|. Simili modo |\foogfalse|. % Note the letter $g$ added to underline globalness of the assignment. @@ -233,7 +310,7 @@ % Warning. I~use it because of very special reasons in \pk{gmdoc} and % in general it is probably not a~good idea to make |\refstepcounter| % global since it is contrary to the original \LaTeX\ approach. -\protected\def\grefstepcounter#1{% +\pdef\grefstepcounter#1{% {\let\protected@edef=\protected@xdef\refstepcounter{#1}}} % Na\"\i{}ve first try |\globaldefs=\tw@| raised an error % |unknown command \reserved@e|. The matter was to globalize @@ -248,7 +325,7 @@ % touch \pk{hyperref}'s guts, so I~worked it around with ensuring % every \cs{grefstepcounter} to be in hmode: -\protected\def\hgrefstepcounter#1{% +\pdef\hgrefstepcounter#1{% \ifhmode\leavevmode\fi\grefstepcounter{#1}} % By the way I~read some lines from \TB\ and was reminded that @@ -256,7 +333,7 @@ % vertical. And I~use \cs{unskip} mostly to replace a~blank space with % some fixed skip. Therefore define -\protected\def\hunskip{\ifhmode\unskip\fi} +\pdef\hunskip{\ifhmode\unskip\fi} % Note the two macros defined above are \cs{protected}. I~think it's % a~good idea to make \cs{protected} all the macros that contain @@ -297,7 +374,7 @@ \long\def\addtotoks#1#2{% #1=\@xa{\the#1#2}} -%\Define\@emptify \Define\emptify +% \Define\emptify \newcommand*\@emptify[1]{\let#1=\@empty} \@ifdefinable\emptify{\let\emptify\@emptify} @@ -315,6 +392,83 @@ \newcommand*\g@relaxen{\global\@relaxen} \@ifdefinable\grelaxen{\let\grelaxen\g@relaxen} +% \subdivision{Apmpulex Compressa-like modifications of macros} +% Ampulex Compressa is a~wasp that performs brain surgery on its +% victim cockroach to lead it to its lair and keep alive for its +% larva. Well, all we do here with the internal \LaTeX\ macros +% resembles Ampulex's actions but here is a~tool for a~replacement of +% part of macro's definition. +% +% The \cs{ampulexdef} command takes its |#2| which has to be a~macro +% and replaces part of its definition (delimited with |#3| and |#4|) +% with the replacement |#5|. The redefinition may be prefixed with +% |#1|. |#2| may have parameters and for such a~macro you have to set +% the parameters string and arguments string with the \cs{ampulexset} +% declaration. If \cs{ampulexdef} doesn't find the sart and end tokens +% in the meaning of the macro, it does nothing to it. For an example +% use see line \ref{ampulexset}. + +\newcommand\ampulexdef[5][\relax]{%^^B + % \begin{enumargs} + % \item definition prefix, + % \item macro to be redefined, + % \item start token(s), + % \item end token(s) + % \item replacement. + % \end{enumargs} + % \changes{v0.93}{2008/08/29}{added} + \def\gmu@tempa{#3}% + \def\gmu@tempb{#4}% + \def\gmu@tempc{#5}% we wrap the start, end and replacement tokens in + % macros to avoid unbalanced \incs{if}s. + \edef\gmu@tempd{% + \long\def\@nx\gmu@tempd + ####1\all@other\gmu@tempa + ####2\all@other\gmu@tempb + ####3\@nx\gmu@tempd{% + \@ifempty{####3}{\hidden@iffalse}{\hidden@iftrue}}}% + % + \gmu@tempd% it defines \incs{gmu@tempc} to produce an open \incs{if} + % depending on whether the start and end token(s) are found in the + % meaning of \inverb|#2|. + % + \edef\gmu@tempe{% + \@nx\gmu@tempd\all@other#2% + \all@other\gmu@tempa + \all@other\gmu@tempb\@nx\gmu@tempd + }% + % + \gmu@tempe% we apply the checker and it + % produces an open \incs{if}. + \edef\gmu@tempd{% + \long\def\@nx\gmu@tempd + ####1\@xa\unexpanded\@xa{\gmu@tempa}% + ####2\@xa\unexpanded\@xa{\gmu@tempb}% + ####3\@nx\ampulexdef{% we define a~temporary + % macro with the parameters delimited with the `start' and `end' parameters + % of \incs{ampulexdef}. + \@nx\unexpanded{####1}% + \@nx\@xa\@nx\unexpanded + \@nx\@xa{\@nx\gmu@tempc}%we replace the part of the redefined + % macro's meaning with the replacement text. + \@nx\unexpanded{####3}}}% + \gmu@tempd + % + \edef\gmu@tempe{% + #1\def\@nx#2\gmu@ampulexpa{% + \@xa\@xa\@xa\gmu@tempd\@xa#2\gmu@ampulexpb + \ampulexdef}}% + \gmu@tempe + \fi} + + +\long\def\ampulexset#1#2{% + \def\gmu@ampulexpa{#1}% it's the parameter string for definition + \def\gmu@ampulexpb{#2}% it's the arguments string for the first + % expansion. For the example of usage see \ref{ampulexset}. +} + +\ampulexset{}{} % For the heavy debugs I~was doing while preparing \pk{gmdoc}, as % a~last resort I~used |\showlists|. But this command alone was @@ -396,7 +550,7 @@ % assigned for the future \cs{ifx} text, as we know. Therefore we call % it \cs{@ifnextif}. -\long\def\@ifnextif#1#2#3{% +\long\pdef\@ifnextif#1#2#3{% % \changes{v0.75}{2007/01/01}{\cs{let} for \cs[\#]1 changed to % \cs{def} to allow things like \cs{noexpand\*}} % \HideDef @@ -430,10 +584,9 @@ % opener. We do that to avoid taking a~whole |{...}| as the argument % of the next macro, that doesn't use |\futurelet| but takes the next % token as an argument, tests it and puts back intact. -% \Define\@ifnextac % \changes{v0.75}{2007/01/11}{added} % -\long\def\@ifnextac#1#2{% +\long\pdef\@ifnextac#1#2{% \@ifnextcat\bgroup{#2}{\gm@ifnac{#1}{#2}}} \long\def\gm@ifnac#1#2#3{% @@ -445,7 +598,8 @@ % char working as |\bgroup|?) % % \stanza Now, define a~test that checks whether the next token is -% a~genuine space, | |${}_{10}$ that is. First define a~CS let such +% a~genuine space, | |${}_{10}$ that is. First define +% a~\CS let such % a~space. The assignment needs a~little trick (\TeXbook\ appendix D) % since |\let|'s syntax includes one optional space after |=|. % @@ -467,8 +621,16 @@ % First use of this macro is for an active |-| that expands to |---| % if followed by a~space. Another to make dot checking whether is % followed by |~| without gobbling the space if it occurs instead. +% +% \stanza +% Now a~test if the next token is an active line end. I~use it in +% \pk{gmdoc} and later in this package for active long dashes. -% \division{\cs{afterfi} and Pals} +\foone\obeylines{% + \long\pdef\@ifnextMac#1#2{% + \@ifnextchar^^M{#1}{#2}}} + +% \division{\cs{afterfi} and pals} % It happens from time to time that you have some sequence of macros % in an |\if...| and you would like to expand |\fi| before expanding @@ -482,17 +644,14 @@ % I~think the situations when the Knuthian (the former) trick is not % available are rather seldom, but they are imaginable at least: the % |\next| trick involves an assignment so it won't work e.g.\ in -% |\edef|. But in general it's only a~matter of taste which one to -% use. +% |\edef|. % -% One warning: those macros peel the braces off, i.e., -% \[|\if..\afterfi{\@makeother\^^M}\fi|\] -% causes a~leakage of -% |^^M|\catother. To avoid pollution write -% \[|\if..\afterfi{\bgroup\@makeother\^^M\egroup}\fi|\,.\] +%^^A % One warning: those macros peel the braces off, i.e., +%^^A % \[|\if..\afterfi{\@makeother\^^M}\fi|\] +%^^A % causes a~leakage of +%^^A % |^^M|\catother. To avoid pollution write +%^^A % \[|\if..\afterfi{\bgroup\@makeother\^^M\egroup}\fi|\,.\] % -% \Define\afterfi \Define\afterfifi -% \Define\afteriffifi \long\def\afterfi#1#2\fi{\fi#1} % And two more of that family: @@ -506,7 +665,7 @@ \long\def\afterfififi#1#2\fi#3\fi#4\fi{\fi\fi\fi#1} % \division{Environments redefined} -% \subdivision{Almost an Environment or Redefinition of \cs{begin}} +% \subdivision{Almost an environment or redefinition of \cs{begin}} % % We'll extend the functionality of |\begin|: the non-starred % instances shall act as usual and we'll add the starred version. The @@ -568,7 +727,7 @@ \fi}% -%\subdivision{\cs{@ifenvir} and Improvement of \cs{end}} +%\subdivision{\cs{@ifenvir} and improvement of \cs{end}} % % \changes{v0.74}{2006/11/27}{The catcodes of \cs{begin} and \cs{end} % argument(s) don't have to agree strictly anymore: an environment is properly @@ -576,16 +735,18 @@ % same \cs{csname}} % % It's very clever and useful that |\end| checks whether its argument -% is |ifx|-equivalent |@currenvir|. However, in standard \LaTeX\ it +% is |\ifx|-equivalent |\@currenvir|. However, in standard \LaTeX\ it % works not quite as I~would expect: Since the idea of environment is -% to open a~group and launch the \acro{CS} named in the |\begin|'s +% to open a~group and launch the \CS named in the |\begin|'s % argument. That last thing is done with |\csname...\endcsname| so -% the char catcodes are equivalent. Thus should be also in the -% |\end|'s test and therefore we ensure the compared texts are both -% expanded and made all `other'. - +% the catcodes of chars are irrelevant (until they are |\active|, +% ${}_1$, ${}_2$ etc.). Thus should be also in the |\end|'s test and +% therefore we ensure the compared texts are both expanded and made +% all `other'. +% % First a~(not expandable) macro that checks whether current -% environment is as given in |#1|. +% environment is as given in |#1|. Why is this macro |\long|?---you +% may ask. It's |\long| to allow evironments such as |\string\par|. % \long\def\@ifenvir#1#2#3{%\label{@ifenvir} % \changes{v0.92}{2008/08/07}{added} @@ -601,8 +762,10 @@ % and end it with |\end{macrocode*}| with |*|\catletter\ (that was the % problem that led me to this solution). The error messages looked % really funny: -% $$\hbox{|! LaTeX Error: \begin{macrocode*} on input line 1844 ended by \end{macrocode*}.|}$$ -% Of course, you might write +%\begin{verbatim} +%! LaTeX Error: \begin{macrocode*} on input line 1844 ended by \end{macrocode*}. +%\end{verbatim} +% You might also write % also |\end{macrocode\star}| where |\star| is defined as `other' star % or letter star. @@ -633,7 +796,7 @@ % doesn't issue an error if its argument has been defined and it only % informs about redefining, loading \pk{relsize} remains allowed.) % \Define\relsize -\DeclareRobustCommand*\relsize[1]{% +\pdef\relsize#1{% \ifmmode \@nomath\relsize\else \begingroup \@tempcnta % assign number representing current font size @@ -660,11 +823,9 @@ \rs@size@warning{large}{\string\Huge}\Huge \fi\fi}% end of |\relsize|. -% \Define\rs@size@warning \providecommand*\rs@size@warning[2]{\PackageWarning{gmutils (relsize)}{% Size requested is too #1.\MessageBreak Using #2 instead}} -% \Define\rs@unknown@warning \providecommand*\rs@unknown@warning{\PackageWarning{gmutils (relsize)}{Current font size is unknown! (Why?!?)\MessageBreak Assuming \string\normalsize}} @@ -674,44 +835,15 @@ \DeclareRobustCommand*\smaller[1][\@ne]{\relsize{-#1}} \DeclareRobustCommand*\textlarger[2][\@ne]{{\relsize{+#1}#2}} \DeclareRobustCommand*\textsmaller[2][\@ne]{{\relsize{-#1}#2}} -\DeclareRobustCommand*\largerr{\relsize{+2}} -\DeclareRobustCommand*\smallerr{\relsize{-2}} - -% \division{\cs{firstofone} and the Queer \cs{catcode}s} -% -% Remember that once a~macro's argument has been read, its -% |\catcode|s are assigned forever and ever. That's what is -% |\firstofone| for. It allows you to change the |\catcode|s locally -% for a~definition \emph{outside} the changed |\catcode|s' group. -% Just see the below usage of this macro `with \TeX's eyes', as my -% \TeX\ Guru taught me. -% -\long\def\firstofone#1{#1} - -% The next command, |\foone|, is intended as two-argument for -% shortening of the |\bgroup...\firstofone{\egroup...}| hack. -% -\long\def\foone#1{\bgroup#1\egroupfirstofone} -% \UnDef -\long\def\egroupfirstofone#1{\egroup#1} - -\long\def\fooatletter{\foone\makeatletter} - - - -% And this one is defined, I~know, but it's not |\long| with the -% standard definition. -% \Define\gobbletwo -\long\def\gobble#1{} -\let\@gobble\gobble -\let\gobbletwo\@gobbletwo +\pdef\largerr{\relsize{+2}} +\pdef\smallerr{\relsize{-2}} % \division{Some `other' stuff} % Here I~define a~couple of macros expanding to special chars made -% `other'. It's important the \acro{CS} are expandable and therefore +% `other'. It's important the \CS are expandable and therefore % they can occur e.g. inside |\csname...\endcsname| unlike e.g. -% \acro{CS}'es |\chardef|ed. +% \CS'es |\chardef|ed. % % \Define\subs \foone{\catcode`\_=8 }% @@ -804,7 +936,7 @@ %^^A~\ifx\l@nohyphenation\undefined %^^A~ \newlanguage\l@nohyphenation %^^A~\fi -\DeclareRobustCommand*\meta[1]{% +\pdef\meta#1{% % \begin{quotation} % Since the old implementation of |\meta| could be used in math we better ensure % that this is possible with the new one as well. So we use |\ensuremath| around @@ -842,7 +974,7 @@ % \Define*{\<...>} \def\<#1>{\meta{#1}} -% \division{Macros for Printing Macros and Filenames} +% \division{Macros for printing macros and filenames} % % First let's define three auxiliary macros analogous to |\dywiz| from % \pk{polski.sty}: a~shorthands for |\discretionary| that'll stick to @@ -860,32 +992,29 @@ % has its original meaning inside math. \def\:{\ifmmode\afterfi{\mskip\medmuskip}\else\afterfi{\discret{}}\fi} -% \Define\vs \newcommand*{\vs}{\discre{\visiblespace}{}{\visiblespace}} % Then we define a~macro that makes the spaces visible even if used in % an argument (i.e., in a~situation where re|\catcode|ing has no % effect). % -% \Define\printspaces \def\printspaces#1{{\let~=\vs \let\ =\vs \gm@pswords#1 \@@nil}} % \DefIndex\gm@pswords \def\gm@pswords#1 #2\@@nil{% \ifx\relax#1\relax\else#1\fi \ifx\relax#2\relax\else\vs\penalty\hyphenpenalty\gm@pswords#2\@@nil\fi}% note -% that in the recursive call of |\gm@pswords| the argument string is +% that in the recursive call of \incs{gm@pswords} the argument string is % not extended with a~guardian space: it has been already by -% |\printspaces|. +% \incs{printspaces}.\ilrr -% \Define\sfname \Define\file -\DeclareRobustCommand*\sfname[1]{\textsf{\printspaces{#1}}} +\pdef\sfname#1{\textsf{\printspaces{#1}}} \def\gmu@discretionaryslash{\discre{/}{\hbox{}}{/}}% the second - % pseudo-argument nonempty to get - % |\hyphenpenalty| not |\exhyphenpenalty|. +% pseudo-argument nonempty to get +% \incs{hyphenpenalty} not \incs{exhyphenpenalty}.\ilrr -\DeclareRobustCommand*\file[1]{\gmu@printslashes#1/\gmu@printslashes} +\pdef\file#1{\gmu@printslashes#1/\gmu@printslashes} \def\gmu@printslashes#1/#2\gmu@printslashes{% \sfname{#1}% @@ -900,7 +1029,7 @@ % The below macro I~use to format the packages' names. % \Define\pk -\DeclareRobustCommand*{\pk}[1]{\textsf{\textup{#1}}} +\pdef\pk#1{\textsf{\textup{#1}}} % Some (if not all) of the below macros are copied from \pk{doc} % and/or \pk{ltxdoc}. @@ -917,11 +1046,11 @@ % \Define\env % \changes{v0.66}{06/09/29}{the braces removed} -\DeclareRobustCommand*{\env}[1]{\cs[]{#1}} +\pdef\env#1{\cs[]{#1}} % And for the special sequences like |^^A|: \foone{\@makeother\^} - {\DeclareRobustCommand*\hathat[1]{\cs[^^]{#1}}} + {\pdef\hathat#1{\cs[^^]{#1}}} % And one for encouraging linebreaks e.g., before long verbatim words. @@ -969,26 +1098,35 @@ \@pargp\marg}}\fi}% } -% \division{Storing and Restoring the Meanings of CSs} +% Now you can write +%\begin{verse} +% |\arg{mand. arg}| to get \arg{mand. arg},\\ +% |\arg[opt. arg]| for \arg[opt. arg] and\\ +% |\arg(pict. arg)| for \arg(pict. arg).\\ +% And |$\arg(1+i) = \pi/4$| for $\arg(1+i) = \pi/4$. +% \end{verse} +% + +% \division{Storing and restoring the meanings of \CSs} % -% First a~Boolean switch af globalness of assignments and +% First a~Boolean switch of globalness of assignments and % its verifier. \newif\ifgmu@SMglobal -\def\SMglobal{\gmu@SMglobaltrue} +\pdef\SMglobal{\gmu@SMglobaltrue} % The subsequent commands are defined in such a~way that you can % `prefix' them with |\SMglobal| to get global (re)storing. % \stanza -% A~command to store the current meaning of a~CS in another macro to -% temporarily redefine the CS and be able to set its original meanig +% A~command to store the current meaning of a~\CS in another macro to +% temporarily redefine the \CS and be able to set its original meanig % back (when grouping is not recommended): % %\Define\StoreMacro %\changes{v0.61}{06/09/05}{added.} %\changes{v0.67}{06/10/11}{enriched with \cs{makeatletter}} -\def\StoreMacro{% +\pdef\StoreMacro{% \bgroup\makeatletter\@ifstar\egStore@MacroSt\egStore@Macro} -% The unstarred version takes a~\acro{CS} and the starred version +% The unstarred version takes a~\CS and the starred version % a~text, which is intended for special control sequences. For storing % environments there is a~special command in line \ref{StoreEnvironment}. @@ -1007,9 +1145,10 @@ \ifgmu@SMglobal\global\fi \@nx\let\@xa\@nx\csname/gmu/store\bslash#1\endcsname%\label{SMbslash} % we add backslash because to ensure compatibility between - % \cs{(Re)StoreMacro} and \cs{(Re)StoreMacro*}, that is. to allow - % writing e.g. |\StoreMacro\kitten| and then - % |\RestoreMacro*{kitten}| to restore the meaning of |\kitten|. + % \incs{(Re)StoreMacro} and \incs{(Re)StoreMacro*}, that is. to allow + % writing e.g. \inverb|\StoreMacro\kitten| and then + % \inverb|\RestoreMacro*{kitten}| to restore the meaning of + % \incs{kitten}.\ilrr \@xa\@nx\csname#1\endcsname} \gmu@smtempa \global\gmu@SMglobalfalse}% we wish the globality to be just @@ -1024,11 +1163,11 @@ % |\csname foo \endcsname|. % % -% The next command iterates over a~list of CSs and stores each of -% them. The CS may be separated with commas but they don't have to. +% The next command iterates over a~list of \CSs and stores each of +% them. The \CS may be separated with commas but they don't have to. % \Define\StoreMacros -\long\def\StoreMacros{\bgroup\makeatletter\Store@Macros} +\long\pdef\StoreMacros{\bgroup\makeatletter\Store@Macros} \long\def\Store@Macros#1{\egroup \gmu@setsetSMglobal \let\gml@StoreCS\Store@Macro @@ -1054,19 +1193,18 @@ % contain commas and that's O.K., we just continue the work. \afterfifi\gml@storemacros \else% what is else this shall be stored. - \gml@StoreCS{#1}% we use a~particular CS to may |\let| it both to + \gml@StoreCS{#1}% we use a~particular \CS to may |\let| it both to % the storing macro as above and to the restoring one as % \gmiflink[letRestore]{below}. \afterfifi{\gmu@setSMglobal\gml@storemacros}% \fi \fi} - % And for the restoring %\Define\RestoreMacro %\changes{v0.61}{06/09/05}{added.} %\changes{v0.67}{06/10/11}{enriched with \cs{makeatletter}} -\def\RestoreMacro{% +\pdef\RestoreMacro{% \bgroup\makeatletter\@ifstar\egRestore@MacroSt\egRestore@Macro} \long\def\egRestore@Macro#1{\egroup\Restore@Macro{#1}} @@ -1088,12 +1226,12 @@ \global\gmu@SMglobalfalse} % \Define\RestoreMacros -\long\def\RestoreMacros{\bgroup\makeatletter\Restore@Macros} +\long\pdef\RestoreMacros{\bgroup\makeatletter\Restore@Macros} \long\def\Restore@Macros#1{\egroup \gmu@setsetSMglobal \let\gml@StoreCS\Restore@Macro% \gmhypertarget[letRestore]{we} - % direct the core CS towards restoring and call the same iterating + % direct the core \CS towards restoring and call the same iterating % macro as in line \ref{InnerStore}. \gml@storemacros#1.} % As you see, the |\RestoreMacros| command uses the same iterating @@ -1104,17 +1242,17 @@ \def\StoredMacro{\bgroup\makeatletter\Stored@Macro} \long\def\Stored@Macro#1{\egroup\Restore@Macro#1#1} -% To be able to call a~stored \acro{CS} without restoring it. +% To be able to call a~stored \CS without restoring it. \def\storedcsname#1{%% \changes{v0.88}{2008/08/03}{added} \csname /gmu/store\bslash#1\endcsname} % 2008/08/03 we need to store also an environment. -\def\StoreEnvironment#1{% \label{StoreEnvironment} +\pdef\StoreEnvironment#1{% \label{StoreEnvironment} % \changes{v0.88}{2008/08/03}{added} \StoreMacro*{#1}\StoreMacro*{end#1}} -\def\RestoreEnvironment#1{% +\pdef\RestoreEnvironment#1{% % \changes{v0.88}{2008/08/03}{added} \RestoreMacro*{#1}\RestoreMacro*{end#1}} @@ -1159,7 +1297,6 @@ % Note that both |\StoringAndRelaxingDo| and |\RestoringDo| are % sensitive to the |\SMglobal| `prefix'. - % And to store a~cs as explicitly named cs, i.e. to |\let| one csname % another (|\n@melet| not |\@namelet| becasuse the latter is defined % in Till Tantau's \pk{beamer} class another way) (both arguments @@ -1218,19 +1355,34 @@ % A~subtle error raises: the \LaTeX\ standard |\@onlypreamble| and % what |\document| does with |\@preamblecmds| makes any two of `only -% preamble' \acro{CS}'s |\ifx|-identical inside \env{document}. And my -% change makes any two \acro{CS}'s |\ifx|-different. The first it -% causes a~problem is |\nocite| that checks +% preamble' \CS's |\ifx|-identical inside \env{document}. And my +% change makes any two \CS's |\ifx|-different. The first it +% causes a~problem with is standard \LaTeX's |\nocite| that checks % |\ifx\@onlypreamble\document|. So hoping this is a~rare problem, we -% circumvent in with +% circumvent in with. 2008/08/29 a~bug is reported by Edd Barrett that +% with \pk{natbib} an `extra \}' error occurs so we wrap the fix in +% a~conditional. -\def\nocite#1{% - \@bsphack{\setbox0=\hbox{\cite{#1}}}\@esphack} +% \changes[\nocite]{v0.93}{2008/08/29}{a~bug fixed: with \pk{natbib} +% an `extra \}' error. Now it fixes only the standard version of +% \cs{nocite}} +\def\gmu@nocite@ampulex{% we wrap the stuff in a~macro to hide an open + % \incs{if}. And not to make the begin-input hook not too large. + \ampulexset{########1}{{####1}}% \label{ampulexset} the first is the + % parameters string and the second the argument for one-level + % expansion of \incs{nocite} so it has to consist of two times less + % hashes than the first. Both hash strings are doubled to pass the + % first \incs{def}. + \ampulexdef\nocite\ifx + {\@onlypreamble\document}% + \iftrue} +\AtBeginDocument\gmu@nocite@ampulex -% \division{Third Person Pronouns} + +% \division{Third person pronouns} % % Is a~reader of my documentations `she' or 'he' and does it make % a~difference? @@ -1270,47 +1422,46 @@ \newcommand*\HimHer{\gm@atppron{Him}{Her}} \newcommand*\HisHers{\gm@atppron{His}{Hers}} -% \division[To Save Precious Count Registers]{\gmhypertarget{To Save Precious Count Registers}} -% -% It's a~contribution to \TeX's ecology \gobble(;-). You can use as -% many CSs as you wish and you may use only 256 count registers -% (although in \eTeX\ there are $2^{16}$ count registers, which makes -% the following a~bit obsolete). - -\newcommand*\nummacro[1]{\gdef#1{0}} - -\newcommand*\stepnummacro[1]{% - \@tempcnta=#1\relax - \advance\@tempcnta by1\relax - \xdef#1{\the\@tempcnta}}% Because of some mysterious reasons -% explicit |\count0| interferred with page -% numbering when used in |\gmd@evpaddonce| in \pk{gmdoc}. - - - -\newcommand*\addtonummacro[2]{% - \count0=#1\relax - \advance\count0by#2\relax - \xdef#1{\the\count\z@}} -% Need an explanation? The |\nummacro| declaration defines its -% argument (that should be a~CS) as |{0}| which is analogous to -% |\newcount| declaration but doesn't use up any count register. -% -% Then you may use this numeric macro as something between \TeX's -% count CS and \LaTeX's counter. The macros |\stepnummacro| and -% |\addtonummacro| are analogous to \LaTeX's |\stepcounter| and -% |\addtocounter| respectively: |\stepnummacro| advances the number -% stored in its argument by 1 and |\addtonummacro| advances it by the -% second argument. As the \LaTeX's analogoi, they have the global effect -% (the effect of global warming \gobble(;-)\,). -% -% So far I've used only |\nummacro| and |\stepnummacro|. Notify me if -% you use them and whether you need sth.\ more, |\multiplynummacro| -% e.g. -% - - -% \division{Improvements to \pk{mwcls} Sectioning Commands} +%^^A % \division[To Save Precious Count Registers]{\gmhypertarget{To Save Precious Count Registers}} +%^^A % +%^^A % It's a~contribution to \TeX's ecology \gobble(;-). You can use as +%^^A % many \CSs as you wish and you may use only 256 count registers +%^^A % (although in \eTeX\ there are $2^{16}$ count registers, which makes +%^^A % the following a~bit obsolete). +%^^A +%^^A \newcommand*\nummacro[1]{\gdef#1{0}} +%^^A +%^^A \newcommand*\stepnummacro[1]{% +%^^A \@tempcnta=#1\relax +%^^A \advance\@tempcnta by1\relax +%^^A \xdef#1{\the\@tempcnta}}% Because of some mysterious reasons +%^^A % explicit |\count0| interferred with page +%^^A % numbering when used in |\gmd@evpaddonce| in \pk{gmdoc}. +%^^A +%^^A +%^^A +%^^A \newcommand*\addtonummacro[2]{% +%^^A \count0=#1\relax +%^^A \advance\count0by#2\relax +%^^A \xdef#1{\the\count\z@}} +%^^A % Need an explanation? The |\nummacro| declaration defines its +%^^A % argument (that should be a~\CS) as |{0}| which is analogous to +%^^A % |\newcount| declaration but doesn't use up any count register. +%^^A % +%^^A % Then you may use this numeric macro as something between \TeX's +%^^A % count \CS and \LaTeX's counter. The macros |\stepnummacro| and +%^^A % |\addtonummacro| are analogous to \LaTeX's |\stepcounter| and +%^^A % |\addtocounter| respectively: |\stepnummacro| advances the number +%^^A % stored in its argument by 1 and |\addtonummacro| advances it by the +%^^A % second argument. As the \LaTeX's analogoi, they have the global effect +%^^A % (the effect of global warming \gobble(;-)\,). +%^^A % +%^^A % So far I've used only |\nummacro| and |\stepnummacro|. Notify me if +%^^A % you use them and whether you need sth.\ more, |\multiplynummacro| +%^^A % e.g. +%^^A % + +% \division{Improvements to \pk{mwcls} sectioning commands} % % That is, `Expe-ri-mente'\footnote{A.\ Berg, \textit{Wozzeck}.} mit MW % sectioning \& \cs{refstepcounter} to improve \pk{mwcls}'s cooperation @@ -1332,7 +1483,7 @@ \setcounter{NoNumSecs}{617}% to make |\ref|ing to an unnumbered section % visible (and funny?). \def\gm@hyperrefstepcounter{\refstepcounter{NoNumSecs}}% - \DeclareRobustCommand*\gm@targetheading[1]{% + \pdef\gm@targetheading#1{% \hypertarget{#1}{#1}}}% end of then {\def\gm@hyperrefstepcounter{}% \def\gm@targetheading#1{#1}}% end of else @@ -1408,7 +1559,7 @@ \global\@topnum\z@ \fi% of |\if\mw@HeadingBreakBefore| %% -% placement of |\refstep| suggested by me (GM) +% placement of |\refstep| suggested by me (GM):\nostanza \ifHeadingNumbered \refstepcounter{#1}% \protected@edef\HeadingNumber{\csname the#1\endcsname\relax}% @@ -1485,10 +1636,13 @@ \else\mw@setflags{#2}% \fi} -\def\mw@secdef#1#2#3#4{% |#1| the heading name,\\ -% |%| |#2| the command distinctor, \\ -% |%| |#3| the meaning, \\ -% |%| |#4| the number of argument to error message. +\def\mw@secdef#1#2#3#4{% ^^B +% \begin{enumargs} +% \item the heading name, +% \item the command distinctor, +% \item the meaning, +% \item the number of argument to error message. +% \end{enumargs} \@ifempty{#3} {\mw@secundef{#1#2}{#4}} {\@namedef{#1#2}{#3}}} @@ -1501,7 +1655,7 @@ Provide the #2 argument of \bslash SetSectionFormatting.}}{}} -% First argument is a~sectioning command (wo. |\|) and second the +% First argument is a~sectioning command (wo.\ the backslash) and second the % stuff to be added at the beginning of the heading declarations. \def\addtoheading#1#2{% \n@melet{gmu@reserveda}{#1@head}% @@ -1522,7 +1676,7 @@ % to introduce a~check whether the previous vertical space equals the % postskip of the section one level higher. -\@ifnotmw{}{% We proceed only in \acro{MWCLS} +\@ifnotmw{}{% We proceed only in \acro{MWCLS}. % The information that we are just after a~heading will be stored in % the |\gmu@prevsec| macro: any heading will define it as the section @@ -1547,7 +1701,7 @@ % level lower I~suppose), then we add the less of the higher header's % post-skip and the lower header pre-skip or, if defined, the % two-header-skip. (We put the macro defined below just before -% |\addvspace| in MWCLS inner macros.) +% |\addvspace| in \pk{mwcls} inner macros.) \def\gmu@checkaftersec{% \@ifundefined{gmu@prevsec}{}{% \ifgmu@postsec% an additional switch that is true by default but @@ -1579,12 +1733,12 @@ \relax}% \penalty10000 \hrule height\z@\relax% to hide the last (un)skip before subsequent - % |\addvspace|s. + % \incs{addvspace}s. \ilrr \penalty10000 \fi \fi - }% of |\@ifundefined{gmu@prevsec}| `else' -}% of |\def\gmu@checkaftersec| + }% of |\@ifundefined{gmu@prevsec}| `else'. +}% of |\def\gmu@checkaftersec|. \def\ParanoidPostsec{% \label{gmu@postsec} this version of % \inverb|\ifgmu@postsec| is intended for the special case of @@ -1615,7 +1769,7 @@ \def\SetTwoheadSkip#1#2{\@namedef{#1@twoheadskip}{#2}} -}% of |\@ifnotmw| +}% of |\@ifnotmw|. % \subdivision{My heading setup for \pk{mwcls}} @@ -1676,7 +1830,7 @@ }% of |\@ifnotmw| -% \division{Compatibilising Standard and \pk{mwcls} Sectionings} +% \division{Compatibilising standard and \pk{mwcls} sectionings} % % If you use Marcin Woli\nacute ski's document classes (\pk{mwcls}), you % might have met their little queerness: the sectioning commands take @@ -1728,7 +1882,7 @@ % appropriate argument. \csname gm@true@#1mark\endcsname{#2}% \n@melet{#1mark}{gm@true@#1mark}% after we've done what we - % wanted we restore original |\#1mark|. + % wanted we restore original |\#1mark|.\ilrr }% \def\gm@secstar{[#3]}% if |\gm@secstar| % is empty, which means the sectioning command was written @@ -1821,7 +1975,7 @@ -% \division{The Logos} +% \division{The logos} % % We'll modify The \LaTeX\ logo now to make it fit better to various % fonts. @@ -1831,12 +1985,14 @@ \def\TeX{T\kern-.1667em\lower.5ex\hbox{E}\kern-.125emX\@} -\newcommand*\DeclareLogo[3][\relax]{% - % |#1| is for non-\LaTeX\ spelling and will be used in the PD1 - % encoding (to make pdf bookmarks);\\ - % |#2| is the command, its name will be the PD1 spelling by - % default,\\ - % |#3| is the definition for all the font encodings except PD1. +\newcommand*\DeclareLogo[3][\relax]{% \begin{enumargs} + % \item is for non-\LaTeX\ spelling and will be used in the + % \acro{PD1} encoding (to make pdf bookmarks); + % \item is the command, its name will be the PD1 spelling by + % default, + % \item is the definition for all the font encodings except PD1. + % \end{enumargs} + % \ifx\relax#1\def\gmu@reserveda{\@xa\@gobble\string#2}% \else \def\gmu@reserveda{#1}% @@ -1845,7 +2001,7 @@ \@nx\DeclareTextCommand\@nx#2{PD1}{\gmu@reserveda}} \gmu@reserveda \DeclareTextCommandDefault#2{#3}% - \DeclareRobustCommand*#2{#3}}% added for \XeTeX + \pdef#2{#3}}% added for \XeTeX % \DeclareDefining\DeclareLogo \DeclareLogo\LaTeX{% @@ -1961,36 +2117,30 @@ % you get as the Unicode Latin Letter Reversed E. -% \division{Expanding turning stuff all into `other'} +% \division{Expandable turning stuff all into `other'} % While typesetting a~unicode file contents with \pk{inputenc} package % I~got a~trouble with some Unicode sequences that expanded to -% unexpandable CSs: they could'nt be used within +% unexpandable \CSs: they could'nt be used within % |\csname...\endcsname|. My \TeX Guru advised to use |\meanig| to % make all the name `other'. So---here we are. % % Don't use them in |\edef|s, they would expand not quite. % \Define\unex@namedef \Define\unex@nameuse -%^^A~% The next macro turns its |#2| all into `other' chars and assigns -%^^A~% them to |#1| which has to be a~\acro{CS} or an active char. -%^^A~% \Define\def@other -%^^A~\long\def\def@other#1#2{% -%^^A~ \long\def\gm@def@other@tempa{#2}% -%^^A~ \all@other#1{#2}} % The next macro is intended to be put in |\edef|s with a~macro % argument. The meaning of the macro will be made all `other' and the % words '(long) macro:->' gobbled. %\Define\all@other -\def\all@other#1{\@xa\gm@gobmacro\meaning#1} +\long\def\all@other#1{\@xa\gm@gobmacro\meaning#1} % The |\gm@gobmacro| macro above is applied to gobble the |\meaning|'s % beginnig, |long macro:->| all `other' that is. Use of it: % \Define\gm@gobmacro -\edef\gmu@reserveda{% - \def\@nx\gm@gobmacro##1\@xa\@gobble\string\macro:->{}} -\gmu@reserveda +\edef\gmu@tempa{% + \def\@nx\gm@gobmacro##1\@xa\@gobble\string\macro:##2->{}} +\gmu@tempa % In the next two macros' names, `unex' stands both for not expanding % the argument(s) and for disastrously partial unexpandability of the @@ -2017,11 +2167,6 @@ \def\XeTeXthree{% \changes{v0.90}{2008/8/4}{adjusted to the redefinition of % \cs{verb} in \pk{xlxtra} 2008/07/29} \@ifXeTeX{% - % ^^A \SMglobal\StoreMacro\LaTeX - % ^^A \SMglobal\StoreMacro*{LaTeX }% we want \emph{our} version - % ^^A of |\LaTeX|. - % ^^A \RequirePackage{fontspec}% these two packages are loaded - % ^^A \RequirePackage{xunicode}% by \pk{xltxtra} \@ifpackageloaded{gmverb}{\StoreMacro\verb}{}% \RequirePackage{xltxtra}% since v 0.4 (2008/07/29) this package % redefines |\verb| and \env{verbatim*}, @@ -2034,17 +2179,16 @@ \AtBeginDocument{% \RestoreMacro\LaTeX\RestoreMacro*{LaTeX }}% my version of the % \LaTeX\ logo has been stored just - % after defining, in line \ref{SMLaTeX}. + % after defining, in line \ref{SMLaTeX}. \ilrr % ^^A \def\dekfracc##1/##2{\vfrac{##1}{##2}} }{}} - -% The |\udigits| declaration causes the digits to be typeset +% \indent The |\udigits| declaration causes the digits to be typeset % uppercase. I~provide it since by default I~prefer the lowercase % (nautical) digits. \AtBeginDocument{% \@ifpackageloaded{fontspec}{% - \DeclareRobustCommand*\udigits{% + \pdef\udigits{% \addfontfeature{Numbers=Uppercase}}% }{% \emptify\udigits}} @@ -2055,7 +2199,8 @@ \def\Xedekfracc{\@ifstar\gmu@xedekfraccstar\gmu@xedekfraccplain} % (plain) The starless version turns the font feature |frac| on. % - % (*) But nor Minion GM neither \TeX\ Gyre Pagella doesn't feature the + % (*) But nor my modification of Minion Pro neither \TeX\ Gyre + % Pagella doesn't feature the % |frac| font feature properly so, with the starred version of the % declaration we use the characters from the font where available % (see the |\@namedef|s below) and the |numr| and |dnom| features @@ -2123,7 +2268,7 @@ % 4. (The \LaTeXe\ Source claims that that is changed in the `new % implementation' of |\@ifstar| so maybe it's subject to change.) -% A~simpler version of |\dekfracc| is provided in line \ref{2292} +% A~simpler version of |\dekfracc| is provided in line \ref{2292}. % \subdivision{\cs{resizegraphics}} % @@ -2169,7 +2314,7 @@ }{\truetextsuperscript}} \def\truetextsuperscript{% - \DeclareRobustCommand*\textsuperscript[1]{% + \pdef\textsuperscript##1{% \@textsuperscript{\selectfont##1}}% \def\@textsuperscript##1{% {\m@th\ensuremath{^{\mbox{\fontsize\sf@size\z@##1}}}}}} @@ -2189,7 +2334,7 @@ % Originally there was just |\ | instead of |\mbox{ }| but some % commands of ours do redefine |\ |. % \Define\* -\DeclareRobustCommand*\*{\gmu@tilde} +\pdef\*{\gmu@tilde} % \Define\~ % \changes{v0.83}{2007/08/22}{postponed to % \cs{begin\{document\}} to avoid overwriting by a~text command and @@ -2197,9 +2342,9 @@ \AtBeginDocument{% to bypass redefinition of |\~| as a~text command % with various encodings - \DeclareRobustCommand*\texttilde{% - %%%%%% \changes{v0.86}{2007/12/11}{renamed from \bslash\texttilde\ - %%%%%% since the latter is one of~\LaTeX\ accents} + \pdef\texttilde{% + % \changes{v0.86}{2007/12/11}{renamed from \cmd\~ + % since the latter is one of~\LaTeX\ accents} \@ifnextchar/{\gmu@tilde\kern-0,1667em\relax}\gmu@tilde}} % We prepare the proper kerning for ``\texttilde/''. @@ -2208,7 +2353,7 @@ % because no one `normal' redefines the active space. But we are % \emph{not} normal and we do \emph{not} do usual things and therefore % we want a~declaration that not only will |\active|ate the space but -% also will (re)define it as the \verb*|\ | primitive. So define +% also will (re)define it as the |\ | primitive. So define % |\gmobeyspaces| that obeys this requirement. % % (This definition is repeated in \pk{gmverb}.) @@ -2298,33 +2443,33 @@ % The macro given below is taken from the \pk{multicol} package (where % its name is |\enough@room|). I~put it in this package since I~needed % it in two totally different works. -%\Define\enoughpage -\newcommand\enoughpage[1]{% +\newcommand*\enoughpage[1]{% \par \dimen0=\pagegoal \advance\dimen0 by-\pagetotal \ifdim\dimen0<#1\relax\newpage\fi} -% Two shorthands for debugging: -%\Define\tOnLine\Define\OnAtLine -\newcommand*\tOnLine{\typeout{\on@line}} - -\let\OnAtLine\on@line +%^^A % Two shorthands for debugging: +%^^A %\Define\tOnLine\Define\OnAtLine +%^^A \newcommand*\tOnLine{\typeout{\on@line}} +%^^A +%^^A \let\OnAtLine\on@line % An equality sign properly spaced: -% \Define\equals\Define\eequals -\newcommand*\equals{${}={}$} +\pdef\equals{\hunskip${}={}$\ignorespaces} % And for the \LaTeX's pseudo-code statements: -\newcommand*\eequals{${}=={}$} +\pdef\eequals{\hunskip${}=={}$\ignorespaces} + +\pdef\·{\hunskip${}·{}$\ignorespaces} -% While typesetting a~UTF-8 ls-R result I~found a~difficulty that -% follows: UTF-8 encoding is handled by the \pk{inputenc} -% package. It's O.K. so far. The UTF-8 sequences are managed using +% While typesetting a~\acro{UTF-8} ls-R result I~found a~difficulty that +% follows: \acro{UTF-8} encoding is handled by the \pk{inputenc} +% package. It's O.K. so far. The \acro{UTF-8} sequences are managed using % active chars. That's O.K. so far. While writing such sequences to % a~file, the active chars expand. You feel the blues? When the result of % expansion is read again, it sometimes is again an active char, but -% now it doesn't star a~correct UTF-8 sequence. +% now it doesn't star a~correct \acro{UTF-8} sequence. % % Because of that I~wanted to `freeze' the active chars so that they % would be |\write|n to a~file unexpanded. A~very brutal operation is @@ -2365,7 +2510,7 @@ % \Define\liturgiques % \changes{v0.76}{07/3/30}{added, or rather moved from \file{Akatyst.tex}} \newcommand*\liturgiques[1][red]{% Requires the \pk{color} package. - \gmu@RPif{color}{color}% + \gmu@RPfor{color}\color% \newcommand*\czerwo{\small\color{#1}}% environment \newcommand{\czer}[1]{\leavevmode{\czerwo##1}}% we leave % vmode because if we don't, then \env{verse}'s |\everypar| would be @@ -2375,34 +2520,36 @@ \newcommand*\nieczer[1]{\textcolor{black}{##1}}} % After the next definition you can write -% \cs{gmu@RP}\arg[options]\arg{package}\arg{csname} to get the package |#2| -% loaded with options |#1| if the csname |#3| is undefined. -\newcommand*\gmu@RPif[3][]{% +% \cs{gmu@RP}\arg[options]\arg{package}\arg{\CS} to get the package |#2| +% loaded with options |#1| if the \CS |#3| is undefined. +\newcommand*\gmu@RPfor[3][]{% \changes{v0.93}{2008/08/30}{renamed from + % \cs{gmu@RPif} and \#3 changed from a~csname to \CS} \ifx\relax#1\relax \else \def\gmu@resa{[#1]}% \fi \@xa\RequirePackage\gmu@resa{#2}} % Since inside \env{document} we cannot load a~package, we'll redefine -% |\gmu@RPif| to issue a~request before the error issued by undefined -% CS. -% \Define\gmu@RPif +% |\gmu@RPfor| to issue a~request before the error issued by undefined +% \CS. +%^^A \Define\gmu@RPfor \AtBeginDocument{% - \renewcommand*\gmu@RPif[3][]{% - \@ifundefined{#3}{% + \renewcommand*\gmu@RPfor[3][]{% + \unless\ifdefined#3% \@ifpackageloaded{#2}{}{% - \typeout{^^J! Package `#2' not loaded!!! (\on@line)^^J}}}{}}} + \typeout{^^J! Package `#2' not loaded!!! (\on@line)^^J}}% + \fi}} % It's very strange to me but it seems that $\continuum$ is not % defined in the basic math packages. It is missing at least in the -% \textit{Symbols} book.\Define\continuum -\providecommand*\continuum{\gmu@RPif{eufrak}{mathfrak}\mathfrak{c}} +% \textit{Symbols} book. +\pprovide\continuum{\gmu@RPfor{eufrak}\mathfrak\mathfrak{c}} % And this macro I~saw in the \pk{ltugproc} document class nad I~liked % it. \def\iteracro{% - \DeclareRobustCommand*\acro[1]{\gmu@acrospaces##1 \gmu@acrospaces}% + \pdef\acro##1{\gmu@acrospaces##1 \gmu@acrospaces}% } \iteracro @@ -2414,7 +2561,7 @@ \afterfi{\gmu@acrospaces#2\gmu@acrospaces}% when |#2| is nonempty, % it is ended with a~space. Adding one % more space in this line resulted in - % an infinite loop. + % an infinite loop, of course. \fi} @@ -2440,20 +2587,20 @@ \newcommand*\IMO{\acro{IMO}} \newcommand*\AKA{\acro{AKA}} -\DeclareRobustCommand*\usc[1]{{\addfontfeature{Letters=UppercaseSmallCaps}#1}} +\pdef\usc#1{{\addfontfeature{Letters=UppercaseSmallCaps}#1}} \def\uscacro{\let\acro\usc} -\newcommand*\qxenc{\fontencoding{QX}\selectfont} -% The |\copyright| command is unavailable in T1 and U~(unknown) -% encodings so provide -\newcommand*\qxcopyright{{\qxenc\copyright}} -\newcommand*\qxcopyrights{% - \let\gmu@copyright\copyright - \def\copyright{{\qxenc\gmu@copyright}}} - -\newcommand*\fixcopyright{% - \@ifXeTeX{\def\copyright{\char"00A9 }}{\qxcopyrights}} +%^^A \newcommand*\qxenc{\fontencoding{QX}\selectfont} +%^^A % The |\copyright| command is unavailable in T1 and U~(unknown) +%^^A % encodings so provide +%^^A \newcommand*\qxcopyright{{\qxenc\copyright}} +%^^A \newcommand*\qxcopyrights{% +%^^A \let\gmu@copyright\copyright +%^^A \def\copyright{{\qxenc\gmu@copyright}}} +%^^A +%^^A \newcommand*\fixcopyright{% +%^^A \@ifXeTeX{\def\copyright{\char"00A9 }}{\qxcopyrights}} % Probably the only use of it is loading \pk{gmdocc.cls} `as second @@ -2468,19 +2615,13 @@ % the error message. -% Cf.\ \TeXbook exc. 11.6.\par +% Cf.\ \TeXbook\ exc.\ 11.6.\par % A~line from \LaTeX: % \[|% \check@mathfonts\fontsize\sf@size\z@\math@fontsfalse\selectfont|\] % didn't work as I~would wish: in a~|\footnotesize|'s scope it still % was |\scriptsize|, so too large. % \changes{v0.81}{2007/05/13}{moved here from \pk{pmlectionis.cls}} -%^^A% From my first love with infinite stretchabilities -%^^A~ \def\myvfil#1/{\vskip0pt plus#1fil\relax} -%^^A~ \def\myvfill#1/{\vskip0pt plus#1fill\relax} -%^^A~ \def\myhfil#1/{\hskip0pt plus#1fil\relax} -%^^A~ \def\myhfill#1/{\hskip0pt plus#1fill\relax} - \def\gmu@dekfraccsimple#1/#2{\leavevmode\kern.1em \raise.5ex\hbox{\udigits\smaller[3]#1}\gmu@numeratorkern \dekfraccslash\gmu@denominatorkern @@ -2513,7 +2654,7 @@ % \subdivision{\cs{@ifempty}} -\long\def\@ifempty#1#2#3{% +\long\pdef\@ifempty#1#2#3{% \def\gmu@reserveda{#1}% \ifx\gmu@reserveda\@empty\afterfi{#2}% \else\afterfi{#3}\fi @@ -2685,7 +2826,7 @@ \par\global\napapierkicore}{% \par\dimen\z@=\baselineskip \global\baselineskip=\dimen\z@}% so that you can use |\endnapapierki| - % in interlacing environments + % in interlacing environments. \newcount\gmu@luzniej @@ -2715,55 +2856,65 @@ % beginning of a~line as the mark of a~dialogue. % \Define\pauza\Define\pauzacore\Define\shortpauza \ifdefined\XeTeXversion +\def\pauza@skipcore{\hskip0.2em plus0.1em\relax + \pauzacore\hskip.2em plus0.1em\relax\ignorespaces}% +% +\def\ppauza@skipcore{\unskip\penalty10000\hskip0.2em plus0.1em\relax + –\hskip.2em plus0.1em\ignorespaces} +% \AtBeginDocument{% to be independent of moment of loading of \pk{polski}. - \DeclareRobustCommand*\—{% + \pdef\—{% \ifhmode \unskip\penalty10000 \afterfi{% - \@ifnextspace{\hskip0.2em plus0.1em\relax - \pauzacore\hskip.2em plus0.1em\relax\ignorespaces}% - {\pauzacore\penalty\hyphenpenalty\hskip\z@}}% + \@ifnextspace{\pauza@skipcore}% + {\@ifnextMac\pauza@skipcore{% + \pauzacore\penalty\hyphenpenalty\hskip\z@}}}% \else - % According to \tytul{Instrukcja technologiczna. Skład ręczny ^^B + % According to \tytul{Instrukcja technologiczna.\ Skład ręczny ^^B % i~maszynowy} the dialogue dash should be followed by a~rigid % hskip of \dekfracc1/2\,em. \leavevmode\pauzacore\penalty10000\hskip0,5em\ignorespaces \fi}% % The next command's name consists of letters and therefore it eats % any spaces following it, so |\@ifnextspace| would always be false. - \DeclareRobustCommand*\pauza{% + \pdef\pauza{% \ifhmode \unskip\penalty10000 \hskip0.2em plus0.1em\relax \pauzacore\hskip.2em plus0.1em\relax\ignorespaces% \else - % According to \tytul{Instrukcja technologiczna. Skład ręczny ^^B - % i~maszynowy} the dialogue dash should be followed by a~rigid - % hskip of \dekfracc1/2\,em. - \leavevmode\pauzacore\penalty10000\hskip0,5em\ignorespaces + \pauzadial \fi}% + % + % According to \tytul{Instrukcja technologiczna.\ Skład ręczny ^^B + % i~maszynowy} the dialogue dash should be followed by a~rigid + % hskip of \dekfracc1/2\,em. + \pdef\pauzadial{% + \leavevmode\pauzacore\penalty10000\hskip0,5em\ignorespaces} + % % And a~version with no space at the left, to begin a~|\noindent| % paragraph or a~dialogue in quotation marks: - \DeclareRobustCommand*\lpauza{% + \pdef\lpauza{% \pauzacore\hskip.2em plus0.1em\ignorespaces}% % % We define |\ppauza| as an en dash surrounded with thin stretchable % spaces and sticking to the upper line or bare but discretionary % depending on the next token being space${}_10$. Of course you'll - % never get such a~space after a~literal CS so an explicit |\ppauza| + % never get such a~space after a~literal \CS so an explicit |\ppauza| % will always result with a~bare discretionary en dash, but if we % |\let–\ppauza|… - \DeclareRobustCommand*\–{% + \pdef\–{% \ifvmode \PackageError{gmutils}{% command \bslash ppauza (en dash) not intended for vmode.}{% Use \bslash ppauza (en dash) only in number and numeral ranges.}% \else \afterfi{% - \@ifnextspace{\unskip\penalty10000\hskip0.2em plus0.1em\relax - –\hskip.2em plus0.1em\ignorespaces}{\unskip\discretionary{–}{–}{–}}}% + \@ifnextspace{\ppauza@skipcore}{% + \@ifnextMac\ppauza@skipcore{\unskip\discretionary{–}{–}{–}}}}% \fi}% % - \DeclareRobustCommand*\ppauza{% + \pdef\ppauza{% \ifvmode \PackageError{gmutils}{% command \bslash ppauza (en dash) not intended for vmode.}{% Use \bslash ppauza (en dash) only in number and numeral ranges.}% @@ -2811,158 +2962,169 @@ \def\ahyphen{\let-\gmu@dywiz\catcode`\-\active}} -% To get current time. Works in \eTeX s, icluding \XeTeX. +% To get current time. Works in \eTeX s, icluding \XeTeX. |\czas| +% typesets \czas\ and |\czas[:]| typesets \czas[:]. \newcommand*\czas[1][.]{% \the\numexpr(\time-30)/60\relax#1% \@tempcnta=\numexpr\time-(\time-30)/60*60\relax \ifnum\@tempcnta<10 0\fi\the\@tempcnta} -% To push the stuff up to the header and have the after heading skip -% after the stuff - -\long\def\przeniesvskip#1{% - \edef\gmu@LastSkip{\the\lastskip}% - \vskip-\gmu@LastSkip\relax - \vspace*{0sp}% - #1\vskip\gmu@LastSkip\relax} +%^^A % To push the stuff up to the header and have the after heading skip +%^^A % after the stuff +%^^A +%^^A \long\def\przeniesvskip#1{% +%^^A \edef\gmu@LastSkip{\the\lastskip}% +%^^A \vskip-\gmu@LastSkip\relax +%^^A \vspace*{0sp}% +%^^A #1\vskip\gmu@LastSkip\relax} \@ifXeTeX{\chardef\textbullet="2022 }{\def\textbullet{$\bullet$}} \newenvironment*{tytulowa}{\newpage}{\par\thispagestyle{empty}\newpage} -% Nazwisko na stronę redakcyjną +% To typeset peoples' names on page 4 (the editorial page): \def\nazwired{\quad\textsc} % \division{Settings for mathematics in main font} -% I~used this terrible macros while typesetting E.~Szarzyński's -% \textit{Letters} in 2008. -\def\gmath{% - \def\do##1{\edef##1{{\@nx\mathit{\@xa\@gobble\string##1}}}}% - \do\A \do\a \do\B \do\b \do\c \do\C\do\d \do\D \do\e \do\E\do\f - \do\F\do\g\do\G \do\i\do\I \do\j\do\J \do\k\do\K \do\l \do\L \do\m - \do\M \do\n \do\N \do\P \do\p \do\q \do\Q \do\R \do\r - \let\sectionsign\S \do\S \do\s \do\T \do\t \do\u \do\U \do\v\do\V - \do\w \do\W \do\x \do\X \do\Y \do\y \do\z\do\Z - % - \def\do##1{\edef##1{{\@nx\mathrm{\@xa\@gobble\string##1}}}}% - \do\0\do\1\do\2\do\3\do\4\do\5\do\6\do\7\do\8\do\9% - % - \relaxen\do - \newcommand*\do[4][\mathit]{\def##2{##3{##1{\char"##4}}}}% - \do\alpha{}{03B1}% - \do[\mathrm]\Delta{}{0394}% - \do\varepsilon{}{03B5}% - \do\vartheta{}{03D1}% - \do\nu{}{03BD}% - \do\pi{}{03C0}% - \do\phi{}{03D5}% - \do[\mathrm]\Phi{}{0424}% - \do\sigma{}{03C3}% - \do\varsigma{}{03DA}% - \do\psi{}{03C8}% - \do\omega{}{03C9}% - \do\infty{}{221E}% - \do[\mathrm]\neg{\mathbin}{00AC}% - \do[\mathrm]\neq{\mathrel}{2260}% - \do\partial{}{2202}% - \do[\mathrm]\pm{}{00B1}% - \do[\mathrm]\pm{\mathbin}{00B1}% - \do[\mathrm]\sim{\mathrel}{007E}% - % - \def\do##1##2##3{\def##1{% - \mathop{\mathchoice{\hbox{% - \rm - \edef\gma@tempa{\the\fontdimen8\font}% - \larger[3]% - \lower\dimexpr(\fontdimen8\font-\gma@tempa)/2 % - \hbox{##2}}}{\hbox{% - \rm - \edef\gma@tempa{\the\fontdimen8\font}% - \larger[2]% - \lower\dimexpr(\fontdimen8\font-\gma@tempa)/2 % - \hbox{##2}}}% - {\mathrm{##2}}{\mathrm{##2}}}##3}}% - \do\sum{\char"2211}{}% - \do\forall{\gma@quantifierhook \rotatebox[origin=c]{180}{A}% - \setbox0=\hbox{A}\setbox2=\hbox{\scriptsize x}% - \kern\dimexpr\ht2/3*2 -\wd0/2\relax}{\nolimits}% - \do\exists{\rotatebox[origin=c]{180}{\gma@quantifierhook E}}\nolimits% - % - \def\do##1##2##3{\def##1{##3{% - \mathchoice{\hbox{\rm##2}}{\hbox{\rm##2}}% - {\hbox{\rm\scriptsize##2}}{\hbox{\rm\tiny##2}}}}}% +% I~used these terrible macros while typesetting E.~Szarzyński's +% \textit{Letters} in 2008. The \TextUsage\gmath\ declaration defines +% one-letter an one-digt \CSes etc., the \TextUsage\garamath\ +% declaration redefines the quantifiers and is more Garamond Premier +% Pro-specific. +\pdef\gmath{% + \everymath{% + \def\do##1{\edef##1{{\@nx\mathit{\@xa\@gobble\string##1}}}}% + \do\A \do\a \do\B \do\b \do\c \do\C\do\d \do\D \do\e \do\E\do\f + \do\F\do\g\do\G \do\i\do\I \do\j\do\J \do\k\do\K \do\l \do\L \do\m + \do\M \do\n \do\N \do\P \do\p \do\q \do\Q \do\R \do\r + \let\sectionsign\S \do\S \do\s \do\T \do\t \do\u \do\U \do\v\do\V + \do\w \do\W \do\x \do\X \do\Y \do\y \do\z\do\Z + % + \def\do##1{\edef##1{{\@nx\mathrm{\@xa\@gobble\string##1}}}}% + \do\0\do\1\do\2\do\3\do\4\do\5\do\6\do\7\do\8\do\9% + % + %^^A\typeout{@@@@ przeszło 2897}% + \relaxen\do + \newcommand*\do[4][\mathit]{\def##2{##3{##1{\char"##4}}}}% + \do\alpha{}{03B1}% + \do[\mathrm]\Delta{}{0394}% + \do\varepsilon{}{03B5}% + \do\vartheta{}{03D1}% + \do\nu{}{03BD}% + \do\pi{}{03C0}% + \do\phi{}{03D5}% + \do[\mathrm]\Phi{}{0424}% + \do\sigma{}{03C3}% + \do\varsigma{}{03DA}% + \do\psi{}{03C8}% + \do\omega{}{03C9}% + \do\infty{}{221E}% + \do[\mathrm]\neg{\mathbin}{00AC}% + \do[\mathrm]\neq{\mathrel}{2260}% + \do\partial{}{2202}% + \do[\mathrm]\pm{}{00B1}% + \do[\mathrm]\pm{\mathbin}{00B1}% + \do[\mathrm]\sim{\mathrel}{007E}% + % + \def\do##1##2##3{\def##1{% + \mathop{\mathchoice{\hbox{% + \rm + \edef\gma@tempa{\the\fontdimen8\font}% + \larger[3]% + \lower\dimexpr(\fontdimen8\font-\gma@tempa)/2 % + \hbox{##2}}}{\hbox{% + \rm + \edef\gma@tempa{\the\fontdimen8\font}% + \larger[2]% + \lower\dimexpr(\fontdimen8\font-\gma@tempa)/2 % + \hbox{##2}}}% + {\mathrm{##2}}{\mathrm{##2}}}##3}}% + \do\sum{\char"2211}{}% + \do\forall{\gma@quantifierhook \rotatebox[origin=c]{180}{A}% + \setbox0=\hbox{A}\setbox2=\hbox{\scriptsize x}% + \kern\dimexpr\ht2/3*2 -\wd0/2\relax}{\nolimits}% + \do\exists{\rotatebox[origin=c]{180}{\gma@quantifierhook E}}\nolimits% + % + \def\do##1##2##3{\def##1{##3{% + \mathchoice{\hbox{\rm##2}}{\hbox{\rm##2}}% + {\hbox{\rm\scriptsize##2}}{\hbox{\rm\tiny##2}}}}}% \do\vee{\rotatebox[origin=c]{90}{<}}\mathbin \do\wedge{\rotatebox[origin=c]{-90}{<}}\mathbin \do\leftarrow{\char"2190}\mathrel \do\rightarrow{\char"2192}\mathrel \do\leftrightarrow{\char"2190\kern-0,1em \char"2192}\mathrel % - \def\do##1##2##3{% - \catcode`##1=12\relax - \scantokens{\mathcode`##1="8000\relax - \foone{\catcode`##1=\active}{\def##1}{##3{% - \mathchoice{\hbox{\rm##2}}{\hbox{\rm##2}}% - {\hbox{\rm\scriptsize##2}}{\hbox{\rm\tiny##2}}}}% - \ignorespaces}}% to eat the lineend (scantokens acts as |\read| - % icluding line end. - \do..\mathpunct \do,,\mathpunct \do……\mathpunct - \do((\mathopen - \@ifundefined{resetMathstrut@}{}{% an error occured `bad mathchar - % etc.'\ because \pk{amsmath.sty} doesn't take account of - % a~possibility of |(| %) - % being math-active. - \def\resetMathstrut@{% - \setbox\z@\hbox{% - % |%% \mathchardef\@tempa\mathcode`\(\relax| - % |%% \def\@tempb##1"##2##3{\the\textfont"##3\char"}%| - % |%% \expandafter\@tempb\meaning\@tempa \relax| - (}% - \ht\Mathstrutbox@\ht\z@ \dp\Mathstrutbox@\dp\z@ - }}% - \do))\mathclose - \do[[\mathopen\do]]\mathclose - \do-{\char"2212}\mathbin \do++\mathbin \do==\mathrel \do××\mathbin - \do::\mathbin \do··\mathbin \do//\mathbin \do<<\mathrel - \do>>\mathrel - % - \def\do##1##2##3{\def##1####1{##2{\hbox{% - \rm - \setbox0=\hbox{####1}% - \edef\gma@tempa{\the\ht0}% - \edef\gma@tempb{\the\dp0}% - ##3% - \setbox0=\hbox{####1}% + \gmu@storespecials[\do\`\do\"\do\=]% \label{@storespecials} + \gmu@septify[\do\`12\do\"12\do\=12]% + \def\do##1##2##3{% + \catcode`##1=12\relax + \scantokens{\mathcode`##1="8000\relax + \foone{\catcode`##1=\active}{\def##1}{##3{% + \mathchoice{\hbox{\rm##2}}{\hbox{\rm##2}}% + {\hbox{\rm\scriptsize##2}}{\hbox{\rm\tiny##2}}}}% + \ignorespaces}}% to eat the lineend (scantokens acts as |\read| + % icluding line end). + \do..\mathpunct \do,,\mathpunct \do……\mathpunct + \do((\mathopen%^^A)) + \@ifundefined{resetMathstrut@}{}{% an error occured `bad mathchar + % etc.'\ because \pk{amsmath.sty} doesn't take account of + % a~possibility of `|(|' %^^A) + % being math-active. + \def\resetMathstrut@{% + \setbox\z@\hbox{% \label{gmu:leading space} \nostanza \gmdnoindent + % |%% \mathchardef\@tempa\mathcode`\(\relax|\\ + % |%% \def\@tempb##1"##2##3{\the\textfont"##3\char"}%|\\ + % |%% \expandafter\@tempb\meaning\@tempa \relax|\nostanza + (%^^A) + }% + \ht\Mathstrutbox@\ht\z@ \dp\Mathstrutbox@\dp\z@ + }}%^^A(( + \do))\mathclose + \do[[\mathopen\do]]\mathclose + \do-{\char"2212}\mathbin \do++\mathbin \do==\mathrel \do××\mathbin + \do::\mathbin \do··\mathbin \do//\mathbin \do<<\mathrel + \do>>\mathrel + \gmu@restorespecials + % + \def\do##1##2##3{\def##1####1{##2{\hbox{% + \rm + \setbox0=\hbox{####1}% + \edef\gma@tempa{\the\ht0}% + \edef\gma@tempb{\the\dp0}% + ##3% + \setbox0=\hbox{####1}% \lower\dimexpr(\ht0 + \dp0)/2-\dp0 -((\gma@tempa+\gma@tempb)/2-\gma@tempb) % \box0}}}}% - \do\bigl\mathopen\larger - \do\bigr\mathclose\larger - \do\Bigl\mathopen\largerr - \do\Bigr\mathclose\largerr - \do\biggl\mathopen{\larger[3]}% - \do\biggr\mathclose{\larger[3]}% - \do\Biggl\mathopen{\larger[4]}% - \do\Biggr\mathclose{\larger[4]}% - % - \def\do##1##2{\def##1{\ifmmode##2{\mathchoice - {\hbox{\rm\char`##1}}{\hbox{\rm\char`##1}}% - {\hbox{\rm\scriptsize\char`##1}}{\hbox{\rm\tiny\char`##1}}}% - \else\char`##1\fi}}% -\StoreMacros{\{\}}% - \do\{\mathopen - \do\}\mathclose - % - \def\={\mathbin{=}}% - \def\neqb{\mathbin{\neq}}% - \def\do##1{\edef\gma@tempa{% - \def\@xa\@nx\csname \@xa\gobble\string##1r\endcsname{% - \@nx\mathrel{\@nx##1}}}% - \gma@tempa}% - \do\vee \do\wedge \do\neg - \def\fakern{\mkern-3mu}% - \thickmuskip=8mu plus 4mu\relax - % - \gma@gmathhook -}% of def gmath + \do\bigl\mathopen\larger + \do\bigr\mathclose\larger + \do\Bigl\mathopen\largerr + \do\Bigr\mathclose\largerr + \do\biggl\mathopen{\larger[3]}% + \do\biggr\mathclose{\larger[3]}% + \do\Biggl\mathopen{\larger[4]}% + \do\Biggr\mathclose{\larger[4]}% + % + \def\do##1##2{\def##1{\ifmmode##2{\mathchoice + {\hbox{\rm\char`##1}}{\hbox{\rm\char`##1}}% + {\hbox{\rm\scriptsize\char`##1}}{\hbox{\rm\tiny\char`##1}}}% + \else\char`##1\fi}}% + %^^A \StoreMacros{\{\}}% + \do\{\mathopen + \do\}\mathclose + % + \def\={\mathbin{=}}% + \def\neqb{\mathbin{\neq}}% + \def\do##1{\edef\gma@tempa{% + \def\@xa\@nx\csname \@xa\gobble\string##1r\endcsname{% + \@nx\mathrel{\@nx##1}}}% + \gma@tempa}% + \do\vee \do\wedge \do\neg + \def\fakern{\mkern-3mu}% + \thickmuskip=8mu plus 4mu\relax + % + \gma@gmathhook + }% of |\everymath|. + }% of |\def\gmath|. \emptify\gma@quantifierhook \def\quantifierhook#1{% @@ -3010,7 +3172,8 @@ % \division{Typesetting dates in my memoirs} -% A~date in the |YYYY-MM-DD| format we'll transform into DD mmmm YYYY +% A~date in the |YYYY-MM-DD| format we'll transform into +% `\acro{DD mmmm YYYY}' % format or we'll just typeset next two tokens/|{...}| if the % arguments' string begins with |--|. The latter option is provided to % preserve compatibility with already used macros and to avoid @@ -3142,7 +3305,7 @@ % Dates for memoirs to be able to typeset them also as diaries. \newif\ifdate -%|%\newcounter{dateinsection}[section]| +%^^A|%\newcounter{dateinsection}[section]| \newcommand*{\data}[1]{% \ifdate\gmu@testdash#1\ifgmu@dash\datef#1\else\datefsl#1\fi\fi} @@ -3166,26 +3329,27 @@ \let\thedate\ldate -\DeclareRobustCommand*\zwrobcy[1]{\emph{#1}} %ostinato, allegro con moto, +\pdef\zwrobcy#1{\emph{#1}} %ostinato, allegro con moto, %garden party etc., także kompliment -\DeclareRobustCommand*\tytul[1]{\emph{#1}} +\pdef\tytul#1{\emph{#1}} -% Maszynopis w~świecie justowanym zrobi delikatną chorągiewkę. +% Maszynopis w~świecie justowanym zrobi delikatną +% chorągiewkę. (The \env{maszynopis} environment will make a~delicate +% ragged right if called in a~justified world.) \newenvironment{maszynopis}[1][]{#1\ttfamily - \hyphenchar\font=45\relax% to przypisanie jest globalne do fontu. + \hyphenchar\font=45\relax% this assignment is global for the font. \@tempskipa=\glueexpr\rightskip+\leftskip\relax \ifdim\gluestretch\@tempskipa=\z@ \tolerance900 - % sprawdziło się przy tolerancji 900 + % \nostanza it worked well with tolerance \equals 900.\nostanza \advance\rightskip by\z@ plus0,5em\relax\fi - \fontdimen3\font=\z@% zabraniamy rozciągania odstępów, ale - %|% \fontdimen4\font=\z@| dopuszczamy ich skurczenie - \hyphenpenalty0 % żeby nie stresować \TeX a: w~maszynopisie - % ten wspaniały algorytm dzielenia akapitu powinien - % być wyłączony, a~każdy wiersz łamany na ostatnim - % dopuszczalnym miejscu przełamania. + \fontdimen3\font=\z@% we forbid stretching spaces…\par\nostanza\gmdnoindent + %|% \fontdimen4\font=\z@| but allow shrinking them.\nostanza + \hyphenpenalty0 % not to make \TeX\ nervous: in a~typewriting this + % marvellous algorithm of hyphenation should be turned off and every + % line broken at the last allowable point. \StoreMacro\pauzacore \def\pauzacore{-\rlap{\kern-0,3em-}-}% }{\par} @@ -3200,6 +3364,40 @@ \advance\parfillskip by 0sp plus 1fil\relax \let\\\@normalcr} +% To conform Polish recommendation for typesetting saying that +% a~paragraph's last line leaving less than |\parindent| should be +% stretched to fill the text width:\nostanza +\newcommand*\fullpar{% + \hunskip + \bgroup\parfillskip\z@skip\par\egroup} + +% To conform Polish recommendation for typesetting saying that the +% last line of a~paragraph has to be 2|\parindent| long at least. The +% idea is to set \cs{parfillskip} naturally rigid and long as +% |\textwidth-2\parindent|, but that causes non-negligible shrinking +% of the +% interword spaces so we provide a~declaration to catch the proper +% glue where the parindent is set (e.g.\ in footnotes parindent is 0\,pt) +\newcommand*\twoparinit{% the name stands for `\emph{last} paragraph + % line's length \emph{min}imum \emph{two} \incs{parindent}. + \edef\twopar{% + \hunskip% it's \incs{protected}, remember? + \bgroup + \parfillskip=\the\glueexpr + \dimexpr\textwidth-2\parindent\relax + minus\dimexpr\textwidth-2\parindent\relax + \relax% to delimit |\glueexpr|. + \relax% to delimit the assignment. + \par\egroup + }% of \incs{gmu@twoparfill} + % ^^A \gmu@lastmintwo + % ^^A \ampulexdef\@arrayparboxrestore\parfillskip\lineskip{% + % ^^A \gmu@lastmintwo\lineskip}% we replace original setting of + % ^^A % \incs{parfillskip} by ours in \inenv{minipage} and \incs{footnote(text)}. +}% of \cs{twoparinit}. + + + % For dati under poems. @@ -3211,9 +3409,9 @@ \let\\\linebreak \footnotesize #1}}} -\newcommand\whern[1]{% - \vskip\whernskip - \wherncore{#1}} +\def\whern{% + \@ifstar\wherncore{\vskip\whernskip\wherncore}} + \newskip\whernskip \whernskip2\baselineskip minus 2\baselineskip\relax @@ -3224,11 +3422,170 @@ % \subdivision{Minion and Garamond Premier kerning and ligature fixes} -% „Ws” nie będzie robiło długiego „s”, bo źle wygląda przy „W” -\DeclareRobustCommand*\Ws{W\kern-0,08em\penalty10000\hskip0sp\relax +%»Ws« shall not make long »s« because long »s« looks ugly next to »W«. + +\def\gmu@tempa{\kern-0,08em\penalty10000\hskip0sp\relax s\penalty10000\hskip0sp\relax} -\DeclareRobustCommand*\Wz{W\kern-0,05em\penalty10000\hskip0sp\relax z} +\protected\edef\Vs{V\gmu@tempa} + +\protected\edef\Ws{W\gmu@tempa} + +\pdef\Wz{W\kern-0,05em\penalty10000\hskip0sp\relax z} + +% \subdivision{A~left-slanted font} Or rather a~left Italic \emph{and} +% left slanted font. In both cases we sample the skewness of the +% itshape font of the current family, we reverse it and apply to +% \cs{itshape} in \cs{litshape} and +% \cs{textlit} and to \cs{sl} in \cs{lsl}. Note +% a~slight asymmetry: \cs{litshape} and \cs{textlit} take the current +% family while \cs{lsl} and \cs{textlsl} the basic Roman family and +% basic (serif) Italic font. Therefore we introduce the \cs{lit} +% declaration for symmetry, that declaration left-slants \cs{it}. +% +% {\leftslanting +% I~introduced them first while typesetting E.~Szarzyński's +% \ty{Letters} to follow his (elaborate) hand-writing and now I copy +% them here when need left Italic for his \ty{Albert Camus' ^^B +% \ty{The Plague}} to avoid using bold font.\par} +% +% Of course it's rather esoteric so I~wrap all that in a~declaration. + + +\def\leftslanting{% + \pdef\litshape{% \changes{v0.93}{2008/08/22}{copied here from + % E.~Szarzyński's \ty{The Letters}} + \itshape + \@tempdima=-2\fontdimen1\font + \advance\leftskip by\strip@pt\fontdimen1\font ex % to assure al + % least the lowercase letters not to overshoot to the (left) + % margin. Note this has any effect only if there is a~\incs{par} in + % the scope. + \edef\gmu@tempa{% + \@nx\addfontfeature{RawFeature={slant=\strip@pt\@tempdima}}}%^^B + % \ilrr when not \incs{edef}ed, it caused an error, which is + % perfectly understandable. + \gmu@tempa}% + % + % + \pdef\textlit##1{% \changes{v0.93}{2008/08/22}{added} + {\litshape##1}}% + % + \pdef\lit{\rm\litshape}% + % + % + \pdef\lsl{{\it + % \changes{v0.93}{2008/08/22}{copied here from E.~Szarzyński's \ty{The + % Letters}} + \@tempdima=-\fontdimen1\font + \xdef\gmu@tempa{% + \@nx\addfontfeature{RawFeature={slant=\strip@pt\@tempdima}}}}% + \rm % Note in this declaration we left-slant the basic Roman font + % not the itshape of the current family. + \gmu@tempa}% + % + % Now we can redefine \cs{em} and \cs{emph} to use left Italic for + % nested emphasis. In Polish typesetting there is bold in nested + % emphasis as I~have heard but we don't like bold since it perturbs + % homogeneous greyness of a~page. So we introduce a~three-cycle + % instead of two-: Italic, left Italic, upright. + % + \pdef\em{%\changes{v0.93}{2008/08/22}{added} + \ifdim\fontdimen1\font=\z@ \itshape + \else + \ifdim\fontdimen1\font>\z@ \litshape + \else \upshape + \fi + \fi}% + % + % + \pdef\emph##1{% \changes{v0.93}{2008/08/22}{added} + {\em##1}}% +}% of \cs{leftslanting}. + +%\subdivision{Thousand separator} + +\pdef\thousep#1{% a~macro that'll put the thousand separator between + % every two three-digit groups.\par\nostanza + % First we check whether we have at least five digits. + %\changes{v0.93}{2008/08/23}{added} + \gmu@thou@fiver#1\relax\relax\relax\relax\relax% we put five + % \incs{relax}es after the parameter to ensure the string will meet + % \incs{gmu\+@\+thou\+@\+fi\+ver}'s definition.\ilrr + \gmu@thou@fiver{#1}{% if more than five digits: + \emptify\gmu@thou@put + \relaxen\gmu@thou@o\relaxen\gmu@thou@i\relaxen\gmu@thou@ii + \@tempcnta\z@ + \gmu@thou@putter#1\gmu@thou@putter + \gmu@thou@put + }} + +\def\gmu@thou@fiver#1#2#3#4#5\gmu@thou@fiver#6#7{% + \ifx\relax#5\relax\afterfi{#6}\else\afterfi{#7}\fi} + +\def\gmu@thou@putter#1#2{% we are sure to have at least five tokens + % before the guardian \incs{gmu@thou@putter}. + \advance\@tempcnta\@ne + \@tempcntb\@tempcnta + \divide\@tempcntb3\relax + \@tempcnta=\numexpr\@tempcnta-\@tempcntb*3 + \edef\gmu@thou@put{\gmu@thou@put#1% + \ifx\gmu@thou@putter#2\else + \ifcase\@tempcnta + \gmu@thou@o\or\gmu@thou@i\or\gmu@thou@ii% all three + % \CSes are yet \incs{relax} so we may put them in + % an \incs{edef} safely.\ilrr + \fi + \fi}% of \cs{edef} + \ifx\gmu@thou@putter#2% if we are at end of the digits… + \edef\gmu@tempa{% + \ifcase\@tempcnta + \gmu@thou@o\or\gmu@thou@i\or\gmu@thou@ii + \fi}% + \@xa\let\gmu@tempa\gmu@thousep% … we set the proper \CS… + \else% or … + \afterfi{% iterate. + \gmu@thou@putter#2}% of \cs{afterfi} + \fi% of if end of digits. +}% of \cs{gmu@thou@putter}. + +\def\gmu@thousep{\,}% in Polish the recommended thousand separator is +% a~thin space. +% +% So you can type |\thousep{7123123123123}| to get +% \thousep{7123123123123}. But what if you want to apply |\thousep| to +% a~count register or a~|\numexpr|? You should write one or two +% |\expandafter|s and |\the|. Let's do it only once for all: + +\pdef\xathousep#1{\@xa\thousep\@xa{\the#1}} +% Now write |\xathousep{\numexpr 10*9*8*7*6*120}| to get +% \xathousep{\numexpr 90*8*7*6*120}. + + +% \subdivision{Storing and restoring the catcodes of specials} + +\newcommand*\gmu@storespecials[1][]{% we provide a~possibility of + % adding stuff. For usage see line \ref{@storespecials}. + \def\do##1{\catcode`\@nx##1=\the\catcode`##1\relax}% + \edef\gmu@restorespecials{\dospecials\do\^^M#1}} + +\newcommand*\gmu@septify[1][]{% restoring the standard catcodes of specials. The + % name is the opposite of `sanitize' ^^A( + % :-)\,. It restores also the original catcode of \inverb|^^M| + \def\do{\relax\catcode`}% + \do\ 10\do\\0\do\{1\do\}2\do\$3\do\&4% + \do\#6\do\^7\do\_8\do\%14\do\~13\do\^^M5#1\relax} + +% \subdivision{\pk{hyperref}'s \cs{nolinkurl} into \cs{url*}} + +\def\urladdstar{% + \AtBeginDocument{% + \@ifpackageloaded{hyperref}{% + \StoreMacro\url + \def\url{\@ifstar{\nolinkurl}{\storedcsname{url}}}% + }{}}} + +\@onlypreamble\urladdstar \endinput @@ -3247,7 +3604,7 @@ % to the latter} % % \changes{v0.76}{2007/03/10}{A~`fixing' of \cs{dots} was rolled back -% since it came out they were O.K. and that was the QX encoding that +% since it came out they were \acro{O.K.} and that was the \acro{QX} encoding that % prints them very tight} % % \changes{v0.77}{2007/04/13}{\cs{afterfi} \& pals made two-argument @@ -3262,7 +3619,7 @@ % with \pk{gmdoc} by adding an \cs{ifdim} test} % % \changes{v0.87}{2008/08/03}{the package goes \eTeX\ even more, -% making use of \cs{ifdefined} and the code using\acro{UTF-8} chars is +% making use of \cs{ifdefined} and the code using \acro{UTF-8} chars is % wrapped in a~\XeTeX-condition} % % \changes{v0.89}{2008/08/04}{removed obsolete adjustment of \pk{pgf} @@ -3273,6 +3630,11 @@ % \cs{visiblespace} \cs{let} to \cs{xxt@visiblespace} of \pk{xltxtra} % if available. The documentation driver integrated with the \file{.sty} file} % +% \changes{v0.93}{2008/08/21}{A~couple of \cs{DeclareRobustCommand*} +% changed to \cs{pdef}} +% +% \changes{v0.93}{2008/08/29}{The numerical macros commented out as +% obsolete and never really used} % % \PrintChanges\PrintIndex %\NoEOF |