luametalatex/luametalatex-pdf-font-deduplicate.lua

49 lines
1.6 KiB
Lua

require'luametalatex-font-resolve' -- Ensure that font.fonts exists
local keymap = {}
-- There are multiple criteria for sharing backend fonts:
-- * Obviously encodingbytes have to be the same.
-- * The filename better is the same too.
-- * Similarly the index must be the same.
-- * Specifically in the PK font case *without* fixed DPI,
-- The size must be the same too.
-- * For fontmap based fonts, compare the name field instead,
-- of the normal filename, especially to capture encoding differences.
-- An alternative might be to only take the encoding into account.
-- This is also required for other fonts which might not be backed by
-- traditional files
local function build_sharekey(fontdir)
local encodingbytes = assert(fontdir.encodingbytes)
local key = string.format("%i:%s:", fontdir.encodingbytes, fontdir.format)
if encodingbytes == 1 then
if fontdir.format:sub(1,5) == "type3" then
return string.format("%s%i:%s", key, fontdir.size, fontdir.name)
end
key = string.format("%s%s:", key, fontdir.encoding or '')
end
key = string.format("%s%i:%s", key, fontdir.subfont or 1, fontdir.filename)
return key
end
local fonts = font.fonts
local fontmap = setmetatable({}, {
__index = function(t, fid)
local key = build_sharekey(assert(fonts[fid]))
local mapped = keymap[key]
local share_parent
if mapped then
share_parent = t[mapped]
else
share_parent, keymap[key], t[fid] = fid, fid, fid
end
return share_parent
end,
})
function pdf.getfontname(fid)
return fontmap[fid]
end
return fontmap