diff options
| author | Hans Hagen <pragma@wxs.nl> | 2014-07-26 13:05:00 +0200 |
|---|---|---|
| committer | Hans Hagen <pragma@wxs.nl> | 2014-07-26 13:05:00 +0200 |
| commit | b7fbedf4562261860ffdef92af2cf9cf576373b0 (patch) | |
| tree | b8908b45db8018bcf707609a93d6ffdc9aee5886 /tex/context/base/strc-tag.mkiv | |
| parent | 552aceb88e5e5e77a9263144180139a6ac95646c (diff) | |
| download | context-b7fbedf4562261860ffdef92af2cf9cf576373b0.tar.gz | |
beta 2014.07.26 13:05
Diffstat (limited to 'tex/context/base/strc-tag.mkiv')
| -rw-r--r-- | tex/context/base/strc-tag.mkiv | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/tex/context/base/strc-tag.mkiv b/tex/context/base/strc-tag.mkiv index 7e15be4a3..83eb3c142 100644 --- a/tex/context/base/strc-tag.mkiv +++ b/tex/context/base/strc-tag.mkiv @@ -239,6 +239,38 @@ {\let\dostarttagged\strc_tags_start_nop \let\dostoptagged \strc_tags_stop_nop} +% for luigi (beware: fully expandable): + +\def\strc_tags_get_element_tag_yes{\ctxcommand{getelementtag()}} +\let\strc_tags_get_element_tag_nop\donothing + +\unexpanded\def\strc_tags_setup_element_user_properties_yes + {\dodoubleempty\strc_tags_setup_element_user_properties_indeed} + +\unexpanded\def\strc_tags_setup_element_user_properties_nop + {\dodoubleempty\strc_tags_setup_element_user_properties_indeed_nop} + +\def\strc_tags_setup_element_user_properties_indeed + {\iftrialtypesetting + \expandafter \strc_tags_setup_element_user_properties_indeed_nop + \else\ifsecondargument + \doubleexpandafter\strc_tags_setup_element_user_properties_indeed_two + \else + \doubleexpandafter\strc_tags_setup_element_user_properties_indeed_one + \fi\fi} + +\def\strc_tags_setup_element_user_properties_indeed_nop[#1][#2]{} +\def\strc_tags_setup_element_user_properties_indeed_one[#1][#2]{\ctxcommand{setelementuserproperties(\!!bs#1\!!es)}} +\def\strc_tags_setup_element_user_properties_indeed_two[#1][#2]{\ctxcommand{setelementuserproperties("#1",\!!bs#2\!!es)}} + +\unexpanded\def\strc_tags_enable_properties + {\let\getelementtag \strc_tags_get_element_tag_yes + \let\setupelementuserproperties\strc_tags_setup_element_user_properties_yes} + +\unexpanded\def\strc_tags_disable_properties + {\let\getelementtag \strc_tags_get_element_tag_nop + \let\setupelementuserproperties\strc_tags_setup_element_user_properties_nop} + %D The triggers: \newtoks\everyenableelements @@ -246,11 +278,13 @@ \appendtoks \strc_tags_enable_elements + \strc_tags_enable_properties \doifelse{\taggingparameter\c!method}\v!auto\strc_tags_enable\strc_tags_disable \to \everyenableelements \appendtoks \strc_tags_disable_elements + \strc_tags_disable_properties \strc_tags_disable \to \everydisableelements |