Module:Documentation

-- This module implements.

-- Get required modules. local getArgs = require('Module:Arguments').getArgs local htmlBuilder = require('Module:HtmlBuilder') local messageBox = require('Module:Message box')

local p = {}

-- Constants. local currentTitle = mw.title.getCurrentTitle local subjectSpace = mw.site.namespaces[currentTitle.namespace].subject.id

-- Helper functions

local function makeWikilink(page, display) if display then return mw.ustring.format('%s', page, display) else return mw.ustring.format('%s', page) end end

local function makeUrlLink(url, display) return mw.ustring.format('[%s %s]', url, display) end

local function makeToolbar(...) local ret = {} local lim = select('#', ...) if lim < 1 then return nil end for i = 1, lim do		ret[#ret + 1] = select(i, ...) end return '(' .. table.concat(ret, ' &#124; ') .. ') ' end

-- Main functions

function p.main(frame) local args = getArgs(frame, {		valueFunc = function (key, value)			if type(value) == 'string' then				value = value:match('^%s*(.-)%s*$') -- Remove whitespace.				if key == 'heading' or value ~= '' then					return value				else					return nil				end			else				return value			end		end	}) return p._main(args) end

function p._main(args) local root = htmlBuilder.create root .wikitext(p.protectionTemplate) .wikitext(p.sandboxNotice(args)) -- This div tag is from, but moving it here -- so that we don't have to worry about unclosed tags. .tag('div') .attr('id', 'template-documentation') .addClass('template-documentation iezoomfix') .wikitext(p.startBox(args)) .wikitext(p.content(args)) .tag('div') .css('clear', 'both') -- So right or left floating items don't stick out of the doc box. .done .done .wikitext(p.endBox(args)) .wikitext(p.addTrackingCategories) return tostring(root) end

function p.sandboxNotice(args) if currentTitle.subpageText == 'sandbox' then local frame = mw.getCurrentFrame local root = htmlBuilder.create root .tag('div') .css('clear', 'both') .done .wikitext(frame:expandTemplate{title = 'template sandbox notice', args = {args.livepage}}) return tostring(root) else return nil end end

function p.protectionTemplate if currentTitle.namespace == 10 then -- We are in the template namespace. local frame = mw.getCurrentFrame

local function getProtectionLevel(protectionType) -- Gets the protection level for the current page. local level = frame:callParserFunction('PROTECTIONLEVEL', protectionType) if level ~= '' then return level else return nil -- The parser function returns the blank string if there is no match. end end

if getProtectionLevel('move') == 'sysop' or getProtectionLevel('edit') then -- The page is full-move protected, or full, template, or semi-protected. return frame:expandTemplate{title = 'pp-template', args = {docusage = 'yes'}} end end return nil end

function p.startBox(args) -- Arg processing from. local preload = args.preload -- Allow custom preloads. local heading = args.heading -- Blank values are not removed. local headingStyle = args['heading-style'] local content = args.content local docspace = p.docspace local docname = args[1] -- Other docname, if fed. local templatePage = p.templatePage

-- Arg processing from. local docpage if docname then docpage = docname else local namespace = docspace or currentTitle.nsText local pagename = templatePage or currentTitle.text docpage = namespace .. ':' .. pagename .. '/doc' end local docTitle = mw.title.new(docpage) local docExist = docTitle.exists -- Output from.

-- First, check the heading parameter. if heading == '' then -- Heading is defined but blank, so do nothing. return nil end

-- Build the start box div. local sbox = htmlBuilder.create('div') sbox .css('padding-bottom', '3px') .css('border-bottom', '1px solid #aaa') .css('margin-bottom', '1ex')

-- Make the heading. local hspan = sbox.tag('span') if headingStyle then hspan.cssText(headingStyle) elseif subjectSpace == 10 then -- We are in the template or template talk namespaces. hspan .css('font-weight', 'bold') .css('fond-size', '125%') else hspan.css('font-size', '150%') end if heading then -- "heading" has data. hspan.wikitext(heading) elseif subjectSpace == 10 then -- Template namespace hspan.wikitext(' Template documentation') elseif subjectSpace == 828 then -- Module namespace hspan.wikitext(' Module documentation') elseif subjectSpace == 6 then -- File namespace hspan.wikitext('Summary') else hspan.wikitext('Documentation') end

-- Add the [view][edit][history][purge] or [create] links. -- Check for the content parameter first, as we don't need the links if the documentation -- content is being entered directly onto the template page. if not content then local lspan = sbox.tag('span') -- lspan is short for "link span". lspan .addClass('mw-editsection plainlinks') .attr('id', 'doc_editlinks') if docExist then local viewLink = makeWikilink(docpage, 'view') local editLink = makeUrlLink(docTitle:fullUrl{action = 'edit'}, 'edit') local historyLink = makeUrlLink(docTitle:fullUrl{action = 'history'}, 'history') local purgeLink = makeUrlLink(docTitle:fullUrl{action = 'purge'}, 'purge') local text = '[%s] [%s] [%s] [%s]' text = text:gsub('%[', '&#91;') -- Replace square brackets with HTML entities. text = text:gsub('%]', '&#93;') lspan.wikitext(mw.ustring.format(text, viewLink, editLink, historyLink, purgeLink)) else if not preload then if subjectSpace == 6 then -- File namespace preload = 'Template:Documentation/preload-filespace' else preload = 'Template:Documentation/preload' end end lspan.wikitext(makeUrlLink(docTitle:fullUrl{action = 'edit', preload = preload}, 'create')) end end

return tostring(sbox) end

function p.content(args) local content = args.content if not content then local docpage = args[1] if docpage and mw.title.new(docpage).exists then local frame = mw.getCurrentFrame content = frame:preprocess('') else docpage = p.docspace .. ':' .. p.templatePage .. '/doc' if mw.title.new(docpage).exists then local frame = mw.getCurrentFrame content = frame:preprocess('') end end end -- The line breaks below are necessary so that "=== Headings ===" at the start and end -- of docs are interpreted correctly. return '\n' .. (content or '') .. '\n' end

function p.endBox(args) -- Argument processing in. local preload = args.preload -- Allow custom preloads. local content = args.content local linkBox = args['link box'] -- So "link box=off" works. local docspace = p.docspace local docname = args[1] -- Other docname, if fed. local templatePage = p.templatePage

-- Argument processing in. local docpageRoot = (docspace or currentTitle.nsText) .. ':' .. (templatePage or currentTitle.text) local docpage if docname then docpage = docname else docpage = docpageRoot .. '/doc' end local docTitle = mw.title.new(docpage) local docExist = docTitle.exists local docnameFed = args[1] and true local sandbox = docpageRoot .. '/sandbox' local testcases = docpageRoot .. '/testcases' templatePage = currentTitle.nsText .. ':' .. templatePage

-- Output from -- First, check whether we should output the end box at all. Add the end box by default if the documentation -- exists or if we are in the user, module or template namespaces. if linkBox == 'off' or not (docExist or subjectSpace == 2 or subjectSpace == 828 or subjectSpace == 10) then return nil end

-- Assemble the arguments for. local fmargs = {} fmargs.id = 'documentation-meta-data' fmargs.image = 'none' fmargs.style = 'background-color: #ecfcf4' fmargs.textstyle = 'font-style: italic;'

-- Assemble the fmbox text field. local text = '' if linkBox then -- Use custom link box content if it is defined. text = text .. linkBox else if docExist then -- /doc exists; link to it. local docLink = makeWikilink(docpage) local editLink = makeUrlLink(docTitle:fullUrl{action = 'edit'}, 'edit') local historyLink = makeUrlLink(docTitle:fullUrl{action = 'history'}, 'history') text = text .. 'The above documentation is transcluded from ' .. docLink .. '. ' .. makeToolbar(editLink, historyLink) .. ' '		elseif subjectSpace == 828 then -- /doc does not exist; ask to create it. local createLink = makeUrlLink(docTitle:fullUrl{action = 'edit', preload = 'Template:Documentation/preload-module-doc'}, 'create') text = text .. 'You might want to ' .. createLink .. ' a documentation page for this Scribunto module. '		end -- Add links to /sandbox and /testcases when appropriate. if subjectSpace == 2 or subjectSpace == 828 or subjectSpace == 10 then -- We are in the user, module or template namespaces. local pagePossessive = subjectSpace == 828 and "module's" or "template's" text = text .. 'Editors can experiment in this ' .. pagePossessive .. ' '			local sandboxTitle = mw.title.new(sandbox) if sandboxTitle.exists then local sandboxLink = makeWikilink(sandbox, 'sandbox') local sandboxEditLink = makeUrlLink(sandboxTitle:fullUrl{action = 'edit'}, 'edit') local compareLink = makeUrlLink(mw.title.new('Special:ComparePages'):fullUrl{page1 = templatePage, page2 = sandbox}, 'diff') text = text .. sandboxLink .. ' ' .. makeToolbar(sandboxEditLink, compareLink) else local sandboxPreload = 'Template:Documentation/preload-' .. (subjectSpace == 828 and 'module-' or '') .. 'sandbox' local sandboxCreateLink = makeUrlLink(sandboxTitle:fullUrl{action = 'edit', preload = sandboxPreload}, 'create') local mirrorSummary = 'Create sandbox version of ' .. makeWikilink(templatePage) local mirrorLink = makeUrlLink(sandboxTitle:fullUrl{action = 'edit', preload = templatePage, summary = mirrorSummary}, 'mirror') text = text .. 'sandbox ' .. makeToolbar(sandboxCreateLink, mirrorLink) end text = text .. ' and ' local testcaseTitle = mw.title.new(testcases) if testcaseTitle.exists then local testcasesLink = makeWikilink(testcases, 'testcases') local testcasesEditLink = makeUrlLink(testcaseTitle:fullUrl{action = 'edit'}, 'edit') text = text .. testcasesLink .. ' ' .. makeToolbar(testcasesEditLink) else local testcasesPreload = 'Template:Documentation/preload-' .. (subjectSpace == 828 and 'module-' or '') .. 'testcases' local testcasesCreateLink = makeUrlLink(testcaseTitle:fullUrl{action = 'edit', preload = testcasesPreload}, 'create') text = text .. 'testcases ' .. makeToolbar(testcasesCreateLink) end text = text .. ' pages. '			-- Show the categories text, but not if "content" fed or "docname fed" since then it is unclear where to add the categories. if not content and not docnameFed then text = text .. 'Please add categories to the ' .. makeWikilink(docpage, '/doc') .. ' subpage.' end -- Show the "subpages" link. if subjectSpace ~= 6 then -- Don't show the link in file space. local pagetype if subjectSpace == 10 then pagetype = 'template' elseif subjectSpace == 828 then pagetype = 'module' else pagetype = 'page' end text = text .. ' ' .. makeWikilink('Special:PrefixIndex/' .. templatePage .. '/', 'Subpages of this ' .. pagetype) end -- Show the "print" link if it exists. local printPage = templatePage .. '/Print' local printTitle = mw.title.new(printPage) if printTitle.exists then text = text .. ' A print version of this template exists at ' .. makeWikilink(printPage, '/Print') .. '. If you make a change to this template, please update the print version as well.' .. ''			end end end fmargs.text = text

-- Return the fmbox output. return messageBox.main('fmbox', fmargs) end

function p.addTrackingCategories -- Check if is transcluded on a /doc or /testcases page. local ret = '' local subpage = currentTitle.subpageText if subpage == 'doc' or subpage == 'testcases' then local sort = (currentTitle.namespace == 0 and 'Main:' or '') .. currentTitle.prefixedText -- Sort on namespace. ret = ret .. makeWikilink('Category:Wikipedia pages with strange ((documentation)) usage', sort) end return ret end

function p.docspace -- Determines the namespace of the documentation. if subjectSpace == 0 or subjectSpace == 6 or subjectSpace == 8 or subjectSpace == 14 then -- Pages in the Article, File, MediaWiki or Category namespaces must have their -- /doc, /sandbox and /testcases pages in talk space. return mw.site.namespaces[subjectSpace].talk.name else return currentTitle.subjectNsText end end

function p.templatePage -- Determines the template page. No namespace or interwiki prefixes are included. local subpage = currentTitle.subpageText if subpage == 'sandbox' or subpage == 'testcases' then return currentTitle.baseText else return currentTitle.text end end

return p