From 5292accc316fe59d996d574ecf69b52f2e113fb9 Mon Sep 17 00:00:00 2001
From: Khaled Hosny <khaledhosny@eglug.org>
Date: Sat, 16 Jan 2010 00:11:03 +0200
Subject: More compact (smaller PDF size) page resources

There still room for improvement.
---
 otfl-font-msc.lua | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'otfl-font-msc.lua')

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
-- 
cgit v1.2.3