Module:ColorParse

From Caves of Qud Wiki
Revision as of 21:35, 12 November 2019 by Teamtoto (talk | contribs) (big clean up. will break stuff)
Jump to navigation Jump to search
Documentation

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 process_args = require'Module:ProcessArgs'

--[Utility stuff]--

function normalize(string, type)
  type = type or ''
  local b = string.gsub(string,"(~J211)", "")
  if type == '' then
    b = string.gsub(b,"([{}])", "")
  elseif type == 'notxml' then
    b = string.gsub(b,"(\\n)","\n")
  end
  return b
end


function p.linebreaks(frame)
  local b = string.gsub(frame,"(~)\n","\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)
  regextype = regextype or ''
  --[Determine regex type]
  local regex = "(&)(%w)([^&\n]*)"
  if regextype == 'notxml' then
    regex = "(&)(%w)([^&\n]*)"
  end

  local b = normalize(frame.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.parsetest(frame, regextype)
  args = frame.args or {frame}
  regextype = regextype
  if regextype == nil then
    if args[1]:match('&amp;') ~= nil then
      regextype = ''
      args[1] = args[1]:gsub('amp;', '')
    else
      regextype = 'notxml'
    end
  end
  --[Determine regex type]
  local regex = "&(%w)([^&\n]*)"

  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)
  notxml = nil
  unbolded = false
  tildes = false
  args = process_args.merge(true)
  for i, arg in ipairs(args) do
    if i ~= 1 then
      if arg == 'notxml' then
        notxml = 'notxml'
      elseif arg == 'unbolded' then
        unbolded = true
      elseif arg == 'tildes are new lines' then
        tildes = true
      end
    end
  end
  returntext = p.parsetest(args[1], notxml)
  if tildes then 
    returntext = p.linebreaks(returntext)
  end
  if unbolded then
    return returntext
  else
    return '<b>' .. returntext or '' .. '</b>'
  end
end
return p