Module:ColorAlphabet

---- This module is supposed to apply Green-Armytage's standard for a "color alphabet" to letters in a string of input text.

----

        

for blank, ----

whatever

for colored letters

local getArgs = require('Module:Arguments').getArgs local p = {}

function p._main(text, lookupfile, nowiki, blank)

  local debuglog=""
  local lookup = {}
  lookup.file = lookupfile
  lookup.data = mw.loadData(lookup.file)
  debuglog = debuglog..tostring(lookup.data)..table.concat(lookup.data)..lookup.data[7] -- debug
  if not(lookup.data) then return "error: failed to open lookup file" .. tostring(lookup.file) end
  local x=0
  repeat
      x=x+1
      i=lookup.data[x*3-2]
      j=lookup.data[x*3-1]
      k=lookup.data[x*3]
      -- debuglog=debuglog..tostring(i)..tostring(j)..tostring(k)
      if not (i and j and k) then break end
     lookup[i]=j .. (blank or i) .. k -- create the lookup table of what letters are supposed to be transliterated to.  If blank == " " then spaces, not letters go in the middle
  until false
  lookup["["]="";lookup["]"]="" -- don't include these in output
  local wikistart={};wikiend={}
  local s=0;local e=0
  repeat
      s,e=mw.ustring.find(text,"%[%[[^%[%]]-%]%]",e)
      if (not(s) or not(e)) then break end
      wikistart[s]=mw.text.trim(mw.ustring.sub(text,s+2,e-2))
      wikiend[e]=true
  until false
  local prowl=mw.ustring.gmatch(text,"(.)")
  local output=""
  local wl=1
  position=0
  repeat
     local letter=prowl()
     if not(letter) then break end
     position=position+1

if wikistart[position] then output=output..'

' end

     if wikiend[position] then output=output.."" end
     output=output..(lookup[letter] or letter) -- unicode letters will never all be looked up, handle punctuation the same
  until false

output='

'..output..'

'

  if nowiki then output=''..output..''; output=output..debuglog end
  return output

end

-- common code with all relevant args

function p.main(args, blank)

  local text = args[1] or ""
  local nowiki = args.nowiki or nil
  local lookupfile = args.lookup or "Module:ColorAlphabet/lookup"
  return p._main(text, lookupfile, nowiki, blank)

end

-- entry for colorizing letters

function p.letter(frame)

   local args = getArgs(frame)
   return frame:preprocess(p.main(args, nil))

end

-- entry for replacing letters with colored nonbreaking spaces

function p.blank(frame) local args = getArgs(frame)

   return frame:preprocess(p.main(args, " "))

end

return p