summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--otfl-font-clr.lua16
-rw-r--r--tests/sanitize_color.tex8
2 files changed, 23 insertions, 1 deletions
diff --git a/otfl-font-clr.lua b/otfl-font-clr.lua
index a6cf63f..dc14b2c 100644
--- a/otfl-font-clr.lua
+++ b/otfl-font-clr.lua
@@ -15,8 +15,22 @@ local initializers, format = fonts.initializers, string.format
table.insert(fonts.triggers,"color")
function initializers.common.color(tfmdata,value)
+ local sanitized
+
if value then
- tfmdata.color = tostring(value)
+ if #value == 6 or #value == 8 then
+ sanitized = value
+ elseif #value == 7 then
+ _, _, sanitized = value:find("(......)")
+ elseif #value > 8 then
+ _, _, sanitized = value:find("(........)")
+ else
+ -- broken color code ignored, issue a warning?
+ end
+ end
+
+ if sanitized then
+ tfmdata.color = sanitized
add_color_callback()
end
end
diff --git a/tests/sanitize_color.tex b/tests/sanitize_color.tex
new file mode 100644
index 0000000..fe95d37
--- /dev/null
+++ b/tests/sanitize_color.tex
@@ -0,0 +1,8 @@
+\input luaotfload.sty
+\font\testa={name:Latin Modern Roman:color=0000ff99f} at 10pt
+\font\testb={name:Latin Modern Roman:color=0000ff9} at 10pt
+\font\testc={name:Latin Modern Roman:color=0000f} at 10pt
+\testa test\par
+\testb test\par
+\testc test\par
+\bye