模組:Delete2

local mDelete = require('Module:Delete')
local mDelcat = require('Module:Delcat')
local getArgs = require('Module:Arguments').getArgs
local mYesno

local data = require('Module:Delete/data')
local _data_sandbox
-- lazy load
local function get_data_sandbox()
	if not _data_sandbox then
		local data_sandbox = require('Module:Delete/data/sandbox')
		_data_sandbox = data_sandbox
	end
	return _data_sandbox
end

local z = {}

local function yesno(value)
	if not mYesno then
		mYesno = require('Module:Yesno')
	end
	return mYesno(value)
end

local function extractAliases(item)
    allnames = {item['code']}
    for j, alias in ipairs(item['aliases']) do
        table.insert(allnames, alias)
    end
    return allnames
end

local function extractShortDesc(item)
    if item['description'] then
        return item['description']:gsub('{', '&#123;'):gsub('}', '&#125;'):gsub('|', '&#124;')
    else
        return ''
    end
end

local function isSandbox(frame)
	return yesno(frame.args.sandbox)
end

local function makeReasonsBox(frame, data)
    local wt = [=[
{| class="wikitable" width="100%"
|-
!width="7%"|速刪編號
!width="7%"|可使用的代碼
!width="25%"|簡介
!width="61%"|詳細說明
    ]=]
    for i, item in ipairs(data) do
        allnames = '\n* ' .. table.concat(extractAliases(item), '\n* ')

        local code = item.code
        local criteria = item.criteria
        if item.isRevoked then
        	code = '<span style="color: var(--color-disabled, #a2a9b1); text-decoration: line-through;">' .. code .. '</span>'
        	allnames = '<div class="skin-invert" style="color: var(--color-disabled, #a2a9b1); text-decoration: line-through;">' .. allnames .. '\n</div>'
        	criteria = criteria .. '\n<span style="color: var(--color-destructive, #bf3c2c);     font-weight: bold;">' .. item._getRevokeMessage() .. '</span>'
        end
        wt = wt .. string.format([=[
|-
|%s
|%s
|%s
|%s
        ]=],
        code,
        allnames,
        criteria,
        extractShortDesc(item):gsub('&#123;&#123;subst:', '{{tls|'):gsub('&#123;&#123;', '{{tl|'):gsub('&#124;', '|'):gsub('&#125;&#125;', '}}'))
    end
    wt = wt .. '|}'
    return frame:preprocess(wt)
end

function z.reasonsBox(frame)
	return makeReasonsBox(frame, isSandbox(frame) and get_data_sandbox() or data)
end

local function CSD_reason(frame, isSandbox)
    local args = getArgs(frame, {
        parentFirst = true
    })
    local rows = mDelete._input(args, {
        maxArgs = 1,
        data = isSandbox and get_data_sandbox() or data
    })
    local item = rows and rows[1] or nil
    if not item or not item['code'] then
        return '[[WP:快速删除|' .. (args[2] or '快速删除方针') .. ']]'
    elseif item['code'] == '' then
        return require('Module:Error').error{'錯誤：無法找到速刪代碼為<code>' .. args[1] .. '</code>的速刪項目。'}
    else
        local text = ''
        if args[2] ~= nil and args[2] ~= '' then
            text = args[2]
        elseif args['notCSD'] ~= nil and args['notCSD'] ~= '' then
        	text = item['code']
        else
            text = 'CSD ' .. item['code']
        end
        if args.nolink then
            return text
        elseif args.reason then
            return '[[WP:快速删除#' .. item['code'] .. '|' .. text .. ']]：<span title="' .. extractShortDesc(item) .. '">' .. item['criteria'] .. '</span>'
        elseif args.onlyreason then
            return '<span title="' .. extractShortDesc(item) .. '">' .. item['criteria'] .. '</span>'
        else
            return '[[WP:快速删除#' .. item['code'] .. '|' .. text .. ']]'
        end
    end
end

function z.CSD_reason(frame)
    return CSD_reason(frame, isSandbox(frame))
end

function z._getInputWithoutError(args)
   local rows = mDelete._input(args, {
        maxArgs = 10,
        checkFunc = false,
        checkFile = true,
        parseCommit = false
    })
    if not rows then
        return nil
    end
    local outputs = {}
    for _, item in ipairs(rows) do
        if item['code'] and item['code'] ~= '' then
            local imgLink = ''
            -- special case for F1/F5
            if item['code'] == 'F1' or item['code'] == 'F5' then
                if item['imgLink'] then
                    imgLink = '（' .. item['imgLink'] .. '）'
                end
            end
         
            table.insert(outputs, '* [[WP:快速删除#' .. item['code'] .. '|CSD ' .. item['code'] .. ']]：<b>' .. item['criteria'].. '</b>' .. imgLink )
        elseif item['code'] == '' then
        	local arg = item['criteria']
            -- try to read it as a title
            local success, aTitle = mw.title.new(mw.text.trim(arg))
            if aTitle and aTitle.exists then
                table.insert(outputs, '* <b>' .. '[[:' .. arg .. ']]</b>')
            else
                arg = string.gsub(arg, '^([*:#]*)(.*)', '%1<b>%2</b>')
                table.insert(outputs, '* ' .. arg)
            end
        end

        if item['commit'] then
            table.insert(outputs, '*' .. item['commit'])
        end
    end
    
    return mw.text.trim(table.concat(outputs, '\n'))
end

function z.getInputWithoutError(frame)
    local args = frame:getParent().args
    local out = z._getInputWithoutError(args);
    if not out then
        return '* <span style="color:#080;">（未填寫理由）</span>'
    end
    return out
end

z.reasons_box = z.reasonsBox

return z