summaryrefslogtreecommitdiff
path: root/tex/context/interface/mkiv/i-fittingpage.xml
diff options
context:
space:
mode:
Diffstat (limited to 'tex/context/interface/mkiv/i-fittingpage.xml')
-rw-r--r--tex/context/interface/mkiv/i-fittingpage.xml62
1 files changed, 31 insertions, 31 deletions
diff --git a/tex/context/interface/mkiv/i-fittingpage.xml b/tex/context/interface/mkiv/i-fittingpage.xml
index 7fc3a6cff..f5daafcf1 100644
--- a/tex/context/interface/mkiv/i-fittingpage.xml
+++ b/tex/context/interface/mkiv/i-fittingpage.xml
@@ -4,6 +4,30 @@
<cd:interface xmlns:cd="http://www.pragma-ade.com/commands">
+ <cd:define name="assignment-setupfittingpage">
+ <cd:assignments list="yes">
+ <cd:parameter name="pagestate">
+ <cd:constant type="start"/>
+ <cd:constant type="stop" default="yes"/>
+ </cd:parameter>
+ <cd:parameter name="command">
+ <cd:constant type="cd:oneargument"/>
+ </cd:parameter>
+ <cd:parameter name="margin">
+ <cd:constant type="page"/>
+ </cd:parameter>
+ <cd:parameter name="scale">
+ <cd:constant type="cd:number"/>
+ </cd:parameter>
+ <cd:parameter name="paper">
+ <cd:constant type="auto"/>
+ <cd:constant type="default" default="yes"/>
+ <cd:constant type="cd:name"/>
+ </cd:parameter>
+ <cd:inherit name="setupframed"/>
+ </cd:assignments>
+ </cd:define>
+
<cd:command name="definefittingpage" level="style" category="background layout" file="page-app.mkiv">
<cd:arguments>
<cd:resolve name="keyword-name"/>
@@ -17,27 +41,7 @@
<cd:command name="setupfittingpage" level="style" category="background layout" file="page-app.mkiv">
<cd:arguments>
<cd:resolve name="keyword-name-list-optional"/>
- <cd:assignments list="yes">
- <cd:parameter name="pagestate">
- <cd:constant type="start"/>
- <cd:constant type="stop" default="yes"/>
- </cd:parameter>
- <cd:parameter name="command">
- <cd:constant type="cd:oneargument"/>
- </cd:parameter>
- <cd:parameter name="margin">
- <cd:constant type="page"/>
- </cd:parameter>
- <cd:parameter name="scale">
- <cd:constant type="cd:number"/>
- </cd:parameter>
- <cd:parameter name="paper">
- <cd:constant type="auto"/>
- <cd:constant type="default" default="yes"/>
- <cd:constant type="cd:name"/>
- </cd:parameter>
- <cd:inherit name="setupframed"/>
- </cd:assignments>
+ <cd:resolve name="assignment-setupfittingpage"/>
</cd:arguments>
</cd:command>
@@ -66,17 +70,17 @@
<!--
- <cd:command name="TEXpage" type="environment" level="document" category="background layout" file="page-app.mkiv">
+ <cd:command name="setupTEXpage" level="style" category="background layout" file="page-app.mkiv">
<cd:arguments>
- <cd:assignments list="yes" optional="yes">
+ <cd:assignments list="yes">
<cd:inherit name="setupfittingpage"/>
</cd:assignments>
</cd:arguments>
</cd:command>
- <cd:command name="MPpage" type="environment" level="document" category="background layout metapost" file="meta-fig.mkiv">
+ <cd:command name="setupMPpage" level="style" category="background layout metapost" file="meta-fig.mkiv">
<cd:arguments>
- <cd:assignments list="yes" optional="yes">
+ <cd:assignments list="yes">
<cd:inherit name="setupfittingpage"/>
</cd:assignments>
</cd:arguments>
@@ -86,17 +90,13 @@
<cd:command name="setupTEXpage" level="style" category="background layout" file="page-app.mkiv">
<cd:arguments>
- <cd:assignments list="yes">
- <cd:inherit name="setupfittingpage"/>
- </cd:assignments>
+ <cd:resolve name="assignment-setupfittingpage"/>
</cd:arguments>
</cd:command>
<cd:command name="setupMPpage" level="style" category="background layout metapost" file="meta-fig.mkiv">
<cd:arguments>
- <cd:assignments list="yes">
- <cd:inherit name="setupfittingpage"/>
- </cd:assignments>
+ <cd:resolve name="assignment-setupfittingpage"/>
</cd:arguments>
</cd:command>