beta 2013.10.07 09:47

2 files changed, 31 insertions, 3 deletions

diff --git a/tex/context/fonts/treatments.lfg b/tex/context/fonts/treatments.lfg
index 22706d6e9..54f35d535 100644
--- a/tex/context/fonts/treatments.lfg
+++ b/tex/context/fonts/treatments.lfg
@@ -2,6 +2,26 @@
 -- the order specified by tree order access. The first treatment of a file
 -- always wins, so one can overload. These files are not (to be) loaded with
 -- font definitions. (Experiment as part of writing the font manual.)
+--
+-- So there are several ways to fix a font: add a patcher to a goodie file and
+-- load that one. Such a patch can end up in the cached file. Treatments are
+-- applied at runtime. An experimental auto-loaded goodie approach is not yet
+-- enabled and will never be if treatments can do the job.
+
+local unifraktur = {
+    comment = "suspicious x height",
+    fixes   = function(data)
+        local pfminfo = data.metadata.pfminfo
+        if pfminfo then
+            local os2_xheight = pfminfo.os2_xheight
+            if os2_xheight and os2_xheight < 350 then
+                fonts.treatments.report("suspicious x-height %a, nilling",os2_xheight)
+                pfminfo.os2_xheight_original = os2_xheight
+                pfminfo.os2_xheight = nil
+            end
+        end
+    end,
+}
 
 return {
     name = "treatments",
@@ -13,18 +33,20 @@ return {
         -- we need to complete this list in order to be able to warn
         -- users not to include these files unless permitted
         ["adobeheitistd-regular.otf"] = {
+            comment  = "this font is part of acrobat",
             ignored  = false,
          -- included = false, -- not yet
-            comment  = "this font is part of acrobat",
         },
         -- just an experiment .. normally no big deal but I ran into
         -- such case
         ["crap.ttf"] = {
-            ignored = true,
             comment = "a text file with suffix ttf", -- used in test file
+            ignored = true,
         },
         ["latinmodern-math.otf"] = {
             comment = "experimental",
-        }
+        },
+        ["unifrakturcook.ttf"]     = unifraktur,
+        ["unifrakturmaguntia.ttf"] = unifraktur,
     },
 }
diff --git a/tex/context/fonts/unifraktur.lfg b/tex/context/fonts/unifraktur.lfg
index 8b9b299f5..32ffed928 100644
--- a/tex/context/fonts/unifraktur.lfg
+++ b/tex/context/fonts/unifraktur.lfg
@@ -1,3 +1,9 @@
+-- moved to treatments.lfg
+--
+-- fonts.handlers.otf.enhancers.patches.register("after","check metadata","unifraktur*", function(data,filename)
+--     data.metadata.pfminfo.os2_xheight = nil
+-- end)
+
 return {
     name = "unicode fraktur",
     version = "1.00",