aff_short = {
 loop = "timeloop",
 retri = "retribution",
 dep = "depression",
 burning = "burn",
 addiction = "add",
 aeon = "ae",
 agoraphobia = "agor",
 anorexia = "ano",
 asleep = "slp",
 asthma = "ast",
 barm = "uarm1",
 damagedhead = "h1",
 blackout = "",
 bleeding = function() return "bld(" .. currentBleed .. ")" end,
 damagedleftarm = "la2",
 damagedleftleg = "ll2",
 bleg = "uleg1",
 damagedrightarm = "ra2",
 damagedrightleg = "rl2",
 mildtrauma = "t1",
 carm = "uwna",
 checkingimpatience = "",
 claustrophobia = "clau",
 brokenleftarm = "la1",
 brokenleftleg = "ll1",
 cleg = "uwnl",
 climb = "uwcrip",
 clumsiness = "Cl",
 confusion = "con",
 brokenrightarm = "ra1",
 brokenrightleg = "rl1",
 darkshade = "dark",
 deadening = "dea",
 deathsickness = "dsick",
 dementia = "dem",
 disloyalty = "disl",
 disrupted = "dis",
 dissonance = "diss",
 dizziness = "diz",
 epilepsy = "epi",
 ensorcelled = "ENC",
 fear = "fear",
 flushings = "FL",
 generosity = "gen",
 haemophilia = "haem",
 hallucinations = "hal",
 healthleech = "HL",
 hellsight = "hell",
 hypersomnia = "hyper",
 hypochondria = "hypo",
 impaled = "Impale",
 impatience = "IMP",
 inquisition = "Inq",
 bubonis = "cadmus",
 sycophant = "rixil",
 crone = "crone",
 hecatecurse = "hecate",
 itching = "itch",
 lethargy = "let",
 lightbind = "LBind",
 loneliness = "lon",
 lovers = "lust",
 justice = "just",
 whisperingmadness = "MAD",
 masochism = "maso",
 mangledhead = "h2",
 mangledleftarm = "la3",
 mangledleftleg = "ll3",
 mangledrightarm = "ra3",
 mangledrightleg = "rl3",
 mycalium = "MYC",
 serioustrauma = "t2",
 nausea = "nau",
 pacified = "pac",
 palpatarfeed = "palp",
 paralysis = "PAR",
 paranoia = "para",
 peace = "pea",
 prone = "PR",
 pyramides = "Pyr",
 rebbies = "Reb",
 recklessness = "reck",
 sandfever = "Sand",
 scytherus = "SCY",
 sensitivity = "sen",
 shadowstruck = "Impale",
 shivering = "shiv",
 shyness = "shy",
 slickness = "sli",
 slimeobscure = "slime",
 speared = "Impale",
 stupidity = "st",
 stuttering = "stut",
 tangled = "tang",
 tied = "bind",
 transfixation = "tfix",
 weariness = "Wea",
 webbed = "web",
 vertigo = "vert",
 voyria = "voy",
 heartseed = "hseed",
 sang8 = "sang8",
 }

-- recoded, it's quicker by a third
function affTags()
  if next(Aff) then
    local s = {}
    for k,v in pairs(Aff) do
        if k == "prone" then
          s[#s+1] = "<red>PR"
        --kelp stack coloring
        elseif k=="asthma" or k=="sensitivity" or k=="weariness" or k=="clumsiness" or k=="hypochondria" or k=="healthleech" then
          s[#s+1] = "<green>"..aff_short[k]
        --goldenseal stack coloring
        elseif k=="dissonance" or k=="dizziness" or k=="epilepsy" or k=="impatience" or k=="shyness" or k=="stupidity" then
          s[#s+1] = "<yellow>"..aff_short[k]
        --ginseng stack
        elseif k=="addiction" or k=="darkshade" or k=="haemophilia" or k=="lethargy" or k=="nausea" or k=="scytherus" then
          s[#s+1] = "<goldenrod>"..aff_short[k]
        --broken limbs
        elseif k=="barm" or k=="damagedhead" or k=="damagedleftarm" or k=="damagedleftleg" or k=="damagedrightarm" or k=="damagedrightleg" or k=="bleg" or k=="mildtrauma" or k=="carm" or k=="brokenleftarm" or k=="brokenleftleg" or k=="clef" or k=="climb" or k=="brokenrightarm" or k=="brokenrightleg" or k=="mangledhead" or k=="mangledleftarm" or k=="mangledleftleg" or k=="mangledrightarm" or k=="mangledrightleg" or k=="serioustrauma" then
          s[#s+1] = "<orange>"..aff_short[k]
        --all other affs get default coloring
         elseif k == "bleeding" then
            s[#s+1] = "<red>"..aff_short[k]()
        elseif not aff_short[k] then
         s[#s+1] = "<grey>"..k
        else
         s[#s+1] = "<grey>"..aff_short[k]
        end
    end
    return #s > 0 and ("<IndianRed>["..table.concat(s, " ").."<IndianRed>]") or "" -- don't display just [] b/c of bleeding
  else
    return ""
  end
end