From 5ee570d2cd339e74e28f906c84aa76e6a940bc1b Mon Sep 17 00:00:00 2001
From: Dohyun Kim <nomosnomos@gmail.com>
Date: Sat, 2 May 2015 02:12:52 +0900
Subject: ignore full opacity input

---
 src/luaotfload-colors.lua | 21 ++++++++++++++-------
 1 file changed, 14 insertions(+), 7 deletions(-)

(limited to 'src/luaotfload-colors.lua')

diff --git a/src/luaotfload-colors.lua b/src/luaotfload-colors.lua
index 6a0f2f7..24e7840 100644
--- a/src/luaotfload-colors.lua
+++ b/src/luaotfload-colors.lua
@@ -220,14 +220,24 @@ color_whatsit = function (head, curr, color, push, tail)
     return head, curr, color
 end
 
+-- number -> string | nil
+local get_font_color = function (font_id)
+    local tfmdata    = identifiers[font_id]
+    local font_color = tfmdata and tfmdata.properties and tfmdata.properties.color
+    if font_color then
+        font_color   = font_color:gsub("(%x%x%x%x%x%x)[fF][fF]$", "%1")
+    end
+    return font_color
+end
+
+local cnt = 0
+
 --[[doc--
 While the second argument and second returned value are apparently
 always nil when the function is called, they temporarily take string
 values during the node list traversal.
 --doc]]--
 
-local cnt = 0
-
 --- (node * (string | nil)) -> (node * (string | nil))
 local node_colorize
 node_colorize = function (head, current_color)
@@ -252,12 +262,10 @@ node_colorize = function (head, current_color)
             cnt = cnt - 1
 
         elseif n_id == glyph_t then
-            local tfmdata = identifiers[getfont(n)]
-
             --- colorization is restricted to those fonts
             --- that received the “color” property upon
             --- loading (see ``setcolor()`` above)
-            local font_color = tfmdata and tfmdata.properties  and tfmdata.properties.color
+            local font_color = get_font_color(getfont(n))
             if font_color ~= current_color then
                 if current_color then
                     head, n, current_color = color_whatsit(head, n, current_color, false)
@@ -270,8 +278,7 @@ node_colorize = function (head, current_color)
             if current_color and color_callback == "pre_linebreak_filter" then
                 local nn = getnext(n)
                 while nn and getid(nn) == glyph_t do
-                    local tfmdata = identifiers[getfont(nn)]
-                    local font_color = tfmdata and tfmdata.properties  and tfmdata.properties.color
+                    local font_color = get_font_color(getfont(nn))
                     if font_color == current_color then
                         n = nn
                     else
-- 
cgit v1.2.3