From b5ef32a9a6a99e134e669b702e89a55fbabf5306 Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Sun, 19 Feb 2017 17:46:26 +0100
Subject: 2017-02-19 17:20:00

---
 tex/generic/context/luatex/luatex-fonts-ext.lua    | 42 ++++++++++++++++++++++
 tex/generic/context/luatex/luatex-fonts-merged.lua | 39 +++++++++++++++++++-
 2 files changed, 80 insertions(+), 1 deletion(-)

(limited to 'tex/generic')

diff --git a/tex/generic/context/luatex/luatex-fonts-ext.lua b/tex/generic/context/luatex/luatex-fonts-ext.lua
index 0b61e27fd..7d9c58ccb 100644
--- a/tex/generic/context/luatex/luatex-fonts-ext.lua
+++ b/tex/generic/context/luatex/luatex-fonts-ext.lua
@@ -285,3 +285,45 @@ otffeatures.register {
         node = ignore,
     }
 }
+
+local setmetatableindex = table.setmetatableindex
+
+local function additalictowidth(tfmdata,key,value)
+    local characters = tfmdata.characters
+    local resources  = tfmdata.resources
+    local additions  = { }
+    local private    = resources.private
+    for unicode, old_c in next, characters do
+        -- maybe check for math
+        local oldwidth  = old_c.width
+        local olditalic = old_c.italic
+        if olditalic and olditalic ~= 0 then
+            private = private + 1
+            local new_c = {
+                width    = oldwidth + olditalic,
+                height   = old_c.height,
+                depth    = old_c.depth,
+                commands = {
+                    { "slot", 1, private },
+                    { "right", olditalic },
+                },
+            }
+            setmetatableindex(new_c,old_c)
+            characters[unicode] = new_c
+            additions[private]  = old_c
+        end
+    end
+    for k, v in next, additions do
+        characters[k] = v
+    end
+    resources.private = private
+end
+
+otffeatures.register {
+    name        = "italicwidths",
+    description = "add italic to width",
+    manipulators = {
+        base = additalictowidth,
+     -- node = additalictowidth, -- only makes sense for math
+    }
+}
diff --git a/tex/generic/context/luatex/luatex-fonts-merged.lua b/tex/generic/context/luatex/luatex-fonts-merged.lua
index 8df4c966b..dc16e2426 100644
--- a/tex/generic/context/luatex/luatex-fonts-merged.lua
+++ b/tex/generic/context/luatex/luatex-fonts-merged.lua
@@ -1,6 +1,6 @@
 -- merged file : c:/data/develop/context/sources/luatex-fonts-merged.lua
 -- parent file : c:/data/develop/context/sources/luatex-fonts.lua
--- merge date  : 02/18/17 11:47:12
+-- merge date  : 02/19/17 17:14:56
 
 do -- begin closure to overcome local limits and interference
 
@@ -27187,6 +27187,43 @@ otffeatures.register {
     node=ignore,
   }
 }
+local setmetatableindex=table.setmetatableindex
+local function additalictowidth(tfmdata,key,value)
+  local characters=tfmdata.characters
+  local resources=tfmdata.resources
+  local additions={}
+  local private=resources.private
+  for unicode,old_c in next,characters do
+    local oldwidth=old_c.width
+    local olditalic=old_c.italic
+    if olditalic and olditalic~=0 then
+      private=private+1
+      local new_c={
+        width=oldwidth+olditalic,
+        height=old_c.height,
+        depth=old_c.depth,
+        commands={
+          { "slot",1,private },
+          { "right",olditalic },
+        },
+      }
+      setmetatableindex(new_c,old_c)
+      characters[unicode]=new_c
+      additions[private]=old_c
+    end
+  end
+  for k,v in next,additions do
+    characters[k]=v
+  end
+  resources.private=private
+end
+otffeatures.register {
+  name="italicwidths",
+  description="add italic to width",
+  manipulators={
+    base=additalictowidth,
+  }
+}
 
 end -- closure
 
-- 
cgit v1.2.3