summaryrefslogtreecommitdiff
path: root/otfl-font-msc.lua
diff options
context:
space:
mode:
authorKhaled Hosny <khaledhosny@eglug.org>2010-01-16 00:11:03 +0200
committerKhaled Hosny <khaledhosny@eglug.org>2010-01-16 00:11:03 +0200
commit5292accc316fe59d996d574ecf69b52f2e113fb9 (patch)
tree8f5784d0de17ced489f49ae4617b153f98b5112b /otfl-font-msc.lua
parent2265ffb7b20a0d491ff91849b4d4dae8595bfcaf (diff)
downloadluaotfload-5292accc316fe59d996d574ecf69b52f2e113fb9.tar.gz
More compact (smaller PDF size) page resources
There still room for improvement.
Diffstat (limited to 'otfl-font-msc.lua')
-rw-r--r--otfl-font-msc.lua4
1 files changed, 3 insertions, 1 deletions
diff --git a/otfl-font-msc.lua b/otfl-font-msc.lua
index c858e18..bb04927 100644
--- a/otfl-font-msc.lua
+++ b/otfl-font-msc.lua
@@ -174,7 +174,9 @@ end
function luaotfload.colorize(head)
local h = luaotfload.node_colorize(head)
if res then
- tex.pdfpageresources = format("%s\n/ExtGState<<%s>>", tex.pdfpageresources, res)
+ local r = "/ExtGState<<"..res..">>"
+ local s = tex.pdfpageresources:find(r) and "" or r
+ tex.pdfpageresources = tex.pdfpageresources..s
end
return h
end