Merge 0.10->trunk

[prosody.git] / util / termcolours.lua

diff --git a/util/termcolours.lua b/util/termcolours.lua
index 279ff601574ff519a6a68afbd1a59d6e38b4b58a..53633b45b1b5744d5fbe94b1d47078e77b6da62b 100644 (file)
--- a/util/termcolours.lua
+++ b/util/termcolours.lua
@@ -14,6 +14,10 @@ local char, format = string.char, string.format;
 local tonumber = tonumber;
 local ipairs = ipairs;
 local io_write = io.write;
+local m_floor = math.floor;
+local type = type;
+local setmetatable = setmetatable;
+local pairs = pairs;
 
 local windows;
 if os.getenv("WINDIR") then
@@ -55,6 +59,44 @@ local function getstring(style, text)
        end
 end
 
+local function gray(n)
+       return m_floor(n*3/32)+0xe8;
+end
+local function color(r,g,b)
+       if r == g and g == b then
+               return gray(r);
+       end
+       r = m_floor(r*3/128);
+       g = m_floor(g*3/128);
+       b = m_floor(b*3/128);
+       return 0x10 + ( r * 36 ) + ( g * 6 ) + ( b );
+end
+local function hex2rgb(hex)
+       local r = tonumber(hex:sub(1,2),16);
+       local g = tonumber(hex:sub(3,4),16);
+       local b = tonumber(hex:sub(5,6),16);
+       return r,g,b;
+end
+
+setmetatable(stylemap, { __index = function(_, style)
+       if type(style) == "string" and style:find("%x%x%x%x%x%x") == 1 then
+               local g = style:sub(7) == " background" and "48;5;" or "38;5;";
+               return g .. color(hex2rgb(style));
+       end
+end } );
+
+local csscolors = {
+       red = "ff0000"; fuchsia = "ff00ff"; green = "008000"; white = "ffffff";
+       lime = "00ff00"; yellow = "ffff00"; purple = "800080"; blue = "0000ff";
+       aqua = "00ffff"; olive  = "808000"; black  = "000000"; navy = "000080";
+       teal = "008080"; silver = "c0c0c0"; maroon = "800000"; gray = "808080";
+}
+for colorname, rgb in pairs(csscolors) do
+       stylemap[colorname] = stylemap[colorname] or stylemap[rgb];
+       colorname, rgb = colorname .. " background", rgb .. " background"
+       stylemap[colorname] = stylemap[colorname] or stylemap[rgb];
+end
+
 local function getstyle(...)
        local styles, result = { ... }, {};
        for i, style in ipairs(styles) do