Moduuli:Viikon kilpailu kriteerit

Methods for {{Viikon kilpailu kriteerit}}

Code	Result
{{#invoke:Viikon kilpailu kriteerit|criterion|uusi}}	jotka aloitetaan kilpailun aikana
{{#invoke:Viikon kilpailu kriteerit|criterion|uusi|redirects=1}}	jotka aloitetaan kilpailun aikana (sisältää myös ohjaussivut)
{{#invoke:Viikon kilpailu kriteerit|criterion|löytyvä}}	jotka ovat olemassa ennen kilpailun aloituspäivämäärää
{{#invoke:Viikon kilpailu kriteerit|criterion|tynkä}}	nil
{{#invoke:Viikon kilpailu kriteerit|criterion|tavut|1000}}	joita laajennetaan vähintään 1000 tavulla
{{#invoke:Viikon kilpailu kriteerit|criterion|nimiavaruus|14}}	jotka ovat luokka
{{#invoke:Viikon kilpailu kriteerit|criterion|nimiavaruus|0|10}}	jotka ovat artikkeleita tai malline
{{#invoke:Viikon kilpailu kriteerit|criterion|takaisinlinkitys|Luettelo Nobel-palkituista henkilöistä}}	joihin johtaa linkki sivulta Luettelo Nobel-palkituista henkilöistä
{{#invoke:Viikon kilpailu kriteerit|criterion|edelleenlinkitys|Bergen}}	joissa on linkki sivulle Bergen
{{#invoke:Viikon kilpailu kriteerit|criterion|malline|Selvennä}}	jotka on merkitty mallineella {{Selvennä}}
{{#invoke:Viikon kilpailu kriteerit|criterion|malline|Viitteetön|Lähteetön}}	jotka on merkitty mallineilla {{Viitteetön}} tai {{Lähteetön}}
{{#invoke:Viikon kilpailu kriteerit|criterion|luokka|Islanti}}	jotka sijaitsevat luokassa Islanti
{{#invoke:Viikon kilpailu kriteerit|criterion|luokka|Islanti|se:Islánda|be:Ісландыя}}	jotka sijaitsevat luokissa Islanti, Islánda tai Ісландыя
{{#invoke:Viikon kilpailu kriteerit|criterion|luokka|Nisäkkäät|ignore=Ihminen,Sukupuuttoon kuolleet nisäkkäät}}	jotka sijaitsevat luokassa Nisäkkäät
{{#invoke:Viikon kilpailu kriteerit|criterion|sivut|Islanti|Grönlanti}}	sivuihin Islanti tai Grönlanti
{{#invoke:Viikon kilpailu kriteerit|criterion|sparql|query=?item wdt:P31 wd:Q146. }}	jotka löytyvät tällä SPARQL-kyselyllä
{{#invoke:Viikon kilpailu kriteerit|criterion|sparql|query=?item wdt:P31 wd:Q146. |description=about cats }}	about cats (näytä SPARQL-kysely)

Methods for {{Viikon kilpailu pisteet}}

Code	Result
{{#invoke:Viikon kilpailu kriteerit|rule|uusi|20}}	Jokaisesta uudesta artikkelista annetaan 20 pistettä
{{#invoke:Viikon kilpailu kriteerit|rule|ohjaus|1}}	Jokaisesta luodusta ohjaussivusta annetaan 1 pistettä
{{#invoke:Viikon kilpailu kriteerit|rule|qualified|2}}	Jokaisesta hyväksytystä sivusta annetaan 2 pistettä
{{#invoke:Viikon kilpailu kriteerit|rule|edit|1}}	Jokaisesta muokkauksesta annetaan 1 pistettä
{{#invoke:Viikon kilpailu kriteerit|rule|tavu|0.1}}	Jokaisesta lisätystä tavusta annetaan 0,1 pistettä
{{#invoke:Viikon kilpailu kriteerit|rule|tavu|1|max=100}}	Jokaisesta lisätystä tavusta annetaan 1 pistettä, mutta enintään 100 pistettä per artikkeli
{{#invoke:Viikon kilpailu kriteerit|rule|tavubonus|20|3000}}	Jokaisesta vähintään 3000 tavua tuottaneesta lisäyksestä annetaan 20 bonuspistettä
{{#invoke:Viikon kilpailu kriteerit|rule|sana|3}}	Jokaisesta lisätystä sanasta annetaan 3 pistettä
{{#invoke:Viikon kilpailu kriteerit|rule|sana|3|max=100}}	Jokaisesta lisätystä sanasta annetaan 3 pistettä, mutta enintään 100 pistettä per artikkeli
{{#invoke:Viikon kilpailu kriteerit|rule|sanabonus|20|3000}}	Jokaisesta vähintään 3000 sanaa tuottaneesta lisäyksestä annetaan 20 bonuspistettä
{{#invoke:Viikon kilpailu kriteerit|rule|kuva|3}}	Jokaisesta lisätystä kuvasta annetaan 3 pistettä
{{#invoke:Viikon kilpailu kriteerit|rule|kuva|3|max=100}}	Jokaisesta lisätystä kuvasta annetaan 3 pistettä, mutta enintään 100 pistettä per artikkeli
{{#invoke:Viikon kilpailu kriteerit|rule|kuva|3|max=100|ownimage=10}}	Jokaisesta lisätystä kuvasta annetaan 3 pistettä (10 itse ladatuista), mutta enintään 100 pistettä per artikkeli
{{#invoke:Viikon kilpailu kriteerit|rule|kuva|3|max=100|ownimage=10|initialimagelimit=0}}	Jokaisesta lisätystä kuvasta tai muusta tiedostosta, joka lisätään sivulle, jolla oli aikaisemmin enintään 0 tiedostoa, annetaan 3 pistettä (10 itse ladatuista), mutta enintään 100 pistettä per artikkeli
{{#invoke:Viikon kilpailu kriteerit|rule|ref|3|1}}	Jokaisesta lisätystä lähteestä annetaan 3 pistettä ja 1 pistettä viittauksesta jo olemassa olevaan lähteeseen
{{#invoke:Viikon kilpailu kriteerit|rule|ref|3|1|max=100}}	Jokaisesta lisätystä lähteestä annetaan 3 pistettä ja 1 pistettä viittauksesta jo olemassa olevaan lähteeseen, mutta enintään 100 pistettä per artikkeli
{{#invoke:Viikon kilpailu kriteerit|rule|mallineen poisto|10| Viitteetön | Lähteetön }}	Jokaisesta mallineen {{Viitteetön}} tai {{Lähteetön}} poistosta annetaan 10 pistettä
{{#invoke:Viikon kilpailu kriteerit|rule|exlink|3}}	Jokaisesta aiheesta muualla-linkin lisäämisestä annetaan 3 pistettä
{{#invoke:Viikon kilpailu kriteerit|rule|exlink|2|max=10}}	Jokaisesta aiheesta muualla-linkin lisäämisestä annetaan 2 pistettä, mutta enintään 10 pistettä per artikkeli
{{#invoke:Viikon kilpailu kriteerit|rule|osio|10|Lähteet|Viitteet}}	Jokaisesta lisätystä Lähteet tai Viitteet -osiosta annetaan 10 pistettä
{{#invoke:Viikon kilpailu kriteerit|rule|osio|10|Lähteet|Viitteet|description=lähdeosiosta}}	Jokaisesta lisätystä lähdeosiosta annetaan 10 pistettä
{{#invoke:Viikon kilpailu kriteerit|rule|wikidata|2|properties=P18,P2096}}	2 points are awarded for adding P18 tai P2096 to items that did not have such a claim from before
{{#invoke:Viikon kilpailu kriteerit|rule|wikidata|2|properties=P569|require_reference=yes}}	2 points are awarded for adding P569 to items that did not have such a claim from before (only referenced)
{{#invoke:Viikon kilpailu kriteerit|rule|wikidata|2|max=10|properties=P569|all=yes}}	2 points are awarded for adding P569 to items, mutta enintään 10 pistettä per artikkeli
{{#invoke:Viikon kilpailu kriteerit|rule|wikidata|2|labels=nb,nn,se}}	2 points are awarded for adding Wikidata label (nb, nn tai se) to items that did not have such a claim from before
{{#invoke:Viikon kilpailu kriteerit|rule|wikidata|2|aliases=nb,nn,se}}	2 points are awarded for adding Wikidata alias (nb, nn tai se) to items that did not have such a claim from before
{{#invoke:Viikon kilpailu kriteerit|rule|wikidata|2|descriptions=nb,nn,se}}	2 points are awarded for adding Wikidata description (nb, nn tai se) to items that did not have such a claim from before

---

uk = {}

local messages = {
    ['and'] = 'ja',
    ['or'] = 'tai',
    ['page_at_site'] = '%(page)s at %(site)s',
    ['argument_missing'] = 'Argumentti puuttuu: %s',
    ['anon_argument_missing'] = 'Arvoja ei annettu: %s',
    ['invalid_criterion'] = '«%s» ei ole sallittu kriteeri',
    ['invalid_rule'] = '«%s» ei ole sallittu pisteytyssääntö',

    -- Criteria

    ['templates'] = 'mallinetta',
    ['templates_criterion_singular'] = 'jotka on merkitty mallineella %s',
    ['templates_criterion_plural'] = 'jotka on merkitty mallineilla %s',

    ['categories'] = 'luokkaa',
    ['categories_criterion_singular'] = 'jotka sijaitsevat luokassa %s',
    ['categories_criterion_plural'] = 'jotka sijaitsevat luokissa %s',
    ['categories_criterion_ignore'] = ', mutta eivät kuitenkaan luokissa %s',

    ['backlinks'] = 'takaisinlinkitystä',
    ['backlinks_criterion_singular'] = 'joihin johtaa linkki sivulta %s',
    ['backlinks_criterion_plural'] = 'joihin johtaa linkki sivuilta %s',

    ['forwardlinks'] = 'edelleenlinkitystä',
    ['forwardlinks_criterion_singular'] = 'joissa on linkki sivulle %s',
    ['forwardlinks_criterion_plural'] = 'joissa on linkki sivuille %s',

    ['pages'] = 'sivua',
    ['pages_criterion_singular'] = 'yksittäiseen sivuun %s',
    ['pages_criterion_plural'] = 'sivuihin %s',

    ['sparql_criterion'] = 'jotka löytyvät [%(queryLink)s tällä SPARQL-kyselyllä]',
    ['sparql_criterion_with_explanation'] = '%(description)s ([%(queryLink)s näytä SPARQL-kysely])',

    ['bytes_criterion'] = 'joita laajennetaan vähintään %s tavulla',

    ['namespaces_criterion_singular'] = 'jotka ovat %s',  -- %s will be the name of a namespace, e.g. "luokka"
    ['namespaces_criterion_plural'] = 'jotka ovat %s',  -- %s will be the name of a namespace, e.g. "luokka"
    ['article'] = 'artikkeleita',

    ['new_criterion'] = 'jotka aloitetaan kilpailun aikana',
    ['new_criterion_with_redirects'] = 'jotka aloitetaan kilpailun aikana (sisältää myös ohjaussivut)',

    ['existing_criterion'] = 'jotka ovat olemassa ennen kilpailun aloituspäivämäärää',

    -- Rules

    ['base_rule_max'] = '%(baserule)s, mutta enintään %(maxpoints)s pistettä per artikkeli',

    ['newpage_rule'] = 'Jokaisesta uudesta artikkelista annetaan %(points)s pistettä',
    ['newredirect_rule'] = 'Jokaisesta luodusta ohjaussivusta annetaan %(points)s pistettä',
    ['page_rule'] = 'Jokaisesta hyväksytystä sivusta annetaan %(points)s pistettä',
    ['edit_rule'] = 'Jokaisesta muokkauksesta annetaan %(points)s pistettä',
    ['byte_rule'] = 'Jokaisesta lisätystä tavusta annetaan %(points)s pistettä',
    ['listbyte_rule'] = 'Jokaisesta luettelo-artikkeliin lisätystä tavusta annetaan %(points)s pistettä',
    ['word_rule'] = 'Jokaisesta lisätystä sanasta annetaan %(points)s pistettä',

    ['image_rule'] = 'Jokaisesta lisätystä kuvasta annetaan %(points)s pistettä',
    ['image_rule_limited'] = 'Jokaisesta lisätystä kuvasta tai muusta tiedostosta, joka lisätään sivulle, jolla oli aikaisemmin enintään %(initialimagelimit)s tiedostoa, annetaan %(points)s pistettä',
    ['image_rule_own'] = '(%(ownimage)s itse ladatuista)',

    ['reference_rule'] = 'Jokaisesta lisätystä lähteestä annetaan %(points)s pistettä ja %(refpoints)s pistettä viittauksesta jo olemassa olevaan lähteeseen',
   
    ['templateremoval_rule'] = 'Jokaisesta mallineen %(templates)s poistosta annetaan %(points)s pistettä',
    ['categoryremoval_rule'] = '.. %(categories)s ... annetaan %(points)s pistettä',
    ['exlink_rule'] = 'Jokaisesta aiheesta muualla-linkin lisäämisestä annetaan %(points)s pistettä',

    ['section_rule'] = 'Jokaisesta lisätystä %(sections)s -osiosta annetaan %(points)s pistettä',
    ['section_rule_desc'] = 'Jokaisesta lisätystä %(description)s annetaan %(points)s pistettä ',

    ['wikidata_rule_first'] = '%(points)s points are awarded for adding %(thing)s to items that did not have such a claim from before',
    ['wikidata_rule_all'] = '%(points)s points are awarded for adding %(thing)s to items',
    ['wikidata_rule_require_reference'] = '(only referenced)',
    ['properties'] = 'properties',
    ['labels'] = 'labels',
    ['aliases'] = 'aliases',
    ['descriptions'] = 'descriptions',
    ['label'] = 'Wikidata label',
    ['alias'] = 'Wikidata alias',
    ['description'] = 'Wikidata description',

    ['bytebonus_rule'] = 'Jokaisesta vähintään %(bytes)s tavua tuottaneesta lisäyksestä annetaan %(points)s bonuspistettä',
    ['wordbonus_rule'] = 'Jokaisesta vähintään %(words)s sanaa tuottaneesta lisäyksestä annetaan %(points)s bonuspistettä',
}

local config = {
    ['decimal_separator'] = ',',
    ['template_link_template'] = 'Malline',
    ['error_message_template'] = 'Virhe',
    -- Map localized argument values for the criterion template
    ['criteria'] = {
        ['uusi'] = 'new',
        ['löytyvä'] = 'existing',
        ['tynkä'] = 'stub',
        ['tavut'] = 'bytes',
        ['nimiavaruus'] = 'namespaces',
        ['luokka'] = 'categories',
        ['malline'] = 'templates',
        ['takaisinlinkitys'] = 'backlinks',
        ['edelleenlinkitys'] = 'forwardlinks',
        ['sivut'] = 'pages',
        ['sparql'] = 'sparql',
    },
    -- Localized argument values for the rule template
    ['rules'] = {
        ['uusi'] = 'newpage',
        ['ohjaus'] = 'newredirect',
        ['qualified'] = 'page',
        ['edit'] = 'edit',
        -- ['stub'] = '(deprecated)',
        ['tavu'] = 'byte',
        ['listtavu'] = 'listbyte',
        ['sana'] = 'word',
        ['kuva'] = 'image',
        ['ref'] = 'reference',
        ['tavubonus'] = 'bytebonus',
        ['sanabonus'] = 'wordbonus',
        ['mallineen poisto'] = 'templateremoval',
        ['osio'] = 'section',
        ['categoryremoval'] = 'categoryremoval',
        ['exlink'] = 'exlink',
        ['wikidata'] = 'wikidata'
    }
}

local category_prefix = {
    ['be'] = 'be:Катэгорыя',
    ['se'] = 'se:Kategoriija',
    ['nn'] = 'nn:Kategori',
    ['no'] = 'no:Kategori',
    ['olo'] = 'olo:Category',
    ['smn'] = 'smn:Category',
    ['default'] = 'Luokka'
}

--[ Helper methods ] ------------------------------------------------------------------

--[[ Named Parameters with Formatting Codes
     Source: <http://lua-users.org/wiki/StringInterpolation>, author:RiciLake ]]
local function sprintf(s, tab)
    return (s:gsub('%%%((%a%w*)%)([-0-9%.]*[cdeEfgGiouxXsq])',
            function(k, fmt) return tab[k] and ("%"..fmt):format(tab[k]) or
                '%('..k..')'..fmt end))
end

local function make_error(template, arg)
    return string.format(
        '{{%s|%s}}',
        config['error_message_template'],
        string.format(messages[template], arg)
    )
end

local function parse_args(frame)
    local args = {}
    local kwargs = {}
    for k, v in pairs(frame.args) do
        v = mw.text.trim(frame:preprocess(v))
        if v ~= '' then
            if type(k) == 'number' then
                args[k] = v
            else
                kwargs[k] = v
            end
        end
    end
    return args, kwargs
end

local function shift_args(in_args)
    local args = {}
    for i, v in ipairs(in_args) do
        if i > 1 then
            args[i - 1] = v
        end
    end
    return in_args[1], args
end


local function format_plural(items, item_type)
    if #items == 0 then
        return make_error('anon_argument_missing', messages[item_type])
    end
    if #items == 1 then
        return items[1]
    end
    return mw.text.listToText(items, ', ', ' ' .. messages['or'] .. ' ')
end

local function format_plural_criterion(items, item_type)
    local value = format_plural(items, item_type)
    if #items == 0 then
        return value
    end
    if #items == 1 then
        return string.format(messages[item_type .. '_criterion_singular'], value)
    end
    return string.format(messages[item_type .. '_criterion_plural'], value)
end

local function make_template_list(args)
    local templates = {}
    for i, v in ipairs(args) do
        local lang, link = string.match(v, '^([a-z]+):(.+)$')
        if lang then
            table.insert(templates, string.format('{{%s|%s|%s}}', config['template_link_template'], link, lang))
        else
            table.insert(templates, string.format('{{%s|%s}}', config['template_link_template'], v))
        end
    end
    return templates
end

local function make_category_link(v)
    local lang = 'default'
    local name = v
    local m, n = string.match(v, '^([a-z]+):(.+)$')
    if m then
        lang = m
        name = n
    end
    return string.format('[[:%s:%s|%s]]', category_prefix[lang], name, name)
end

local function make_category_list(args)
    local category_links = {}
    for i, v in ipairs(args) do
        v = mw.text.trim(v)
        if v ~= '' then
            table.insert(category_links, make_category_link(v))
        end
    end
    return category_links
end

local function pagelist(args)
    local r = {}
    for i, v in ipairs(args) do
        v = mw.text.trim(v)
        if v ~= '' then
            local lang, page = string.match(v, '^([a-z]+):(.+)$')
            if lang then
                table.insert(r, string.format('[[:%s:%s|%s]]', lang, page, page))
            else
                table.insert(r, string.format('[[:%s]]', v))
            end
        end
    end
    return r
end

local function nslist(args)
    local r = {}
    local namespaceName = messages['article']
    for i, namespaceId in ipairs(args) do
        namespaceId = mw.text.trim(namespaceId)
        if namespaceId ~= '' then
            if namespaceId ~= "0" then
                namespaceName = '{{lc:{{ns:' .. namespaceId .. '}}}}'
            end
            table.insert(r, namespaceName)
        end
    end
    return r
end

--[ Criterion format methods ]-------------------------------------------------------------

local criterion = {}

function criterion.backlinks(args, kwargs, frame)
    return format_plural_criterion(pagelist(args), 'backlinks')
end

function criterion.bytes(args, kwargs, frame)
   return string.format(messages['bytes_criterion'], args[1])
end

function criterion.categories(args, kwargs, frame)
    local msg = format_plural_criterion(make_category_list(args), 'categories')

    if args.ignore ~= nil then
        r = mw.text.split(args.ignore, ',')
        for i, v in ipairs(r) do
            v = mw.text.trim(v)
            r[i] = make_category_link(v)
        end
        msg = msg .. string.format(messages['category_criterion_ignore'], mw.text.listToText(r, ', ', ' ' .. messages['or'] .. ' '))
    end

    return msg
end

function criterion.existing(args, kwargs, frame)
    return messages['existing_criterion']
end

function criterion.forwardlinks(args, kwargs, frame)
    return format_plural_criterion(pagelist(args), 'forwardlinks')
end

function criterion.namespaces(args, kwargs, frame)
    local site = kwargs.site
    local msg = format_plural_criterion(nslist(args, site), 'namespaces')
    if site ~= nil then
        return sprintf(messages['page_at_site'], {
            ['page'] = msg,
            ['site'] = string.format('[https://%s %s]', site, site),
        })
    end
    return msg
end

function criterion.new(args, kwargs, frame)
    local msg = messages['new_criterion']
    if kwargs.redirects ~= nil then
        msg = messages['new_criterion_with_redirects']
    end
    return msg
end

function criterion.pages(args, kwargs, frame)
    return format_plural_criterion(pagelist(args), 'pages')
end

function criterion.sparql(args, kwargs, frame)
    local query = 'SELECT DISTINCT ?item WHERE {\n  ' .. kwargs.query .. '\n}'
    local queryToolQuery='SELECT ?item ?itemLabel ?itemDescription WITH {' .. query ..'} AS %items WHERE { include %items .   SERVICE wikibase:label { bd:serviceParam wikibase:language "fi,se,smn,en". } }'

    local url = 'http://query.wikidata.org/#' .. frame:callParserFunction('urlencode', { queryToolQuery, 'PATH' })
    local vizUrl = 'https://tools.wmflabs.org/hay/vizquery/#' .. frame:callParserFunction('urlencode', { query, 'PATH' })

    if kwargs.description ~= nil then
        return sprintf(messages['sparql_criterion_with_explanation'], {
            description = kwargs.description,
            queryLink = url,
            vizQueryLink = vizUrl
        })
    end

    return sprintf(messages['sparql_criterion'], {
        queryLink=url,
        vizQueryLink=vizUrl
    })
end

function criterion.stub(args, kwargs, frame)
    -- deprecated
    return messages['stub_criterion']
end

function criterion.templates(args, kwargs, frame)
    return format_plural_criterion(make_template_list(args), 'templates')
end

function criterion.format(frame)
    local args, kwargs = parse_args(frame)
    local criterion_arg, args = shift_args(args)

    -- Try to find the corresponding formatter or bail out if not found
    if criterion_arg == nil then
        return frame:preprocess(make_error('argument_missing', 'criterion'))
    end
    local formatter = config.criteria[criterion_arg]
    if formatter == nil or criterion[formatter] == nil then
        return frame:preprocess(make_error('invalid_criterion', criterion_arg))
    end

    -- Use manual description if given
    if kwargs.description ~= nil and formatter ~= 'sparql' then
        return kwargs.description
    end

    -- Generate auto-generated description
    return frame:preprocess(criterion[formatter](args, kwargs, frame))
end

--[ Rule format methods ]-------------------------------------------------------------

local rule = {}

function rule.image(points, args, kwargs)
    local out
    local tplargs = {
        ['points'] = points,
    }
    if kwargs.initialimagelimit ~= nil then
        out = messages['image_rule_limited']
        tplargs['initialimagelimit'] = kwargs.initialimagelimit
    else
        out = messages['image_rule']
    end
    if kwargs.ownimage ~= nil then
        out = out .. ' ' .. messages['image_rule_own']
        tplargs['ownimage'] = kwargs.ownimage
    end
    return sprintf(out, tplargs)
end

function rule.wikidata(points, args, kwargs)
    local out
    local params
    local arg_types = { messages['properties'], messages['labels'], messages['aliases'], messages['descriptions'] }
    local results = {}
    if kwargs.properties == nil and kwargs.labels == nil and kwargs.aliases == nil and kwargs.descriptions == nil then
        return make_error(
            'argument_missing',
            mw.text.listToText( arg_types, ', ', ' ' .. messages['or'] .. ' ' )
        )
    end
    if kwargs.properties ~= nil then
        params = mw.text.split(kwargs.properties, ',')
        for k, v in pairs(params) do
            params[k] = string.format('[[:d:Property:%s|%s]]', v, v)
        end
        table.insert(results, mw.text.listToText( params, ', ', ' ' .. messages['or'] .. ' ' ))
    end
    if kwargs.labels ~= nil then
        params = mw.text.split(kwargs.labels, ',')
        table.insert(results, messages['label'] .. ' (' .. mw.text.listToText( params, ', ', ' ' .. messages['or'] .. ' ' ) .. ')')
    end
    if kwargs.aliases ~= nil then
        params = mw.text.split(kwargs.aliases, ',')
        table.insert(results, messages['alias'] .. ' (' .. mw.text.listToText( params, ', ', ' ' .. messages['or'] .. ' ' ) .. ')')
    end
    if kwargs.descriptions ~= nil then
        params = mw.text.split(kwargs.descriptions, ',')
        table.insert(results, messages['description'] .. ' (' .. mw.text.listToText( params, ', ', ' ' .. messages['or'] .. ' ' ) .. ')')
    end
    results = table.concat( results, ' ' .. messages['and'] .. ' ' )
    if kwargs.all ~= nil then
        out = messages['wikidata_rule_all']
    else
        out = messages['wikidata_rule_first']
    end
    if kwargs.require_reference ~= nil then
        out = out .. ' ' .. messages['wikidata_rule_require_reference']
    end
    return sprintf(out, {
        ['points'] = points,
        ['thing'] = results,
    })
end

function rule.reference(points, args, kwargs)
    return sprintf(messages['reference_rule'], {
        ['points'] = points,
        ['refpoints'] = args[1],
    })
end

function rule.templateremoval(points, args, kwargs)
    local templates = format_plural(make_template_list(args), 'templates')
    return sprintf(messages['templateremoval_rule'], {
        ['points'] = points,
        ['templates'] = templates,
    })
end

function rule.categoryremoval(points, args, kwargs)
    local categories = format_plural(make_category_list(args), 'categories')
    return sprintf(messages['categoryremoval_rule'], {
        ['points'] = points,
        ['categories'] = categories,
    })
end

function rule.bytebonus(points, args, kwargs)
    return sprintf(messages['bytebonus_rule'], {
        ['points'] = points,
        ['bytes'] = args[1],
    })
end

function rule.section(points, args, kwargs)
    if kwargs.description ~= nil then
        return sprintf(messages['section_rule_desc'], {
            ['points'] = points,
            ['description'] = kwargs.description,
        })
    end
    local sections = format_plural(args, 'sections')
    return sprintf(messages['section_rule'], {
        ['points'] = points,
        ['sections'] = sections,
    })
end

function rule.wordbonus(points, args, kwargs)
    return sprintf(messages['wordbonus_rule'], {
        ['points'] = points,
        ['words'] = args[1],
    })
end

function rule.format(frame)
    -- Make tables of anonymous and named arguments
    local args, kwargs = parse_args(frame)
    rule_arg, args = shift_args(args)
    points, args = shift_args(args)

    -- Try to find the corresponding formatter or bail out if not found
    if rule_arg == nil then
        return frame:preprocess(make_error('argument_missing', 'rule'))
    end
    local formatter = config.rules[rule_arg]
    if formatter == nil then
        return frame:preprocess(make_error('invalid_rule', rule_arg))
    end

    -- All rules requires argument 1: number of points awarded
    if points == nil then
        return frame:preprocess(make_error('argument_missing', '1 (number of points)'))
    end

    points = points:gsub( '%.', config['decimal_separator'])

    -- If there's a rule formatter function, use it.
    -- Otherwise, use the string from the messages table.
    local out
    if rule[formatter] ~= nil then
        out = rule[formatter](points, args, kwargs)
    else
        out = sprintf(messages[formatter .. '_rule'], {
            ['points'] = points,
        })
    end

    if kwargs.max ~= nil then
        out = sprintf(messages['base_rule_max'], {
            ['baserule'] = out,
            ['maxpoints'] = kwargs.max:gsub( '%.', config['decimal_separator']),
        })
    end

    return frame:preprocess(out)
end

-- Export
return {
    ['criterion'] = criterion.format,
    ['rule'] = rule.format,
}