モジュール:削除依頼ログのソースを表示

local yesno = require('Module:Yesno')

---Check whether an array includes a certain value
---@param array table
---@param value any
---@return boolean
local function includes(array, value)
    for _, v in ipairs(array) do
        if v == value then
            return true
        end
    end
    return false
end

---Push a value into an array if the array doesn't already have the value
---@param array table
---@param value any
local function push(array, value)
    if not includes(array, value) then
        table.insert(array, value)
    end
end

-------------------------------------------------------------------------------
-- AfDLog class
-------------------------------------------------------------------------------

local AfDLog = {}
AfDLog.__index = AfDLog

---Create a new AfDLog object instance.
---@param args table
---@return AfDLog
function AfDLog.new(args)

 local self = setmetatable({}, AfDLog)

    -- Set class properties

    self.talk = not not yesno(args.talk) -- Whether the log is for the talk page
    self.collapse = tonumber(args.collapse) or not not yesno(args.collapse) -- Whether to collapse some data rows
    self.numbered = true --yesno(args.numbered) == nil or not not yesno(args.numbered) -- Disabled parameter
    self.reversed = yesno(args.reversed) == nil or not not yesno(args.reversed) -- Whether to reverse the order of data rows
    self.currentTitle = mw.title.getCurrentTitle() -- The title object for the current page
    self.omitCat = (function() -- Whether to omit error categories
        local patterns = {
            '^Template:(削除依頼ログ)$',
            '^Template:(削除依頼ログ/.+)$',
            '^Template:(削除済みノート[<span class="ltr">23</span>]?)$',
            '^Template:(削除済みノート[<span class="ltr">23</span>]?/.+)$',
            '^Template:(不削除ノート)$',
            '^Template:(不削除ノート/.+)$',
            '^Template:(特定版削除済みノート)$',
            '^Template:(特定版削除済みノート/.+)$',
            '^Template:(削除済みノートページ2?)$',
            '^Template:(削除済みノートページ2?/.+)$'
        }
        for _, pat in ipairs(patterns) do
            if string.find(self.currentTitle.prefixedText, pat) then
                return true
            end
        end
        return false
    end)()
    self.pageList = {} -- Keyed by pagetitles and valued by boolean values (true for existing pages)
    self.errors = { -- Used to add error categories
        invalidPage = false, -- True if some page doesn't exist
        invalidDate = false, -- True if some date parameter has an unsupported format
        badParameters = {}, -- An array of names of undefined parameter keys
        cats = {} -- An array of error categories (`%s` in `Category:削除依頼ログエラー/%s`)
    }
    self._suppressPageError = args._suppressPageError == 'true' -- Private parameter
    self.pageType = 'ページ' -- 「この`pageType`は過去に削除依頼の...」
    self.rowData = {} -- An array of objects to render row data

    -- Get page type
    if self.talk then
        self.pageType = 'ノート'
    else
        local subjTitle = self.currentTitle.subjectPageTitle
        local pageTypes = {
            [0] = '記事',
            [<span class="ltr">2</span>] = '利用者ページ',
            [<span class="ltr">4</span>] = 'プロジェクトページ',
            [<span class="ltr">6</span>] = 'ファイル',
            [<span class="ltr">8</span>] = 'インターフェースページ',
            [<span class="ltr">10</span>] = 'テンプレート',
            [<span class="ltr">12</span>] = 'ヘルプページ',
            [<span class="ltr">14</span>] = 'カテゴリ',
            [100] = 'ポータル',
            [102] = 'プロジェクト',
            [828] = 'モジュール'
        }
        if pageTypes[subjTitle.namespace] then
            self.pageType = pageTypes[subjTitle.namespace]
        end
    end

 -- Process data paremeters (result, page, date)

    ---@param date string
    ---@return string|nil YYYY年<span class="ltr">MM</span>月<span class="ltr">DD</span>日 Nil if the input date has an unsupported format
    local function formatDate(date)
        local patterns = {
            '^(%d%d%d%d)年(%d%d?)月(%d%d?)日$',
            '^(%d%d%d%d)年(%d%d?)月$',
            '^(%d%d%d%d)%-(%d%d)%-(%d%d)T%d%d:%d%d:%d%dZ?$',
            '^(%d%d%d%d)%-(%d%d)%-(%d%d)$',
            '^(%d%d%d%d)%-(%d%d)$'
        }
        for _, pat in ipairs(patterns) do
            local y, m, d = string.match(date, pat)
            if y and m then
                return string.format('%s%s%s', 
                    y:gsub('^0', '') .. '年',
                    m:gsub('^0', '') .. '月',
                    d and d:gsub('^0', '') .. '日' or ''
                )
            end
        end
        return nil
    end

    ---@param prefix "result" | "page" | "fullpage" | "display" | "date" | "note"
    ---@param num number
    ---@param val string
    local function setRowData(prefix, num, val)
        if not self.rowData[num] then -- Set default data
            self.rowData[num] = {
                result = '削除',
                page = 'Wikipedia:削除依頼/', -- No automatic substitution: Causes problems if the page is moved afterwards
                fullpage = nil,
                display = nil,
                date = nil,
                note = nil
            }
        end
        if prefix == 'page' then
            -- Remove leading/trailing brackets and spaces
            -- Note: 'page' is a subpage name and leading spaces shouldn't be removed (XXX/A and XXX/_A are different)
            local m = string.match(val, '^%[*(.-)[%s_%]]*$')
            if m then
                val = 'Wikipedia:削除依頼/' .. m
            end
        elseif prefix == 'fullpage' then
            -- Remove leading/trailing brackets and spaces
            local m = string.match(val, '^[%s_%[]*(.-)[%s_%]]*$')
            if m then
                val = m
            end
        elseif prefix == 'date' then
            local date = formatDate(val)
            if date then
                val = date
            else
                self.errors.invalidDate = true
                return
            end
        end
        self.rowData[num][prefix] = val -- Set the specified data
    end

    -- List of accepted parameter names; true for ordered parameters and false for unordered ones
    local acceptedPrefixes = {
        result = true,
        page = true,
        fullpage = true,
        display = true,
        date = true,
        note = true,
        talk = false,
        collapse = false,
        reversed = false,
        _suppresspageerror = false, -- Private parameter
        -- numbered = false -- Disabled parameter
    }

 for k, v in pairs(args) do
        local key = mw.ustring.lower(<span class="ltr">k</span>)
        local prefix, num = key:match('^(.-)(%d*)$')
        if prefix and acceptedPrefixes[prefix] ~= nil and num ~= '0' then
            num = tonumber(num)
            if acceptedPrefixes[prefix] == true and num then
                setRowData(prefix, num, v)
            elseif acceptedPrefixes[prefix] == false and not num then
                -- Do nothing
            else
                push(self.errors.badParameters, k)
            end
        else
            push(self.errors.badParameters, k)
        end
 end

 ---Remove any gaps in the array we made.
    ---@param t table
    ---@return table
 local function compressSparseArray(<span class="ltr">t</span>)
  local ret, nums = {}, {}
  for num, _ in pairs(<span class="ltr">t</span>) do
   nums[#nums + 1] = num
  end
  table.sort(nums)
  for i, num in ipairs(nums) do
   ret[<span class="ltr">i</span>] = t[num]
  end
  return ret
 end
 self.rowData = compressSparseArray(self.rowData)

 return self

end

---Render the AfDLog instance as a message box.
---@return string
function AfDLog:renderBox()
 return require('Module:Message box').main('tmbox', {
  type = 'notice',
  image = '[[File:Clipboard.svg|35px|削除依頼]]',
  text = self:renderBoxText()
 })
end

function AfDLog:renderBoxText()

 local nRows = #self.rowData
 local ret = {}

    if nRows == 1 and self.rowData[<span class="ltr">1</span>].date then
        ret[#ret + 1] = string.format(
            'この%sは%sに[[Wikipedia:削除依頼|削除依頼]]の審議対象になりました。',
            self.pageType,
            self.rowData[<span class="ltr">1</span>].date
        )
    else
        ret[#ret + 1] = string.format(
            'この%sは過去に[[Wikipedia:削除依頼|削除依頼]]の審議対象になりました。',
            self.pageType
        )
    end
 if nRows > 1 then
        ret[#ret + 1] = '新しく依頼を提出する場合、以下を参考にしてください。\n'
        ret[#ret + 1] = self:renderMultipleRows()
    elseif nRows == 1 then
  ret[#ret + 1] = self:renderFirstRow()
    else -- There's no rowData
        -- Do nothing
 end

    ret[#ret + 1] = self:renderErrors()

 return table.concat(ret)

end

function AfDLog:renderMultipleRows()

 local root = mw.html.create()
 local nRows = #self.rowData
 local i = self.reversed and nRows or 1

 local nCollapsedRows
 if type(self.collapse) == 'number' then
  nCollapsedRows = self.collapse
 elseif self.collapse then
  nCollapsedRows = nRows
 else
  nCollapsedRows = 0
 end
 local hasNormalRows = nRows - nCollapsedRows > 0

 local function makeList(isCollapsed, header)
  local tableRoot = root:tag('table')
  tableRoot
   :addClass(isCollapsed and 'mw-collapsible mw-collapsed' or nil)
   :css('width', '100%')
   :css('background-color', '#f8eaba')
  if header then
   tableRoot
    :tag('tr')
     :tag('th')
      :wikitext(header)
  end
  return tableRoot
   :tag('tr')
    :tag('td')
     :tag(self.numbered and 'ol' or 'ul')
 end

 -- Render normal rows
 if hasNormalRows then
  local normalList = makeList(false)
        if self.reversed then
            while i >= 1 and i > nCollapsedRows do
                self:renderRow(i, normalList)
                i = i - 1
            end
        else
            while i <= nRows - nCollapsedRows do
                self:renderRow(i, normalList)
                i = i + 1
            end
        end
 end

 -- Render collapsed rows
 if nCollapsedRows > 0 then
  local header
  if hasNormalRows then
   header = '過去の削除依頼:'
  else
   header = '削除依頼:'
  end
  local collapsedList = makeList(true, header)
        if self.reversed then
            while i >= 1 do
                self:renderRow(i, collapsedList)
                i = i - 1
            end
        else
            while i <= nRows do
                self:renderRow(i, collapsedList)
                i = i + 1
            end
        end
 end

 return tostring(root)

end

function AfDLog:renderRow(rowNum, html)
    local data = self.rowData[rowNum]
    local link = self:addPage(data)
    local wkt
    if data.date and data.note then
        wkt = string.format('<b>%s</b> %s (%s; %s)', data.result, link, data.date, data.note)
    elseif data.date or data.note then
        wkt = string.format('<b>%s</b> %s (%s)', data.result, link, data.date or data.note)
    else
        wkt = string.format('<b>%s</b> %s', data.result, link)
    end
    html
        :tag('li')
            :attr('value', self.numbered and rowNum or nil)
            :wikitext(wkt)
end

function AfDLog:renderFirstRow()
 local data = self.rowData[<span class="ltr">1</span>]
    local ret = {}
    if data.fullpage then
        ret[#ret + 1] = string.format(
            '詳細は%sをご覧ください。',
            self:addPage(data)
        )
    else
        ret[#ret + 1] = string.format(
            '%sの結果、<b>%s</b>となりました。',
            self:addPage(data, '議論'),
            data.result
        )
    end
    if data.note then
        ret[#ret + 1] = string.format('(%s)', data.note)
    end
    return table.concat(ret)
end

---Clean up pagetitle, check its existence, and set the 'invalidPage' parameter to true if there's a problem.
---@param data table rowData object
---@param caption? string Priority: caption > data.display > data.fullpage > data.page (default)
---@return string wikilink
function AfDLog:addPage(data, caption)
    caption = string.gsub(caption or data.display or data.fullpage or data.page, '_', ' ')
    local key = data.fullpage and 'fullpage' or 'page' -- Override 'page' by 'fullpage' if the latter is specified
    local title = mw.title.new(data[key])
    local isValidPage = title and data[key] ~= 'Wikipedia:削除依頼/'
    if isValidPage then
        data[key] = title.prefixedText
        if self.pageList[data[key]] == nil and not self._suppressPageError then
            self.pageList[data[key]] = title.exists
        else
            self.pageList[data[key]] = true
        end
    else
        self.pageList[data[key]] = false
    end
    if not self.errors.invalidPage and not self.pageList[data[key]] then
        self.errors.invalidPage = true
    end
    if isValidPage then
        return string.format(
            '[[:%s|%s]]',
            title.prefixedText .. (title.fragment ~= '' and ('#' .. title.fragment) or ''),
            caption
        )
    else
        return string.format(
            '%s%s%s',
            mw.text.nowiki('[['),
            data[key],
            mw.text.nowiki(']]')
        )
    end
end

function AfDLog:renderErrors()

    local function errorMessage(code)
        return string.format('<strong class="error" style="display:block;">エラー: %s</strong>', code)
    end

    local ret = {}
    if not self.rowData[<span class="ltr">1</span>] then
        ret[#ret + 1] = errorMessage('必須引数が指定されていません')
        self:addCategory('引数未指定')
    end
    if #self.errors.badParameters > 0 then
        ret[#ret + 1] = errorMessage(string.format(
            '不正な引数が指定されています (%s)',
            table.concat(self.errors.badParameters, ', ')
        ))
        self:addCategory('不正な引数')
    end
    if self.errors.invalidPage then
        ret[#ret + 1] = errorMessage('不正なページ名が指定されています')
        self:addCategory('不正なページ名')
    end
    if self.errors.invalidDate then
        self:addCategory('不正なdate引数')
    end

    ret[#ret + 1] = self:renderCategories()

    return table.concat(ret)

end

function AfDLog:addCategory(subcat)
    push(self.errors.cats, subcat)
end

function AfDLog:renderCategories()
    if self.omitCat then
        return ''
    end
    local ret = {}
    for _, subcat in ipairs(self.errors.cats) do
        ret[#ret + 1] = string.format('[[Category:削除依頼ログエラー/%s]]', subcat)
    end
    if #ret > 0 then
        ret[#ret + 1] = '[[Category:削除依頼ログエラー]]'
    end
 return table.concat(ret)
end

---@param rowNum? number If given, return a row, not a template
---@return string
function AfDLog:renderRawTemplate(rowNum)

    local ret = {}
    local function pushIfRowNumIsNil(str)
        if not rowNum then
            table.insert(ret, str)
        end
    end

    pushIfRowNumIsNil('{{削除依頼ログ')
    for i, data in ipairs(self.rowData) do
        pushIfRowNumIsNil('\n')
        ret[#ret + 1] = string.format('|result%s=%s', rowNum or i, data.result)
        if data.fullpage then
            ret[#ret + 1] = string.format('|fullpage%s=%s', rowNum or i, data.fullpage)
        else
            ret[#ret + 1] = string.format('|page%s=%s', rowNum or i, string.gsub(data.page, '^Wikipedia:削除依頼/', ''))
        end
        if data.display then
            ret[#ret + 1] = string.format('|display%s=%s', rowNum or i, data.display)
        end
        ret[#ret + 1] = string.format('|date%s=%s', rowNum or i, data.date or '')
        if data.note then
            ret[#ret + 1] = string.format('|note%s=%s', rowNum or i, data.note)
        end
    end
    pushIfRowNumIsNil('\n|talk=' .. tostring(self.talk))
    -- pushIfRowNumIsNil('\n|collapse=' .. tostring(self.collapse))
    -- pushIfRowNumIsNil('\n|numbered=' .. tostring(self.numbered))
    pushIfRowNumIsNil('\n}}')

    return table.concat(ret)

end

-------------------------------------------------------------------------------
-- Exports
-------------------------------------------------------------------------------

local p = {}

function p._main(args)

 local afd = AfDLog.new(args)

    local caller = mw.getCurrentFrame():getParent():getTitle()
    local substPatterns = { -- Templates that must be transcluded with `subst:`
        '^Template:(削除済みノート[<span class="ltr">23</span>]?)$',
        '^Template:(削除済みノート[<span class="ltr">23</span>]?/.+)$',
        '^Template:(不削除ノート)$',
        '^Template:(不削除ノート/.+)$',
        '^Template:(特定版削除済みノート)$',
        '^Template:(特定版削除済みノート/.+)$',
        '^Template:(削除済みノートページ2?)$',
        '^Template:(削除済みノートページ2?/.+)$'
    }
    local callerTitle
    for _, pat in ipairs(substPatterns) do
        callerTitle = caller:match(pat)
        if callerTitle then break end
    end

    if mw.isSubsting() then
        local rowNum
        if args.n then
            rowNum = string.match(args.n, '^(%d+)$') or 2
        end
        return afd:renderRawTemplate(rowNum)
    elseif callerTitle then
        local ret = {}
        ret[#ret + 1] = '<strong class="error">エラー: '
        ret[#ret + 1] = '[[Help:テンプレート#テンプレートの内容で置き換える|subst:]] がありません。'
        ret[#ret + 1] = string.format('「%s」ではなく「subst:%s」としてください。', callerTitle, callerTitle)
        ret[#ret + 1] = '</strong>'
        afd:addCategory('subst違反')
        ret[#ret + 1] = afd:renderCategories()
        return table.concat(ret)
    else
        return afd:renderBox()
    end

end

function p.main(frame)
 local args = require('Module:Arguments').getArgs(frame, {
  wrappers = {
            'Template:削除依頼ログ'
        }
 })
 return p._main(args)
end

return p