client/lualibs/ansicolors.lua

   1 local pairs = pairs
   2 local tostring = tostring
   3 local setmetatable = setmetatable
   4 local schar = string.char
   5
   6 local colormt = {}
   7
   8 function colormt:__tostring()
   9     return self.value
  10 end
  11
  12 function colormt:__concat(other)
  13     return tostring(self) .. tostring(other)
  14 end
  15
  16 function colormt:__call(s)
  17     return self .. s .. _M.reset
  18 end
  19
  20 colormt.__metatable = {}
  21
  22 local function makecolor(value)
  23     return setmetatable({ value = schar(27) .. '[' .. tostring(value) .. 'm' }, colormt)
  24 end
  25
  26 local colors = {
  27     -- attributes
  28     reset = 0,
  29     clear = 0,
  30     bright = 1,
  31     dim = 2,
  32     underscore = 4,
  33     blink = 5,
  34     reverse = 7,
  35     hidden = 8,
  36
  37     -- foreground
  38     black = 30,
  39     red = 31,
  40     green = 32,
  41     yellow = 33,
  42     blue = 34,
  43     magenta = 35,
  44     cyan = 36,
  45     white = 37,
  46
  47     -- background
  48     onblack = 40,
  49     onred = 41,
  50     ongreen = 42,
  51     onyellow = 43,
  52     onblue = 44,
  53     onmagenta = 45,
  54     oncyan = 46,
  55     onwhite = 47,
  56 }
  57
  58 local Ansicolors = {}
  59 for c, v in pairs(colors) do
  60     Ansicolors[c] = makecolor(v)
  61 end
  62
  63 return Ansicolors
  64