Module:Columns

local export = {}

local m_links = require("Module:links") local m_languages = require("Module:languages") local m_table = require("Module:table")

local function format_list_items(items, lang, sc) local result = {} for _, item in ipairs(items) do		if type(item) == "table" then local link = m_links.full_link(item.term) if item.q then link = require("Module:qualifier").format_qualifier(item.q) .. " " .. link end item = link -- XXX: " local column_header =  local button = 

function export.create_list(args) -- Fields in args that are used: -- args.column_count, args.content, args.alphabetize, args.background_color, -- args.collapse, args.toggle_category, args.class, args.lang -- Check for required fields? if type(args) ~= "table" then error("expected table, got " .. type(args)) end args.class = args.class or "derivedterms" args.column_count = args.column_count or 1 args.toggle_category = args.toggle_category or "derived terms" local output = {} if args.header then if args.format_header then args.header = ' ' .. args.header .. " "		end table.insert(output, args.header) end if args.collapse then table.insert(output, (collapse_header:gsub('', args))) end table.insert(output, (column_header:gsub('', args))) if args.alphabetize then local function keyfunc(item) if type(item) == "table" then item = item.term.term end -- Remove all HTML so mixtures of raw terms and sort -- correctly. item = item:gsub("<.->", "") return item end require("Module:collation").sort(args.content, args.lang, keyfunc) end table.insert(output, format_list_items(args.content, args.lang, args.sc)) table.insert(output, ' ') if args.collapse then table.insert(output, button .. ' ') end return table.concat(output) end

-- This function is for compatibility with earlier version of Module:columns -- (now found in Module:columns/old). function export.create_table(...) -- Earlier arguments to create_table: -- n_columns, content, alphabetize, bg, collapse, class, title, column_width, line_start, lang local args = {} args.column_count, args.content, args.alphabetize, args.background_color, args.collapse, args.class, args.header, args.column_width, args.line_start, args.lang = ... args.format_header = true return export.create_list(args) end

local param_mods = {"t", "alt", "tr", "ts", "pos", "lit", "id", "sc", "g", "q"} local param_mod_set = m_table.listToSet(param_mods)

function export.display_from(column_args, list_args) local iparams = { ["class"] = {}, -- Default for auto-collapse. Overridable by template |collapse= param. ["collapse"] = {type = "boolean"}, -- If specified, this specifies the number of columns, and no columns -- parameter is available on the template. Otherwise, the columns -- parameter is the first available numbered param after the language-code -- parameter. ["columns"] = {type = "number"}, -- If specified, this specifies the language code, and no language-code -- parameter is available on the template. Otherwise, the language-code -- parameter can be specified as either |lang= or |1=. ["lang"] = {}, -- Default for auto-sort. Overridable by template |sort= param. ["sort"] = {type = "boolean"}, -- The following is accepted but currently ignored, per an extended discussion in -- Beer parlour/2018/November. ["title"] = {default = ""}, ["toggle_category"] = {}, }	local frame_args = require("Module:parameters").process(column_args, iparams) local compat = frame_args["lang"] or list_args["lang"] local lang_param = compat and "lang" or 1 local columns_param = compat and 1 or 2 local first_content_param = columns_param + (frame_args["columns"] and 0 or 1)

local params = { [lang_param] = not frame_args["lang"] and {required = true, default = "und"} or nil, [columns_param] = not frame_args["columns"] and {required = true, default = 2} or nil, [first_content_param] = {list = true}, ["title"] = {}, ["collapse"] = {type = "boolean"}, ["sort"] = {type = "boolean"}, ["sc"] = {}, }	local args = require("Module:parameters").process(list_args, params) local lang = frame_args["lang"] or args[lang_param] lang = m_languages.getByCode(lang, lang_param) local sc = args["sc"] if sc then sc = require "Module:scripts".getByCode(sc) or error("|sc= does not contain a valid script code") end local sort = frame_args["sort"] if args["sort"] ~= nil then sort = args["sort"] end local collapse = frame_args["collapse"] if args["collapse"] ~= nil then collapse = args["collapse"] end

local iut for i, item in ipairs(args[first_content_param]) do -- Check for new-style argument, e.g. מרים. But exclude HTML entry with , -- , or similar in it, caused by wrapping an argument in, or similar. -- Basically, all tags of the sort we parse here should consist of a less-than sign, plus letters, -- plus a colon, e.g. , so if we see a tag on the outer level that isn't in this format, -- we don't try to parse it. The restriction to the outer level is to allow generated HTML inside -- of e.g. qualifier tags, such as foo. if item:find("<") and not item:find("^[^<]*<[a-z]*[^a-z:]") then if not iut then iut = require("Module:inflection utilities") end local run = iut.parse_balanced_segment_run(item, "<", ">") local orig_param = first_content_param + i - 1 local function parse_err(msg) error(msg .. ": " .. orig_param .. "= " .. table.concat(run)) end local termobj = {term = {}} termobj.term.lang = lang termobj.term.term = run[1]

for j = 2, #run - 1, 2 do				if run[j + 1] ~= "" then parse_err("Extraneous text '" .. run[j + 1] .. "' after modifier") end local modtext = run[j]:match("^<(.*)>$") if not modtext then parse_err("Internal error: Modifier '" .. modtext .. "' isn't surrounded by angle brackets") end local prefix, arg = modtext:match("^([a-z]+):(.*)$") if not prefix then parse_err("Modifier " .. run[j] .. " lacks a prefix, should begin with one of '" ..						table.concat(param_mods, ":', '") .. ":'") end if param_mod_set[prefix] then local obj_to_set if prefix == "q" then obj_to_set = termobj else obj_to_set = termobj.term end if prefix == "t" then prefix = "gloss" elseif prefix == "g" then prefix = "genders" arg = mw.text.split(arg, ",") elseif prefix == "sc" then arg = require("Module:scripts").getByCode(arg, orig_param .. ":sc") end if obj_to_set[prefix] then parse_err("Modifier '" .. prefix .. "' occurs twice, second occurrence " .. run[j]) end obj_to_set[prefix] = arg else parse_err("Unrecognized prefix '" .. prefix .. "' in modifier " .. run[j]) end end args[first_content_param][i] = termobj end end

return export.create_list { column_count = frame_args["columns"] or args[columns_param], content = args[first_content_param], alphabetize = sort, header = args["title"], background_color = "#F8F8FF", collapse = collapse, toggle_category = frame_args["toggle_category"], class = frame_args["class"], lang = lang, sc = sc, format_header = true } end

function export.display(frame) return export.display_from(frame.args, frame:getParent.args) end

return export