diff options
| author | Hans Hagen <pragma@wxs.nl> | 2009-12-14 22:32:00 +0100 |
|---|---|---|
| committer | Hans Hagen <pragma@wxs.nl> | 2009-12-14 22:32:00 +0100 |
| commit | 412c96869e37c713381c96b412f7329bf49b108f (patch) | |
| tree | 8db233dee05f4b8d5e0a58fa965700b66923da01 /tex/context/base/lpdf-xmp.lua | |
| parent | 3a75fc96a5e7607afbead86fd9a3a9a8831494aa (diff) | |
| download | context-412c96869e37c713381c96b412f7329bf49b108f.tar.gz | |
beta 2009.12.14 22:32
Diffstat (limited to 'tex/context/base/lpdf-xmp.lua')
| -rw-r--r-- | tex/context/base/lpdf-xmp.lua | 19 |
1 files changed, 14 insertions, 5 deletions
diff --git a/tex/context/base/lpdf-xmp.lua b/tex/context/base/lpdf-xmp.lua index 03f7c0dd4..03527e823 100644 --- a/tex/context/base/lpdf-xmp.lua +++ b/tex/context/base/lpdf-xmp.lua @@ -125,11 +125,20 @@ local function flushxmpinfo() texio.write_nl("log","") texio.write("log","\n% ",(gsub(blob,"[\r\n]","\n%% ")),"\n") end - if true then - commands.writestatus("system","xmp data not flushed (needs luatex upgrade)") - else - lpdf.addtocatalog("Metadata",lpdf.reference(pdf.immediateobj("stream",format(xpacket,packetid,blob),md()))) - end + -- if true then + -- commands.writestatus("system","xmp data not flushed (needs luatex upgrade)") + -- else + -- lpdf.addtocatalog("Metadata",lpdf.reference(pdf.immediateobj("stream",format(xpacket,packetid,blob),md()))) + local r = pdf.obj { + immediate = true, + compresslevel = 0, + type = "stream", + string = format(xpacket,packetid,blob), + attr = md(), + } + lpdf.addtocatalog("Metadata",lpdf.reference(r)) + -- end + commands.defrostrandomseed() -- hack end |