Module:ColorParse
Documentation
[purge]
This module parses the game's color codes in strings and formats them for the wiki. This shouldn't be directly called anymore. Use Template:Qud text instead. If the text in question has pronouns in syntax =pronouns.(pronountype)= or a similar style, use Template:Grammar.
Usage
{{#invoke: ColorParse | parse |(your text here)}}
Code:
{{#invoke: ColorParse | parse |&RS&rt&Ko&yp&Ys&Rv&ra&Kl&yi&Yn&Rn&y}}
Result:
Stopsvalinn
local p = {}
local luatable = require'Module:Color'
local textutil = require'Module:Text Utility'
local process_args = require'Module:ProcessArgs'
local stringbyte, stringchar = string.byte, string.char
--[Utility stuff]--
function normalize(input, type)
type = type or 'xml'
local a = '&y'
if type == 'notxml' then
a = '&y'
end
local b = input:gsub("(~J211)", "")
if not b:match('^%&') then
b = a .. b
end
b = b:gsub("(%*)", "*")
if type == 'xml' then
b = b:gsub("([{}])", "")
end
b = b:gsub("(\\n)","\n")
return b
end
function strtotbl(str)
tbl = {stringbyte(str, 1, #str)}
for i = 1, #tbl do
tbl[i] = stringchar(tbl[i])
end
return tbl
end
function p.linebreaks(frame)
local b = string.gsub(frame,"(~)","\n\n")
return b
end
--[ The main function. Takes the first argument and snips out stuff we don't need
--[ depending on regextype.
function p.parse(frame, regextype)
args = frame.args or {[1] = frame}
regextype = regextype
if regextype == nil then
if args[1]:match('&') ~= nil then
regextype = 'xml'
else
regextype = 'notxml'
end
end
--[Determine regex type]
local regex = "&(%w)([^&\n]*)"
if regextype == 'notxml' then
regex = "&(%w)([^&\n]*)"
end
local b = normalize(args[1],regextype)
local a = string.gsub(b, regex, function(color,text)
if text ~= nil and text ~= "" then
local hexcolor = luatable.parse(color)
if hexcolor == nil then
error ("There was no specified color for color code: " .. color)
end
text = text or ""
return "<span style=\"color: " .. hexcolor .. ";\">" .. text .. "</span>"
else
return ""
end
end)
return a
end
function p.main(frame)
local parsetype = nil
local unbolded = false
local tildes = false
local text = ''
local args = process_args.merge(true)
for _, arg in ipairs(args) do
if arg == 'notxml' then
parsetype = 'notxml'
elseif arg == 'unbolded' then
unbolded = true
elseif arg == 'tildes are new lines' then
tildes = true
elseif text == '' then
text = arg
end
end
local returntext = p.parse(text, parsetype)
if tildes == true then
returntext = p.linebreaks(returntext)
end
if unbolded == true then
return returntext
else
return '<b>' .. (returntext or '') .. '</b>'
end
end
-- Beta Parse --
function p.shader(text, colors, type)
-- split the colors into a list
colorlist = textutil.split(colors, '-')
-- check shader type:
-- default | if pattern is shorter than text, text will remain uncolored (y)
-- sequence | pattern will repeat until text is over
-- alternation | pattern will stretch to fit word length (?)
type = type or 'default'
strtbl = strtotbl(text)
finaltbl = {}
interval = 1
if type == 'alternation' then
interval = math.floor(#strtbl/#colorlist) --sets interval that color code switches.
overflowbehavior = function(f) return colorlist[#colorlist] end
elseif type == 'sequence' then
overflowbehavior = function(f)
e = f%#colorlist
if e == 0 then e = #colorlist end
return colorlist[e]
end
else
overflowbehavior = function(f) return 'y' end
end
ci = 1
for i=1, #strtbl do
if ci > #colorlist then
hexcolor = overflowbehavior(ci)
else
hexcolor = colorlist[ci]
end
finaltbl[i] = "<span style=\"color: " .. luatable.parse(hexcolor) .. ";\">" .. strtbl[i].. "</span>"
if i%interval == 0 then
ci = ci + 1
end
end
return table.concat(finaltbl)
end
function p.test()
return p.shader('structural', 'Y-y-K-y-Y', 'alternation')
--return p.shader('Stopsvalinn', 'R-r-K-y-Y', 'sequence')
end
return p