diff options
Diffstat (limited to 'Master/texmf-dist/tex/context/base/strc-des.mkvi')
-rw-r--r-- | Master/texmf-dist/tex/context/base/strc-des.mkvi | 200 |
1 files changed, 200 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/context/base/strc-des.mkvi b/Master/texmf-dist/tex/context/base/strc-des.mkvi new file mode 100644 index 00000000000..1b29c864fbc --- /dev/null +++ b/Master/texmf-dist/tex/context/base/strc-des.mkvi @@ -0,0 +1,200 @@ +%D \module +%D [ file=strc-des, +%D version=2008.10.20, +%D title=\CONTEXT\ Structure Macros, +%D subtitle=Descriptions, +%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 / Descriptions} + +\unprotect + +\installcorenamespace{description} + +\installcommandhandler \??description {description} \??description + +\let\setupdescriptions\setupdescription + +% \setupdescriptions % check with old +% [\c!alternative=\descriptionparameter\c!location, +% \c!location=\v!left] + +\setupdescriptions % check with old + [\c!alternative=\v!left, + \c!headstyle=\v!bold, + \c!titlestyle=\v!bold, + %\c!style=, + %\c!color=, + %\c!headcolor=, + %\c!titlecolor=, + \c!width=7em, + \c!distance=1em, + \c!titledistance=0.5em, + %\c!hang=, + %\c!sample=, + %\c!align=, + %\c!headalign=, + \c!margin=\v!no, + \c!before=\blank, + \c!inbetween=\blank, + \c!after=\blank, + \c!indentnext=\v!yes, + \c!indenting=\v!never, + \c!titleleft=(, + \c!titleright=), + %\c!closesymbol=, + \c!closecommand=\wordright, + \c!display=\v!yes, + %\c!command=, + \c!titlecommand=, + \c!expansion=\v!no, + %\c!xmlsetup=, + %\s!catcodes=, + \c!title=\v!yes, + %\c!text=, + ] + +\appendtoks + \ifx\currentdescriptionparent\empty + \defineconstruction[\currentdescription][\currentdescriptionparent][\s!handler=\v!description,\c!level=1]% + \else + \defineconstruction[\currentdescription][\s!handler=\v!description,\c!level=1]% + \fi + \setuevalue {\currentdescription}{\strc_descriptions_command{\currentdescription}}% + \setuevalue{\e!start\currentdescription}{\strc_descriptions_start {\currentdescription}}% + \setuevalue{\e!stop \currentdescription}{\strc_descriptions_stop}% +\to \everydefinedescription + +\setvalue{\??constructioninitializer\v!description}% + {\let\currentdescription \currentconstruction + \let\constructionparameter \descriptionparameter + \let\detokenizedconstructionparameter\detokenizeddescriptionparameter + \let\letconstructionparameter \letdescriptionparameter + \let\useconstructionstyleandcolor \usedescriptionstyleandcolor + \let\setupcurrentconstruction \setupcurrentdescription + \edef\p_title{\constructionparameter\c!title}% + \ifx\p_title\v!yes + \settrue\c_strc_constructions_title_state + \else + \setfalse\c_strc_constructions_title_state + \fi} + +% We keep the command variant around but rather would move to the +% start-stop one. Also, passing the title as argument has some +% history so we need to keep that as well. + +\ifdefined\dotagsetdescription \else \let\dotagsetdescription\relax \fi + +% \startdescription [reference] text \stopdescription +% \startdescription [reference]{title} text \stopdescription +% \startdescription [title=,title=,reference=] text \stopdescription + +\unexpanded\def\strc_descriptions_start#1% + {\begingroup + \strc_constructions_initialize{#1}% + \doifnextoptionalelse\strc_descriptions_start_yes\strc_descriptions_start_nop} + +\unexpanded\def\strc_descriptions_start_yes[#1]% + {\doifassignmentelse{#1}\strc_descriptions_start_yes_assignment\strc_descriptions_start_yes_reference[#1]} + +\unexpanded\def\strc_descriptions_start_yes_assignment[#1]% todo userdata + {\strc_constructions_register[\c!label={\descriptionparameter\c!text},\c!reference=,\c!title=,\c!bookmark=,\c!list=,#1][]% + \csname\??constructionstarthandler\currentconstructionhandler\endcsname} + +\unexpanded\def\strc_descriptions_start_yes_reference + {\ifconditional\c_strc_constructions_title_state + \expandafter\strc_descriptions_start_yes_titled + \else + \expandafter\strc_descriptions_start_yes_normal + \fi} + +\unexpanded\def\strc_descriptions_start_yes_titled[#1]#2% todo userdata + {\strc_constructions_register[\c!label={\descriptionparameter\c!text},\c!reference={#1},\c!title={#2},\c!bookmark=,\c!list=][]% + \csname\??constructionstarthandler\currentconstructionhandler\endcsname} + +\unexpanded\def\strc_descriptions_start_yes_normal[#1]% todo userdata + {\strc_constructions_register[\c!label={\descriptionparameter\c!text},\c!reference={#1},\c!title=,\c!bookmark=,\c!list=][]% + \csname\??constructionstarthandler\currentconstructionhandler\endcsname} + +\unexpanded\def\strc_descriptions_start_nop + {\ifconditional\c_strc_constructions_title_state + \expandafter\strc_descriptions_start_nop_titled + \else + \expandafter\strc_descriptions_start_nop_normal + \fi} + +\unexpanded\def\strc_descriptions_start_nop_titled#1% + {\strc_constructions_register[\c!label={\descriptionparameter\c!text},\c!reference=,\c!title={#1},\c!bookmark=,\c!list=][]% + \csname\??constructionstarthandler\currentconstructionhandler\endcsname} + +\unexpanded\def\strc_descriptions_start_nop_normal + {\strc_constructions_register[\c!label={\descriptionparameter\c!text},\c!reference=,\c!title=,\c!bookmark=,\c!list=][]% + \csname\??constructionstarthandler\currentconstructionhandler\endcsname} + +\unexpanded\def\strc_descriptions_stop + {\csname\??constructionstophandler\currentconstructionhandler\endcsname} + +% \description [reference] text \par +% \description [reference] {title} text \par + +\unexpanded\def\strc_descriptions_command#1% + {\begingroup + \strc_constructions_initialize{#1}% + \doifnextoptionalelse\strc_descriptions_yes\strc_descriptions_nop} + +\unexpanded\def\strc_descriptions_yes + {\ifconditional\c_strc_constructions_title_state + \expandafter\strc_descriptions_yes_titled + \else + \expandafter\strc_descriptions_yes_normal + \fi} + +\unexpanded\def\strc_descriptions_yes_titled[#1]#2% + {\strc_constructions_register[\c!label={\descriptionparameter\c!text},\c!reference={#1},\c!title={#2},\c!bookmark=,\c!list=][]% + \csname\??constructioncommandhandler\currentconstructionhandler\endcsname} + +\unexpanded\def\strc_descriptions_yes_normal[#1]% + {\strc_constructions_register[\c!label={\descriptionparameter\c!text},\c!reference={#1},\c!title=,\c!bookmark=,\c!list=][]% + \csname\??constructioncommandhandler\currentconstructionhandler\endcsname} + +\unexpanded\def\strc_descriptions_nop + {\ifconditional\c_strc_constructions_title_state + \expandafter\strc_descriptions_nop_titled + \else + \expandafter\strc_descriptions_nop_normal + \fi} + +\unexpanded\def\strc_descriptions_nop_titled#1% + {\strc_constructions_register[\c!label={\descriptionparameter\c!text},\c!reference=,\c!title={#1},\c!bookmark=,\c!list=][]% + \csname\??constructioncommandhandler\currentconstructionhandler\endcsname} + +\unexpanded\def\strc_descriptions_nop_normal + {\strc_constructions_register[\c!label={\descriptionparameter\c!text},\c!reference=,\c!title=,\c!bookmark=,\c!list=][]% + \csname\??constructioncommandhandler\currentconstructionhandler\endcsname} + +%D Handlers: + +\expandafter\let\csname\??constructionmainhandler \v!description\expandafter\endcsname\csname\??constructionmainhandler \v!construction\endcsname +\expandafter\let\csname\??constructioncommandhandler\v!description\expandafter\endcsname\csname\??constructioncommandhandler\v!construction\endcsname +\expandafter\let\csname\??constructiontexthandler \v!description\expandafter\endcsname\csname\??constructiontexthandler \v!construction\endcsname + +\setvalue{\??constructioncommandhandler\v!description}% + {\dowithpar + {\csname\??constructionstarthandler\v!construction\endcsname}% + {\csname\??constructionstophandler \v!construction\endcsname\endgroup}} + +\setvalue{\??constructionstarthandler\v!description}% + {\BeforePar{\csname\??constructionstarthandler\v!construction\endcsname}% + \GotoPar} + +\setvalue{\??constructionstophandler\v!description}% + {\csname\??constructionstophandler\v!construction\endcsname + \endgroup} + +\protect \endinput |