beta 2013.10.01 19:00

1 files changed, 38 insertions, 0 deletions

diff --git a/tex/context/base/font-gds.lua b/tex/context/base/font-gds.lua
index 1b2ac0009..284714261 100644
--- a/tex/context/base/font-gds.lua
+++ b/tex/context/base/font-gds.lua
@@ -832,3 +832,41 @@ registerotffeature {
         node = finalize,
     }
 }
+
+-- kern hackery
+
+local function setkeptligatures(tfmdata,scheme)
+    local goodies = tfmdata.goodies
+    if goodies then
+        for i=1,#goodies do
+            local g = goodies[i]
+            local letterspacing = g.letterspacing
+            if letterspacing then
+                local keptligatures = letterspacing.keptligatures
+                if keptligatures then
+                    local unicodes = tfmdata.resources.unicodes
+                    local hash = { }
+                    for k, v in next, keptligatures do
+                        local u = unicodes[k]
+                        if u then
+                            hash[u] = true
+                        else
+                            -- error: unknown name
+                        end
+                    end
+                    tfmdata.properties.keptligatures = hash
+                end
+            end
+        end
+    end
+end
+
+registerotffeature {
+    name         = "keptligatures",
+    description  = "kept ligatures in letterspacing",
+    default      = true,
+    initializers = {
+        base = setkeptligatures,
+        node = setkeptligatures,
+    }
+}