Module:Documentation

local p = {}

local getType = function( namespace, page ) local pageType = 'template' if namespace == 'Module' then pageType = 'module' elseif page.fullText:find( '%.css$' ) then pageType = 'stylesheet' elseif page.fullText:find( '%.js$' ) then pageType = 'script' elseif namespace == 'MediaWiki' then pageType = 'message' end return pageType end

-- Creating a documentation page or transclution through function p.create( f ) local args = require( 'Module:ProcessArgs' ).norm page = mw.title.getCurrentTitle namespace = args.type or page.nsText docPage = args.page or namespace .. ':' .. page.baseText .. '/doc' local out if page.fullText == docPage then out = f:preprocess( '' ) else local templateArgs = {} if args.type then table.insert( templateArgs, 'type=' .. args.type ) end if args.page then table.insert( templateArgs, 'page=' .. args.page ) end out = '' .. ''		out = out:gsub( '|}}', '}}' ) end if not mw.isSubsting then out = f:preprocess( out ) if not args.nocat then out = out .. ''		end end return out end

-- Header on the documentation page function p.docPage( f ) local args = require( 'Module:ProcessArgs' ).merge( true ) local badDoc = args.baddoc if f:callParserFunction( '#dplvar', '$doc noheader' ) == '1' then if badDoc then f:callParserFunction( '#dplvar:set', '$doc bad', '1' ) end return end local page = mw.title.getCurrentTitle local namespace = args.type or page.nsText local pageType = getType( namespace, page ) local body = mw.html.create( 'div' ) body :css{ ['margin-bottom'] = '0.8em', padding = '0.8em 1em 0.7em', ['background-color'] = '#' .. ( badDoc and 'F9F2EA' or 'EAF4F9' ), border = '1px solid #AAA' }		:tag( 'div' ) :css( 'float', 'right' ) :wikitext( '', page:fullUrl( 'action=purge' ), ' purge' ) :done :wikitext(			'This is the documentation page, it ',			pageType == 'module' and 'will' or 'should',			' be transcluded into the main ', pageType, ' page. ',			'See Template:Documentation for more information'		) if badDoc then body:wikitext( "This ", pageType, "'s documentation needs improving or additional information." ) end if not args.nocat then body:wikitext( '' ) end return body end

-- Wrapper around the documentation on the main page function p.page( f ) local args = require( 'Module:ProcessArgs' ).merge( true ) local page = mw.title.getCurrentTitle local namespace = args.type or page.nsText local docPage = mw.title.new( args.page or namespace .. ':' .. page.text .. '/doc' ) local noDoc = args.nodoc or not docPage.exists local badDoc = args.baddoc local pageType = getType( namespace, page ) local docText if not noDoc then f:callParserFunction( '#dplvar:set', '$doc noheader', '1' ) docText = mw.text.trim( f:expandTemplate{ title = ':' .. docPage.fullText } ) if f:callParserFunction( '#dplvar', '$doc bad' ) == '1' then badDoc = 1 end if docText == '' then docText = nil noDoc = 1 else docText = '\n' .. docText .. '\n' end end local action = 'edit' local preload = '' local colour = 'EAF4F9' local message local category if noDoc then action = 'create' preload = '&preload=Template:Documentation/preload' colour = 'F9EAEA' message = "'''This " .. pageType .. " has no documentation. " .. "If you know how to use this " .. pageType .. ", please create it.'''" if not args.nocat then category = 'Category:' .. pageType .. 's with no documentation' if not mw.title.new( category ).exists then category = 'Category:Pages with no documentation' end end elseif badDoc then colour = 'F9F2EA' message = "'''This " .. pageType .. "'s documentation needs improving or additional information.'''\n" if not args.nocat then category = 'Category:' .. pageType .. 's with bad documentation' if not mw.title.new( category ).exists then category = 'Category:Pages with bad documentation' end end end local links = { '[' .. docPage:fullUrl( 'action=edit' .. preload ) .. ' ' .. action .. ']',		'[' .. page:fullUrl( 'action=purge' ) .. ' purge]' }	if not noDoc then table.insert( links, 1, 'view' ) end links = mw.html.create( 'span' ) :css( 'float', 'right' ) :wikitext( mw.text.nowiki( '[' ), table.concat( links, ' | ' ), mw.text.nowiki( ']' ) ) local body = mw.html.create( 'div' ) body:css{ ['background-color'] = '#' .. colour, border = '1px solid #AAA', padding = '0.8em 1em 0.7em', ['margin-top'] = '1em', clear = 'both' }	local header = mw.html.create( 'div' ) :css{ margin = '-0.8em -1em 0.8em', padding = '0.8em 1em 0.7em', ['background-color'] = '#EAF4F9', ['border-bottom'] = 'inherit' }	header :node( links ) :tag( 'span' ) :css{ ['font-weight'] = 'bold', ['font-size'] = '130%', ['margin-right'] = '1em', ['line-height'] = '1' }			:wikitext( 'Documentation' ) if not noDoc and pageType ~= 'template' and pageType ~= 'message' then header :tag( 'span' ) :css( 'white-space', 'nowrap' ) :wikitext( 'Jump to code ↴' ) end body :node( header ):done :wikitext( message ) :wikitext( docText ) if not noDoc then body :tag( 'div' ) :css{ margin = '0.7em -1em -0.7em', ['background-color'] = '#EAF4F9', ['border-top'] = 'inherit', padding = '0.8em 1em 0.7em', clear = 'both' }				:node( links ) :wikitext( 'The above documentation is transcluded from ', docPage.fullText, '.' ) end if category then body:wikitext( , category,  ) end local anchor = '' if not noDoc and pageType ~= 'template' and pageType ~= 'message' then anchor = mw.html.create( 'div' ):attr( 'id', 'the-code' ) end return tostring( body ) .. tostring( anchor ) end

return p