2016-07-08 17:24:00

1 files changed, 47 insertions, 0 deletions

diff --git a/tex/context/interface/mkiv/i-cleaning.xml b/tex/context/interface/mkiv/i-cleaning.xml
new file mode 100644
index 000000000..d982a5dd5
--- /dev/null
+++ b/tex/context/interface/mkiv/i-cleaning.xml
@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="UTF-8"?>
+
+<?context-directive job ctxfile x-setups.ctx ?>
+
+<cd:interface xmlns:cd="http://www.pragma-ade.com/commands">
+
+    <cd:command name="punctuation" type="environment" begin="push" end="pop" file="typo-chr.mkiv"/>
+
+    <cd:command name="removepunctuation" file="typo-chr.mkiv"/>
+
+    <cd:command name="markcontent" file="typo-chr.mkiv">
+        <cd:arguments>
+            <cd:keywords optional="yes">
+                <cd:constant type="reset"/>
+                <cd:constant type="all" default="yes"/>
+                <cd:constant type="cd:name"/>
+            </cd:keywords>
+            <cd:content/>
+        </cd:arguments>
+    </cd:command>
+
+    <cd:command name="markedcontent" type="environment" file="typo-chr.mkiv">
+        <cd:arguments>
+            <cd:keywords optional="yes">
+                <cd:constant type="reset"/>
+                <cd:constant type="all" default="yes"/>
+                <cd:constant type="cd:name"/>
+            </cd:keywords>
+        </cd:arguments>
+    </cd:command>
+
+    <cd:command name="removemarkedcontent" file="typo-chr.mkiv">
+        <cd:arguments>
+            <cd:resolve name="keyword-name"/>
+        </cd:arguments>
+    </cd:command>
+
+    <cd:command name="setcharactercleaning" file="typo-cln.mkiv">
+        <cd:arguments>
+            <cd:keywords>
+                <cd:constant type="reset"/>
+                <cd:constant type="1"/>
+            </cd:keywords>
+        </cd:arguments>
+    </cd:command>
+
+</cd:interface>
\ No newline at end of file