Module:Sandbox/Erutuon/charinsert names: Difference between revisions

Revision as of 03:46, 2 February 2019

Latest revision as of 21:41, 19 February 2019

(7 intermediate revisions by one other user not shown)

Line 1:

local p = {}

local function p.showget_all_codepoints(str)

local content = mw.title.new("MediaWiki:Gadget-charinsert-core.js"):getContent()

local charinsert = content:match("charinsert: (%b{})")

if not charinsert then return "Could not find charinsert" end

-- Make charinsert object valid JSON.

charinsert = charinsert

:gsub("\\", "")

:gsub("'(.-)'", function (in_quotes)

return '"' .. in_quotes:gsub('"', '\\"') .. '"'

end)

if false then

return mw.getCurrentFrame():extensionTag{

name = "syntaxhighlight",

content = charinsert,

args = {

lang = "lua",

}

}

end

local charinsert_table = mw.text.jsonDecode(charinsert, mw.text.JSON_TRY_FIXING)

if not charinsert_table then return "charinsert object is not valid JSON" end

local codepoint_set = {}

for menu_name, menucodepoint in pairsmw.ustring.gcodepoint(charinsert_tablestr) do

for codepoint_set[codepoint] in mw.ustring.gcodepoint(menu)= dotrue

if codepoint > 0x7F then

codepoint_set[codepoint] = true

end

end

end

local codepoint_list =return require "Module:tableTableTools".keysToList(codepoint_set)

end

local codepoint_list = require "Module:table".keysToList(codepoint_set)

function p.JSON_character_names(str)

local codepoint_list = get_all_codepoints(str)

local Unicode = require "Module:Unicode data"

local words = {}

local JSON = {}

local len = 0

for i, codepoint in ipairs(codepoint_list) do

local name = Unicode.lookup_name(codepoint)

for word in name:gmatch("[^ ]+") do

words[word] = true

end

local key_and_value = '"' .. codepoint .. '":"' .. Unicode.lookup_name(codepoint) .. '"'

iflocal lenadded_len += #key_and_value >+ 1 -- 80for thencomma

if len + added_len > 79 then

key_and_value = '\n' .. key_and_value

len = #key_and_value0

else

len = len + #key_and_value

end

len = len + #key_and_valueadded_len

table.insert(JSON, key_and_value)

end

return '"'{" .. in_quotes:gsubtable.concat('"'JSON, '\\"',") .. '"'}"

local word_list = require "Module:table".keysToList(words)

end

table.sort(word_list)

mw.log(table.concat(word_list, ", "), #word_list)

-- copied from [[wikt:Module:debug]]

function p.highlight(content, options)

if type(content) == "table" then

options = content

options = {

lang = options.lang or "lua",

inline = options.inline and true

}

return function(content)

return mw.getCurrentFrame():extensionTag{

name = "syntaxhighlight",

content = content,

args = options

}

end)

else

return mw.getCurrentFrame():extensionTag{

name = "syntaxhighlight",

content = charinsertcontent,

args = {

lang = options and options.lang or "lua",

inline = options and options.inline and true or nil

}

}

end

end

-- Usage:

-- {{#invoke:Sandbox/Erutuon/charinsert_names|highlighted_character_names|abc}}

-- ↓

-- {"97":"LATIN SMALL LETTER A","98":"LATIN SMALL LETTER B",

-- "99":"LATIN SMALL LETTER C"}

function p.highlighted_character_names(frame)

local chars = frame.args[1]

if not chars or chars == "" then

error("Supply characters in parameter 1")

end

return p.highlight(p.JSON_character_names(chars))

end

function p.charinsert_char_names()

local content = mw.title.new("MediaWiki:Gadget-charinsert-core.js"):getContent()

local charinsert = content:match("charinsert: (%b{})")

return "{" .. table.concat(JSON, ",") .. "}"

if not charinsert then return "Could not find charinsert" end

return p.highlight(p.JSON_character_names(charinsert))

end