From 847821faaecf92833f1e1564e1ef9377758d4d45 Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Mon, 2 Jul 2018 16:09:16 +0200
Subject: 2018-07-02 14:46:00

---
 tex/context/base/mkiv/back-exp.lua | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

(limited to 'tex/context/base/mkiv/back-exp.lua')

diff --git a/tex/context/base/mkiv/back-exp.lua b/tex/context/base/mkiv/back-exp.lua
index 8f6470870..693ec0118 100644
--- a/tex/context/base/mkiv/back-exp.lua
+++ b/tex/context/base/mkiv/back-exp.lua
@@ -554,6 +554,8 @@ do
 
     local fields = { "title", "subtitle", "author", "keywords", "url", "version" }
 
+    local ignoredelements = false
+
     local function checkdocument(root)
         local data = root.data
         if data then
@@ -580,6 +582,9 @@ do
                 elseif tg == "ignore" then
                     di.element = ""
                     checkdocument(di)
+                elseif ignoredelements and ignoredelements[tg] then
+                    di.element = ""
+                    checkdocument(di)
                 else
                     checkdocument(di) -- new, else no noexport handling
                 end
@@ -609,6 +614,20 @@ do
         checkdocument(di)
     end
 
+    implement {
+        name      = "ignoretagsinexport",
+        actions   = function(list)
+            for tag in string.gmatch(list,"[a-z]+") do
+                if ignoredelements then
+                    ignoredelements[tag] = true
+                else
+                    ignoredelements = { [tag] = true }
+                end
+            end
+        end,
+        arguments = "string"
+    }
+
 end
 
 do
@@ -3871,7 +3890,6 @@ implement {
     actions   = structurestags.initializeexport,
 }
 
-
 implement {
     name      = "settagitemgroup",
     actions   = structurestags.setitemgroup,
-- 
cgit v1.2.3