diff options
Diffstat (limited to 'tex/context/base/mkiv/strc-sbe.mkxl')
-rw-r--r-- | tex/context/base/mkiv/strc-sbe.mkxl | 139 |
1 files changed, 0 insertions, 139 deletions
diff --git a/tex/context/base/mkiv/strc-sbe.mkxl b/tex/context/base/mkiv/strc-sbe.mkxl deleted file mode 100644 index bb6ba789a..000000000 --- a/tex/context/base/mkiv/strc-sbe.mkxl +++ /dev/null @@ -1,139 +0,0 @@ -%D \module -%D [ file=strc-sbe, -%D version=2008.10.20, -%D title=\CONTEXT\ Structure Macros, -%D subtitle=Section Block Environments, -%D author=Hans Hagen, -%D date=\currentdate, -%D copyright={PRAGMA ADE \& \CONTEXT\ Development Team}] -%C -%C This module is part of the \CONTEXT\ macro||package and is -%C therefore copyrighted by \PRAGMA. See mreadme.pdf for -%C details. - -\writestatus{loading}{ConTeXt Structure Macros / Section Block Environments} - -\unprotect - -% \def\ChapterEntry#1#2#3% -% {chapter : \hbox to \hsize{\strut\bf#2\hss#3}\endgraf\placelist[section]} -% -% \startfrontmatter % optional -% \placelist[chapter][alternative=command,command=\ChapterEntry,criterium=text] \page -% \stopfrontmatter % optional -% -% \startbodymatter % optional -% \chapter{first} \section{one} test \section{two} test \page -% \chapter{second} \section{alpha} test \section{beta} test \page -% \stopbodymatter % optional - -\installcorenamespace{sectionblock} - -\installcommandhandler \??sectionblock {sectionblock} \??sectionblock - -\setupsectionblock - [\c!number=\v!yes, - \c!page=\v!right] % otherwise marks are reset too soon - -\newtoks\everybeforesectionblock -\newtoks\everyaftersectionblock - -\let\strc_sectionblock_define_normal\definesectionblock - -\permanent\overloaded\tolerant\protected\def\definesectionblock[#1]#*[#2]#*[#3]% singular plural settings - {\strc_sectionblock_define_normal[#1][#3]% - %\expandafter\newif\csname if#2\endcsname % obsolete - \strc_sectionblock_set_environment{#1}\empty - \frozen\setuvalue{\e!start#2}{\startsectionblock[#1]}% - \frozen\setuvalue{\e!stop #2}{\stopsectionblock}} - -\ifdefined \resetallstructuremarks \else - \let\resetallstructuremarks\relax -\fi - -\def\strc_sectionblock_handle_page - {\edef\p_strc_sectionblock_page{\sectionblockparameter\c!page}% - \ifempty\p_strc_sectionblock_page \else - \page[\p_strc_sectionblock_page]% - \fi} - -\appendtoks - \strc_sectionblock_handle_page - \resetallstructuremarks - \strc_sectionblock_get_environment\currentsectionblock - \sectionblockparameter\c!before % don't move - \dostarttagged\t!division\currentsectionblock % no parents -\to \everybeforesectionblock - -\appendtoks - \sectionblockparameter\c!after % don't move - \strc_sectionblock_handle_page - \dostoptagged - \resetallstructuremarks -\to \everyaftersectionblock - -\permanent\tolerant\protected\def\setsectionblock[#1]#*[#2]% used to set the default - {\edef\currentsectionblock{#1}% from now on we assume a value - \setupcurrentsectionblock[#2]% - \clf_setsectionblock{#1} - bookmark {\sectionblockparameter\c!bookmark}% - \relax} - -\let\currentsectionblock\empty % was \s!unknown - -\permanent\tolerant\protected\def\startsectionblock[#1]#*[#2]% - {%\ctxlua{structures.counters.check(0)}% we assume sane usage of \page, as this is the only workable place (in push) - \begingroup - \edef\currentsectionblock{#1}% from now on we assume a value - \setupcurrentsectionblock[#2]% - \clf_pushsectionblock{#1} - bookmark {\sectionblockparameter\c!bookmark}% - \relax - %\csname #1true\endcsname % obsolete - \setsystemmode\currentsectionblock - \the\everybeforesectionblock\relax - \showmessage\m!structures1\currentsectionblock} - -\permanent\protected\def\stopsectionblock - {\showmessage\m!structures2\currentsectionblock - \the\everyaftersectionblock\relax - \clf_popsectionblock - \endgroup} - -%D \starttyping -%D \startsectionblockenvironment[frontpart] -%D \setupnumber[userpage][numberconversion=romannumerals,start=1] -%D \stopsectionblockenvironment -%D -%D \startsectionblockenvironment[bodypart] -%D \setupnumber[userpage][numberconversion=numbers,start=1] -%D \stopsectionblockenvironment -%D -%D \startsectionblockenvironment[backpart] -%D \setupnumber[userpage][numberconversion=numbers,start=1] -%D \stopsectionblockenvironment -%D -%D \starttext -%D \startfrontmatter \chapter{test} \stopfrontmatter -%D \startbodymatter \chapter{test} \stopbodymatter -%D \startappendices \chapter{test} \stopappendices -%D \stoptext -%D \stoptyping - -\installcorenamespace{sectionblockenvironment} - -\protected\def\strc_sectionblock_set_environment#1#2% - {\setvalue{\??sectionblockenvironment#1}{#2}} - -\protected\def\strc_sectionblock_get_environment#1% - {\csname\??sectionblockenvironment#1\endcsname} - -\protected\setvalue{\e!start\v!sectionblockenvironment}% - {\dosingleargument\strc_sectionblock_environment_start} - -\letvalue{\e!stop\v!sectionblockenvironment}\relax - -\def\strc_sectionblock_environment_start[#1]% evt \pushendofline \popendofline - {\grabuntil{\e!stop\v!sectionblockenvironment}{\strc_sectionblock_set_environment{#1}}} - -\protect \endinput |