2019-06-20 18:53:00

1 files changed, 29 insertions, 0 deletions

diff --git a/tex/context/base/mkiv/back-exp.lua b/tex/context/base/mkiv/back-exp.lua
index f5035d3cf..9f16a9e09 100644
--- a/tex/context/base/mkiv/back-exp.lua
+++ b/tex/context/base/mkiv/back-exp.lua
@@ -2086,6 +2086,29 @@ do
 
 end
 
+do
+
+    local usedparagraphs = { }
+
+    function structurestags.setparagraph(align)
+        if align ~= "" then
+            usedparagraphs[locatedtag("paragraph")] = {
+                dataset = dataset,
+                tag     = tag,
+                align   = align,
+            }
+        end
+    end
+
+    function extras.paragraph(di,element,n,fulltag)
+        local hash = usedparagraphs[fulltag]
+        if hash then
+            setattribute(di,"align",hash.align)
+        end
+    end
+
+end
+
 -- flusher
 
 do
@@ -4250,3 +4273,9 @@ implement {
     actions   = structurestags.setpublication,
     arguments = "2 strings"
 }
+
+implement {
+    name      = "settagparagraph",
+    actions   = structurestags.setparagraph,
+    arguments = "string"
+}