tex/context/base/font-clr.lua


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

if not modules then modules = { } end modules ['font-clr'] = {
    version   = 1.001,
    comment   = "companion to font-ini.mkiv",
    author    = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
    copyright = "PRAGMA ADE / ConTeXt Development Team",
    license   = "see context related readme files"
}

-- moved from ini:

fonts.color = fonts.color or { } -- dummy in ini

local set_attribute   = node.set_attribute
local unset_attribute = node.unset_attribute

local attribute = attributes.private('color')
local mapping   = attributes and attributes.list[attribute] or { }

function fonts.color.set(n,c)
    local mc = mapping[c]
    if not mc then
        unset_attribute(n,attribute)
    else
        set_attribute(n,attribute,mc)
    end
end

function fonts.color.reset(n)
    unset_attribute(n,attribute)
end