- for i,_ in pairs(pt) do t[1+#t]=i end
- sort(t)
- for _,i in ipairs(t) do
- tex.sprint('\\oalign{' .. s .. uchar(i+0xE0100)
- .. '\\crcr\\hss\\tiny' .. tostring(i) .. '\\hss\\crcr}')
+ for i,v in pairs(pt) do
+ if v[c] then t[#t+1]={i,v[c]} end
+ end
+ sort(t, function(a,b) return a[1]<b[1] end)
+ tex.sprint('\\textcolor{' .. list_color .. '}{')
+ for _,i in ipairs(t) do
+ if i[1]>=0xE0100 then -- only IVS
+ tex.sprint('\\oalign{' .. s .. uchar(i[1])
+ .. '\\crcr\\hss\\tiny' .. tostring(i[1]-0xE0100) .. '\\hss\\crcr}')
+ end