diff options
Diffstat (limited to 'Master/texmf-dist/tex/luatex/optex/lists.opm')
-rw-r--r-- | Master/texmf-dist/tex/luatex/optex/lists.opm | 110 |
1 files changed, 0 insertions, 110 deletions
diff --git a/Master/texmf-dist/tex/luatex/optex/lists.opm b/Master/texmf-dist/tex/luatex/optex/lists.opm deleted file mode 100644 index fe349c3796e..00000000000 --- a/Master/texmf-dist/tex/luatex/optex/lists.opm +++ /dev/null @@ -1,110 +0,0 @@ -%% This is part of OpTeX project, see http://petr.olsak.net/optex - -\_codedecl \begitems {Lists: begitems, enditems <2020-04-21>} % preloaded in format - - \_doc ----------------------------- - \`\_aboveliskip` is used above the list of items,\nl - \`\_belowliskip` is used below the list of items and\nl - \`\_interliskip` is used between items.\nl - \`\_listskipA` is used as `\listskipamount` at level 1 of items.\nl - \`\_listskipB` is used as `\listskipamount` at other levels.\nl - \`\_setlistskip` sets the skip dependent on the current level of items - \_cod ----------------------------- - -\_def\_aboveliskip {\_removelastskip \_penalty-100 \_vskip\_listskipamount} -\_def\_belowliskip {\_penalty-200 \_vskip\_listskipamount} -\_def\_interliskip {} -\_def\_listskipA {\_medskipamount} -\_def\_listskipB {0pt plus.5\smallskipamount} - -\_def\_setlistskip {% - \_ifnum \_ilevel = 1 \_listskipamount = \_listskipA \_relax - \_else \_listskipamount = \_listskipB \_relax - \_fi} - - \_doc ----------------------------- - The \`\itemnum` is locally reset to zero in each group declared by - `\begitems`. So nested lists are numbered independently. User can set - initial value of `\itemnum` to another value after `\beitems` if he/she want. - \nl - Each level of nested lists is indented by new `\iindent` from left. - Default item mark is `\_printitem`. - \nl - The \`\begitems` runs `\_aboveliskip` only if we are not near below a title, - where a vertical skip is placed already and where the `\penalty` 11333 is. - It activates `*` and defines it as \`\_startitem`. - \nl - The \`\enditems` runs `\_isnextchar\_par{}{\_noindent}` thus the next - paragraph is without indentation if there is no empty line between - the list and this paragraph (it is similar behavior as after display math). - \_cod ----------------------------- - -\_newcount\_itemnum \_itemnum=0 -\_newtoks\_printitem - -\_def\_begitems{\_par - \_bgroup - \_advance \_ilevel by1 - \_setlistskip - \_ifnum\_lastpenalty<10000 \_aboveliskip \_fi - \_itemnum=0 \_adef*{\_startitem} - \_advance\_leftskip by\_iindent - \_printitem=\_defaultitem - \_the\_everylist \_relax -} -\_def\_enditems{\_par\_belowliskip\_egroup \_isnextchar\_par{}{\_noindent}} - -\_def\_startitem{\_par \_ifnum\_itemnum>0 \_interliskip \_fi - \_advance\_itemnum by1 - \_the\_everyitem \_noindent\_llap{\_the\_printitem}\_ignorespaces -} -\_public \begitems \enditems \itemnum ; - - \_doc ---------------------------- - \`\novspaces` sets \`\listskipamount` to 0pt. - \_cod ---------------------------- - -\_def\_novspaces {\_removelastskip \_listskipamount=0pt \_relax} -\_public \novspaces ; - - \_doc ----------------------------- - Various item marks are saved in `\_item:<letter>` macros. - You can re-define then or define more such macros. - The \`\style` `<letter>` does \`\_printitem``={\_item:<letter>}`. - More exactly: \^`\begitems` does `\_printitem=`\^`\defaultitem` first, - then \`\style` `<letter>` does \`\_printitem``={\_item:<letter>}` - when it is used and finally, `\_startitem` alias `*` uses `\_printitem`. - \_cod ----------------------------- - -\_def\_style#1{% - \_ifcsname _item:#1\_endcsname \_printitem=\ea{\_csname _item:#1\_endcsname}% - \_else \_printitem=\_defaultitem \_fi -} -\_sdef{_item:o}{\_raise.4ex\_hbox{$\_scriptscriptstyle\_bullet$} } -\_sdef{_item:-}{- } -\_sdef{_item:n}{\_the\_itemnum. } -\_sdef{_item:N}{\_the\_itemnum) } -\_sdef{_item:i}{(\_romannumeral\_itemnum) } -\_sdef{_item:I}{\_uppercase\_ea{\_romannumeral\_itemnum}\_kern.5em} -\_sdef{_item:a}{\_athe\_itemnum) } -\_sdef{_item:A}{\_uppercase\_ea{\_athe\_itemnum}) } -\_sdef{_item:x}{\_raise.3ex\_fullrectangle{.6ex}\_kern.4em} -\_sdef{_item:X}{\_raise.2ex\_fullrectangle{1ex}\_kern.5em} - - \_doc ----------------------------- - \`\_athe``{<num>}` returns the `<num>`s lowercase letter from the alphabet.\nl - \`\_fullrectangle``{<dimen>}` prints full rectangle with given `<dimen>`. - \_cod ----------------------------- - -\_def\_fullrectangle#1{\_hbox{\_vrule height#1 width#1}} - -\_def\_athe#1{\_ifcase#1?\_or a\_or b\_or c\_or d\_or e\_or f\_or g\_or h\_or - i\_or j\_or k\_or l\_or m\_or n\_or o\_or p\_or q\_or r\_or s\_or t\_or - u\_or v\_or w\_or x\_or y\_or z\_else ?\_fi -} -\_public \style ; - -\_endcode % ------------------------------------- - -2020-04-21 \isnextchar\par added to \enditems -2020-03-18 introduced |