Module:Automatic archive navigator/sandbox
< Module:Automatic archive navigator
Jump to navigation
Jump to search
Revision as of 14:00, 5 October 2014 by blackwiki>Mr. Stradivarius (add a wikitable function and use a metatable to make an #invoke function for Template:Talk archive navigation as well as for Template:Automatic archive navigator)
Documentation for this module may be created at Module:Automatic archive navigator/sandbox/doc
--
-- This module implements {{Automatic archive navigator}}
--
local p = {}
local function makeWikilink(page, display)
return string.format('[[%s|%s]]', page, display)
end
local function makeLinksWikitable(links)
-- Makes a single-row wikitable from an array of links
local ret = {}
ret[#ret + 1] = '{| style="width: 32em; background: transparent; margin: 0 auto 0.5em; text-align: center"'
for _, link in ipairs(links) do
ret[#ret + 1] = '\n| '
ret[#ret + 1] = link
end
ret[#ret + 1] = '\n|}'
return table.concat(ret)
end
local function getSubpageLink(offset, currentTitle)
-- Get a formatted link to the subpage a certain distance away, or nil
-- if that subpage does not exist. e.g. If the current subpage is
-- /Archive 27, then getSubpageLink(3, currentTitle) returns a link to Archive 30.
local subpageName
local archiveNum = currentTitle.subpageText:match('^Archive ([1-9][0-9]*)$')
archiveNum = tonumber(archiveNum)
if archiveNum then
subpageName = 'Archive ' .. (archiveNum + offset)
elseif tonumber(currentTitle.subpageText) then
subpageName = currentTitle.subpageText + offset
else
return nil -- Couldn't parse out a subpage number
end
local subpageTitle = mw.title.new(currentTitle.baseText .. '/' .. subpageName, currentTitle.namespace)
if subpageTitle.exists then
return makeWikilink('/' .. subpageName, subpageName)
else
return nil
end
end
local function getLinksText(args, currentTitle)
local nbsp = ' '
local arrowSpacer, linkSpacer
if mw.ustring.len(currentTitle.subpageText) <= 4 then
-- If page names are short, we want more space.
arrowSpacer = nbsp:rep(5)
linkSpacer = nbsp:rep(7)
else
arrowSpacer = nbsp:rep(2)
linkSpacer = nbsp:rep(4)
end
local ret = {}
for offset = -5, -3 do
local link = getSubpageLink(offset, currentTitle)
if link then
if offset == -3 then
ret[#ret + 1] = link
ret[#ret + 1] = linkSpacer
else
ret[#ret + 1] = link
ret[#ret + 1] = ' ←'
ret[#ret + 1] = arrowSpacer
end
break
end
end
for offset = -2, -1 do
local link = getSubpageLink(offset, currentTitle)
if link then
ret[#ret + 1] = link
ret[#ret + 1] = linkSpacer
end
end
ret[#ret + 1] = '<span style="font-size:115%;">'
ret[#ret + 1] = makeWikilink(currentTitle.prefixedText, currentTitle.subpageText)
ret[#ret + 1] = '</span>'
for offset = 1, 2 do
local link = getSubpageLink(offset, currentTitle)
if link then
ret[#ret + 1] = linkSpacer
ret[#ret + 1] = link
end
end
for offset = 5, 3, -1 do
local link = getSubpageLink(offset, currentTitle)
if link then
if offset == 3 then
ret[#ret + 1] = linkSpacer
ret[#ret + 1] = link
else
ret[#ret + 1] = arrowSpacer
ret[#ret + 1] = '→ '
ret[#ret + 1] = link
end
break
end
end
return table.concat(ret)
end
local function getMessage(args, currentTitle)
if args[1] == '1' then
return ''
else
local msg = '----\n'
if args.text then
msg = msg .. args.text
else
msg = msg .. "This is an '''[[Help:Archiving a talk page|archive]]''' of past discussions"
if args.period then
msg = msg .. " for the period '''" .. args.period .. "'''"
end
msg = msg .. ". '''Do not edit the contents of this page.''' If you wish to start a new discussion or revive an old one, please do so on the "
msg = msg .. makeWikilink(currentTitle.rootPageTitle.fullText, 'current talk page') .. '.'
end
return msg
end
end
function p._aan(args, currentTitle)
currentTitle = currentTitle or mw.title.getCurrentTitle()
local image = args.image
if not image then
image = '[[File:' .. (args.icon or 'Replacement filing cabinet.svg') .. '|40x40px|alt=|link=]]'
end
local mbox = require('Module:Message box').main('tmbox', {
image = image,
imageright = args.imageright,
style = args.style or 'width:80%;margin-left:auto;margin-right:auto;',
textstyle = args.textstyle or 'text-align:center;',
text = getLinksText(args, currentTitle) .. '\n' .. getMessage(args, currentTitle)
})
return mbox .. '__NONEWSECTIONLINK__ __NOEDITSECTION__'
end
function p._tan(args)
args.links = args.links or 3
args.noredlinks = args.noredlinks or false
return p._aan(args)
end
setmetatable(p, {__index = function(t, k)
return function(frame)
local args = require('Module:Arguments').getArgs(frame, {
wrappers = {
'Template:Automatic archive navigator',
'Template:Talk archive navigation'
}
})
return p['_' .. k](args)
end
end})
return p