summaryrefslogtreecommitdiff
path: root/tex/context/base/strc-ren.mkiv
diff options
context:
space:
mode:
Diffstat (limited to 'tex/context/base/strc-ren.mkiv')
-rw-r--r--tex/context/base/strc-ren.mkiv21
1 files changed, 20 insertions, 1 deletions
diff --git a/tex/context/base/strc-ren.mkiv b/tex/context/base/strc-ren.mkiv
index f2f056033..3a160ee9e 100644
--- a/tex/context/base/strc-ren.mkiv
+++ b/tex/context/base/strc-ren.mkiv
@@ -368,10 +368,29 @@
\unexpanded\def\defineheadplacement
{\dodoubleargument\dodefineheadplacement}
-\def\dodefineheadplacement[#1][#2]% #3#4
+% \def\dodefineheadplacement[#1][#2]% #3#4
+% {\setvalue{\??ns:#1}{#2}%
+% \setvalue{\??ns::#1}}
+
+% \dodefineheadplacement[sectiona][vertical]{#1->#2}
+% \dodefineheadplacement[sectionb][vertical]#1#2{#1->#2}
+%
+% \setuphead[section][alternative=sectiona]
+% \setuphead[subsection][alternative=sectionb]
+
+\def\dodefineheadplacementyes[#1][#2]%#3#4%
+ {\setvalue{\??ns:#1}{#2}%
+ \setvalue{\??ns::#1}##1##2}
+
+\def\dodefineheadplacementnop[#1][#2]%
{\setvalue{\??ns:#1}{#2}%
\setvalue{\??ns::#1}}
+\def\dodefineheadplacement[#1][#2]%
+ {\doifnextbgroupelse
+ {\dodefineheadplacementyes[#1][#2]}%
+ {\dodefineheadplacementnop[#1][#2]}}
+
\def\presetnumberheadalternative
{\doifelsevalue{\??ns:\numberheadalternative}\v!horizontal\setfalse\settrue\headisdisplay}