Modulus:TOCstyle
Documentation for this module may be created at Modulus:TOCstyle/doc
--[[
This module (tentatively) implements {{TOCstyle}}
Intended invocation method: {{#invoke:TOCstyle|toc}}
Normal invocation via application of Template:TOCstyle
The intent of this module is to provide a higher-level "styling" facility to aid in the creation of standard tables-of-contents
(TOCs) on (initially) the English WikiSource in a reasonably flexible fashion. To this end there are a number of internal
configuration tables (future task: separate these into a configuration helper module if possible?)
All internal variables obeying the naming convention "...Tags" (e.g. "outerTags") designate two-element tables of strings
containing HTML tags which shall be used to "wrap around" various output components. The first element content will open any
required construct and the second element content will provide the neccessary closing tags for that construct.
--]]
local p = {}
-- emit() outputs a single item without detailed formatting.
local function emit(args,index,use,para)
--mw.log("emit exiting: index+use="..index.."+"..use.."\n")
if type(use) ~= 'number' then
use = 0
end
return index+use, (args[index] or '')
end
-- emit384() outputs a single item repeated 384 times.
local function emit384(args,index,use,para)
if type(use) ~= 'number' then
use = 0
end
return index+use, string.rep((args[index] or '.'),(args['leaderrepeat'] or 384))
end
-- fmtCell() outputs a single table cell and applies simple formatting to it
local function fmtCell(args,index,use,para)
local addl -- somewhere to discard accountancy for arguments consumed by sub-process
local cell = ''
-- mw.log("use, args[use]="..use..", "..args[use])
if para then
if para.proc then
addl, cell = para.proc(args,index,para.use,para.para)
end
if para.wrap then
cell = para.wrap[1] .. cell .. para.wrap[2]
end
end
--mw.log("fmtCell exiting: index+use+addl="..index.."+"..use.."+"..addl.."\n")
if type(use) ~= 'number' then
use = 0
end
return index+use, cell
end
-- fmtNCells() outputs multiple table cells and applies individual formatting to each one
local function fmtNCells(args,index,use,para)
local row = ''
if para then
local offset = 1
local colcount = table.getn(para)
while offset <= colcount do
local addl -- somewhere to discard accountancy for arguments consumed by sub-process
local cell = ''
if para[offset].proc then
addl, cell = para[offset].proc(args,index+offset-1,para[offset].use,para[offset].para)
end
if para[offset].wrap then
cell = para[offset].wrap[1] .. cell .. para[offset].wrap[2]
row = row .. cell
end
offset = offset + 1
end
end
if type(use) ~= 'number' then
use = 0
end
return index+use, row
end
local function isDemoSpace(demoSpace)
local namespace = mw.title.getCurrentTitle().nsText
-- everything eligible for display in Page: namespace
return (namespace == 'Page') or
(namespace == demoSpace)
end
-- cdlSwrap() outputs multiple table cells with individual formatting but closes wrapping only in demonstration name spaces
local function cdlSwrap(args,index,use,para)
local row = ''
if para then
local offset = 1
local colcount = table.getn(para)
while offset <= colcount do
local addl -- somewhere to discard accountancy for arguments consumed by sub-process
local cell = ''
if para[offset].proc then
addl, cell = para[offset].proc(args,index+offset-1,para[offset].use,para[offset].para)
end
if para[offset].wrap then
cell = para[offset].wrap[1] .. cell
if (para[offset].use ~= 'p') or isDemoSpace(args['demoSpace']) then
cell = cell .. para[offset].wrap[2]
end
row = row .. cell
end
offset = offset + 1
end
end
if type(use) ~= 'number' then
use = 0
end
return index+use, row
end
-- cdlEwrap() outputs multiple table cells with individual formatting but opens wrapping only in demonstration name spaces
local function cdlEwrap(args,index,use,para)
local row = ''
if para then
local offset = 1
local colcount = table.getn(para)
while offset <= colcount do
local addl -- somewhere to discard accountancy for arguments consumed by sub-process
local cell = ''
if para[offset].proc then
addl, cell = para[offset].proc(args,index+offset-1,para[offset].use,para[offset].para)
end
if para[offset].wrap then
if (para[offset].use ~= 'p') or isDemoSpace(args['demoSpace']) then
cell = para[offset].wrap[1] .. cell
end
cell = cell .. para[offset].wrap[2]
row = row .. cell
end
offset = offset + 1
end
end
if type(use) ~= 'number' then
use = 0
end
return index+use, row
end
local function isnotempty(s)
return s and s:match( '^%s*(.-)%s*$' ) ~= ''
end
local function isRibbonAllowed(RibbonControl,RibbonRange,demoSpace)
-- everything eligible for display in Page: namespace
if isDemoSpace(demoSpace) then
return true
elseif isnotempty(RibbonRange) then
return false
elseif isnotempty(RibbonControl) then
return false
else
return true
end
end
function p.toc(frame)
local args = (frame.args[1] ~= nil) and frame.args or frame:getParent().args
local outerTags = { -- HTML tags to wrap around /any/ output; also serves as header/footer in page-crossing circumstances
'<div$CSS$><ol style="list-style:none;margin:0; padding:0;">', -- '$CSS$' will be substituted
'</ol></div>'
}
local otDefCSS = ' style="margin:0; padding:0;"' -- CSS attributes to apply to outerTags[1] if not explicitly overridden
local otCptCSS = ' style="display: table; margin:0 auto 0 auto; padding:0;"' -- alternate, "compact" CSS attributes for outerTags[1] use
local rowTags = { -- HTML tags to wrap around /each/ row: does not include columnar formatting
'<li style="margin:0; padding:0;">',
'</li>'
}
local detailTags = { -- additional HTML tags to wrap around each row which may require more detailed formatting
'<table ' ..
'style="border-collapse:collapse;border-spacing:0 0;display:inline-table;vertical-align:middle;width:100%;">' ..
'<tr>',
'</tr></table>'
}
local ctrCellTags = { -- additional HTML tags to wrap around a centred table cell
'<td style="text-align:center;">',
'</td>'
}
local jstCellTags = { -- additional HTML tags to wrap around a justified table cell
'<td style="text-align:justify;">',
'</td>'
}
local rgtCellTags = { -- additional HTML tags to wrap around a right-aligned table cell
'<td style="text-align:right;">',
'</td>'
}
local hi1CellTags = { -- additional HTML tags to wrap around a "hanging indent" table cell
'<td style="padding-left:1em;text-indent:-1em;text-align:justify;">',
'</td>'
}
local hi2doTags = { -- additional HTML tags to wrap around a large "hanging indent/dot leader" table cell
'<td style="position:relative;"><div style="padding-left:2em;text-indent:-2em;text-align:justify;">' ..
'<span style="background:' .. (args['leaderbgcolour'] or args['leaderbgcolor'] or 'white') ..
';padding:0 0.5em 0 0;position:relative;text-align:justify;z-index:2;">',
'</span></div><div style="background:' .. (args['leaderbgcolour'] or args['leaderbgcolor'] or 'white') ..
';position:absolute;left:0;bottom:0;width:2em;height:1em;z-index:1;"></div>' ..
'<div style="overflow:hidden;position:absolute;right:0;bottom:0;text-align:right;white-space:nowrap;width:100%;z-index:0;">' ..
'<span style="float:left;letter-spacing:' .. (args['leaderspacing'] or '4px') .. ';">' ..
string.rep((args['leadersym'] or '.'),(args['leaderrepeat'] or 384)) ..
'</span></div></td>'
}
local hi23CellTags = { -- additional HTML tags to wrap around a indented "hanging indent" table cell
'<td style="padding-left:5em;text-indent:-3em;text-align:justify;">',
'</td>'
}
local hi23sCelTags = { -- additional HTML tags to wrap around a initial portion of indented "hanging indent" table cell
'<td style="padding-left:5em;text-indent:-3em;text-align:justify;"><p>', -- always output
'</p></td><td class="pos-se" style="width:2em;"> </td>' -- Page/demo only
}
local hi23eCelTags = { -- additional HTML tags to wrap around terminal portion of indented "hanging indent" table cell
'<td style="padding-left:5em;text-indent:0;text-align:justify;"><p>', -- Page/demo only
'</p></td>' -- always output
}
local hi23doTags = { -- additional HTML tags to wrap around a indented "hanging indent/dot leader" table cell
'<td style="position:relative;"><div style="padding-left:5em;text-indent:-3em;text-align:justify;">' ..
'<span style="background:' .. (args['leaderbgcolour'] or args['leaderbgcolor'] or 'white') ..
';padding:0 0.5em 0 0;position:relative;text-align:justify;z-index:2;">',
'</span></div><div style="background:' .. (args['leaderbgcolour'] or args['leaderbgcolor'] or 'white') ..
';position:absolute;left:0;bottom:0;width:5em;height:1em;z-index:1;"></div>' ..
'<div style="overflow:hidden;position:absolute;right:0;bottom:0;text-align:right;white-space:nowrap;width:100%;z-index:0;">' ..
'<span style="float:left;letter-spacing:' .. (args['leaderspacing'] or '4px') .. ';">' ..
string.rep((args['leadersym'] or '.'),(args['leaderrepeat'] or 384)) ..
'</span></div></td>'
}
local hi5CellTags = { -- additional HTML tags to wrap around a "wide hanging indent" table cell
'<td style="padding-left:5em;text-indent:-5em;text-align:justify;">',
'</td>'
}
local hi5doTags = { -- additional HTML tags to wrap around a wide "hanging indent/dot leader" table cell
'<td style="position:relative;"><div style="padding-left:5em;text-indent:-5em;text-align:justify;">' ..
'<span style="background:' .. (args['leaderbgcolour'] or args['leaderbgcolor'] or 'white') ..
';padding:0 0.5em 0 0;position:relative;text-align:justify;z-index:2;">',
'</span></div><div style="background:' .. (args['leaderbgcolour'] or args['leaderbgcolor'] or 'white') ..
';position:absolute;left:0;bottom:0;width:5em;height:1em;z-index:1;"></div>' ..
'<div style="overflow:hidden;position:absolute;right:0;bottom:0;text-align:right;white-space:nowrap;width:100%;z-index:0;">' ..
'<span style="float:left;letter-spacing:' .. (args['leaderspacing'] or '4px') .. ';">' ..
string.rep((args['leadersym'] or '.'),(args['leaderrepeat'] or 384)) ..
'</span></div></td>'
}
local hiNdoTags = { -- additional HTML tags to wrap around a wide "hanging indent/dot leader" table cell
'<td style="position:relative;"><div style="padding-left:$DEPTH$;text-indent:-$DEPTH$;text-align:justify;">' ..
'<span style="background:' .. (args['leaderbgcolour'] or args['leaderbgcolor'] or 'white') ..
';padding:0 0.5em 0 0;position:relative;text-align:justify;z-index:2;">',
'</span></div><div style="background:' .. (args['leaderbgcolour'] or args['leaderbgcolor'] or 'white') ..
';position:absolute;left:0;bottom:0;width:$DEPTH$;height:1em;z-index:1;"></div>' ..
'<div style="overflow:hidden;position:absolute;right:0;bottom:0;text-align:right;white-space:nowrap;width:100%;z-index:0;">' ..
'<span style="float:left;letter-spacing:' .. (args['leaderspacing'] or '4px') .. ';">' ..
string.rep((args['leadersym'] or '.'),(args['leaderrepeat'] or 384)) ..
'</span></div></td>'
}
local hiNdosTags = { -- additional HTML tags to wrap around hanging-description portion of a wide "hanging indent/dot leader" table cell
'<td style="position:relative;"><div style="padding-left:$DEPTH$;text-indent:-$DEPTH$;text-align:justify;">' ..
'<span style="background:' .. (args['leaderbgcolour'] or args['leaderbgcolor'] or 'white') ..
';padding:0 0.5em 0 0;position:relative;text-align:justify;z-index:2;">',
'</span>'
}
local hiNdoeTags = { -- additional HTML tags to wrap around undercut page portion of a wide "hanging indent/dot leader" table cell
'<span style="background:' .. (args['leaderbgcolour'] or args['leaderbgcolor'] or 'white') ..
';float:right;padding:0 0 0 calc( $DEPTH$ + 0.5em );position:relative;text-align:right;white-space:nowrap;width:$PGWIDTH$;z-index:2;">',
'</span></div><div style="background:' .. (args['leaderbgcolour'] or args['leaderbgcolor'] or 'white') ..
';position:absolute;left:0;bottom:0;width:$DEPTH$;height:1em;z-index:1;"></div>' ..
'<div style="overflow:hidden;position:absolute;right:0;bottom:0;text-align:right;white-space:nowrap;width:100%;z-index:0;">' ..
'<span style="float:left;letter-spacing:' .. (args['leaderspacing'] or '4px') .. ';">' ..
string.rep((args['leadersym'] or '.'),(args['leaderrepeat'] or 384)) ..
'</span></div></td>'
}
local hi72CellTags = { -- additional HTML tags to wrap around an indented "hanging indent" table cell with Page clearance
'<td style="padding-left:8em;padding-right:2em;text-indent:-1em;text-align:justify;">',
'</td>'
}
local unfCellTags = { -- additional HTML tags to wrap around an "unformatted" table cell
'<td>',
'</td>'
}
local chprCellTags = { -- additional HTML tags to wrap around a right-aligned, minimal-width table cell
'<td class="pos-ne" style="padding-right:1em;white-space:nowrap;width:5em;">',
'</td>'
}
local chpr0CellTags = { -- additional HTML tags to wrap around a right-aligned (unpadded), minimal-width table cell
'<td class="pos-ne" style="white-space:nowrap;width:5em;">',
'</td>'
}
local chp2CellTags = { -- additional HTML tags to wrap around a indented, right-aligned, 3em-width table cell
'<td class="pos-ne" style="padding-left:2em;padding-right:1em;white-space:nowrap;width:3em;">',
'</td>'
}
local chpMCellTags = { -- additional HTML tags to wrap around a right-aligned, controlled-minimal-width table cell
'<td class="pos-ne" style="padding-right:1em;white-space:nowrap;width:$CHWIDTH$;">',
'</td>'
}
local pagCellTags = { -- additional HTML tags to wrap around a "page number" table cell
'<td class="pos-se" style="white-space:nowrap;width:2em;">',
'</td>'
}
local paPCellTags = { -- additional HTML tags to wrap around a controlled-width "page number" table cell
'<td class="pos-se" style="white-space:nowrap;width:$PGWIDTH$;">',
'</td>'
}
local l12CellTags = { -- additional HTML tags to wrap around "left" component of runningheader 5-item table cell
'<td style="width:12.5%;">',
'</td>'
}
local l20CellTags = { -- additional HTML tags to wrap around "left" component of runningheader 4-item table cell
'<td style="width:20%;">',
'</td>'
}
local l33CellTags = { -- additional HTML tags to wrap around "left" component of runningheader 3-item table cell
'<td style="width:33%;">',
'</td>'
}
local c25CellTags = { -- additional HTML tags to wrap around "central" components of runningheader 5-item table cell
'<td style="text-align:center;width:12.5%;">',
'</td>'
}
local c30CellTags = { -- additional HTML tags to wrap around "central" components of runningheader 4-item table cell
'<td style="text-align:center;width:20%;">',
'</td>'
}
local c33CellTags = { -- additional HTML tags to wrap around "central" component of runningheader 3-item table cell
'<td style="text-align:center;width:33%;">',
'</td>'
}
local r12CellTags = { -- additional HTML tags to wrap around "right" component of runningheader 5-item table cell
'<td style="text-align:right;width:12.5%;">',
'</td>'
}
local r20CellTags = { -- additional HTML tags to wrap around "right" component of runningheader 4-item table cell
'<td style="text-align:right;width:20%;">',
'</td>'
}
local r33CellTags = { -- additional HTML tags to wrap around "right" component of runningheader 3-item table cell
'<td style="text-align:right;width:33%;">',
'</td>'
}
local dotoutTags = { -- additional HTML tags to wrap around "dot-leader" table cell
'<td style="position:relative;"><div style="text-align:justify;">' ..
'<span style="background:' .. (args['leaderbgcolour'] or args['leaderbgcolor'] or 'white') ..
';padding:0 0.5em 0 0;position:relative;text-align:justify;z-index:2;">',
'</span></div>' ..
'<div style="overflow:hidden;position:absolute;right:0;bottom:0;text-align:right;white-space:nowrap;width:100%;z-index:0;">' ..
'<span style="float:left;letter-spacing:' .. (args['leaderspacing'] or '4px') .. ';">' ..
string.rep((args['leadersym'] or '.'),(args['leaderrepeat'] or 384)) ..
'</span></div></td>'
}
local dotouSTags = { -- additional HTML tags to wrap around initial portion of "dot-leader" table cell
'<td style="position:relative;"><div style="text-align:justify;">' ..
'<span style="background:' .. (args['leaderbgcolour'] or args['leaderbgcolor'] or 'white') ..
';padding:0 0.5em 0 0;position:relative;text-align:justify;z-index:2;">',
'</span></div></td><td class="pos-se" style="width:2em;"> </td>'
}
local dotouETags = { -- additional HTML tags to wrap around terminal portion of "dot-leader" table cell
'<td style="position:relative;"><div style="padding-left:5em;text-indent:0;text-align:justify;">' ..
'<span style="background:' .. (args['leaderbgcolour'] or args['leaderbgcolor'] or 'white') ..
';padding:0 0.5em 0 0;position:relative;text-align:justify;z-index:2;">',
'</span></div><div style="background:' .. (args['leaderbgcolour'] or args['leaderbgcolor'] or 'white') ..
';position:absolute;left:0;bottom:0;width:5em;height:1em;z-index:1;"></div>' ..
'<div style="overflow:hidden;position:absolute;right:0;bottom:0;text-align:right;white-space:nowrap;width:100%;z-index:0;">' ..
'<span style="float:left;letter-spacing:' .. (args['leaderspacing'] or '4px') .. ';">' ..
string.rep((args['leadersym'] or '.'),(args['leaderrepeat'] or 384)) ..
'</span></div></td>'
}
local dotldoTags = { -- additional HTML tags to wrap around configurable "dot-leader" table cell and content component span
'<td style="position:relative;"><div style="text-align:justify;">' ..
'<span style="background:' .. (args['leaderbgcolour'] or args['leaderbgcolor'] or 'white') ..
';padding:0 0.5em 0 0;position:relative;text-align:justify;z-index:2;">',
'</span></div>'
}
local dotleaTags = { -- additional HTML tags to wrap around "dot-leader"/excess-filler table cell component span
'<div style="overflow:hidden;position:absolute;right:0;bottom:0;text-align:right;white-space:nowrap;width:100%;z-index:0;">' ..
'<span style="float:left;letter-spacing:' .. (args['leaderspacing'] or '4px') .. ';">',
'</span></div></td>'
}
local dotoPsTags = { -- additional HTML tags to wrap around first portion of "dot-leader" with embedded page table cell
'<td style="position:relative;"><div style="text-align:justify;">' ..
'<span style="background:' .. (args['leaderbgcolour'] or args['leaderbgcolor'] or 'white') ..
';padding:0 0.5em 0 0;position:relative;text-align:justify;z-index:2;">',
'</span>'
}
local dotoPeTags = { -- additional HTML tags to wrap around final portion of "dot-leader" with embedded page table cell
'<span style="background:' .. (args['leaderbgcolour'] or args['leaderbgcolor'] or 'white') ..
';float:right;padding:0 0 0 0.5em;position:relative;text-align:right;z-index:2;">',
'</span></div>' ..
'<div style="overflow:hidden;position:absolute;right:0;bottom:0;text-align:right;white-space:nowrap;width:100%;z-index:0;">' ..
'<span style="float:left;letter-spacing:' .. (args['leaderspacing'] or '4px') .. ';">' ..
string.rep((args['leadersym'] or '.'),(args['leaderrepeat'] or 384)) ..
'</span></div></td>'
}
modelTab = {
["D"] = { -- default layout
use =1, -- absorbs a single argument only
wrap =nil, -- no enclosing structures required
proc =emit, -- function to output standalone description with no separate page numbers
para =nil -- no details required
},
["DP"] = { -- unformatted description; right-justified page layout
use =2, -- absorbs two arguments
wrap =detailTags, -- table enclosing row
proc =fmtNCells, -- create and apply tags to multiple cells
para ={
{ -- Description: wrapped cell content but with no overt formatting applied
use =0, -- fmtNCells discards this value
wrap =unfCellTags,
proc =emit,
para =nil
},
{ -- Page: right-lower-aligned cell with content wraparound suppressed
use =0, -- fmtNCells discards this value
wrap =pagCellTags,
proc =emit,
para =nil
}
}
},
["H5P"] = { -- wide hanging indented description; right-justified page layout
use =2, -- absorbs two arguments
wrap =detailTags, -- table enclosing row
proc =fmtNCells, -- create and apply tags to multiple cells
para ={
{ -- Description: wrapped cell content but with no overt formatting applied
use =0, -- fmtNCells discards this value
wrap =hi5CellTags,
proc =emit,
para =nil
},
{ -- Page: right-lower-aligned cell with content wraparound suppressed
use =0, -- fmtNCells discards this value
wrap =pagCellTags,
proc =emit,
para =nil
}
}
},
["2H3P"] = { -- indented hanging indented description; right-justified page layout
use =2, -- absorbs two arguments
wrap =detailTags, -- table enclosing row
proc =fmtNCells, -- create and apply tags to multiple cells
para ={
{ -- Description: wrapped cell content but with no overt formatting applied
use =0, -- fmtNCells discards this value
wrap =hi23CellTags,
proc =emit,
para =nil
},
{ -- Page: right-lower-aligned cell with content wraparound suppressed
use =0, -- fmtNCells discards this value
wrap =pagCellTags,
proc =emit,
para =nil
}
}
},
["2H3P/s"] = { -- indented hanging indented description (initial part; crosses page); right-justified page layout
use =1, -- absorbs single argument
wrap =detailTags, -- table enclosing row
proc =cdlSwrap, -- only close wrapping in Page: or demo name spaces
para ={
{ -- Description: wrapped cell content but with no overt formatting applied
use ='p', -- flag wrap as namespace dependent to cdlSwrap
wrap =hi23sCelTags,
proc =emit,
para =nil
}
}
},
["2H3P/e"] = { -- indented hanging indented description (terminal part; crosses page); right-justified page layout
use =2, -- absorbs two arguments
wrap =detailTags, -- table enclosing row
proc =cdlEwrap, -- only open wrapping in Page: or demo name spaces
para ={
{ -- Description: wrapped cell content but with no overt formatting applied
use ='p', -- flag wrap as namespace dependent to cdlEwrap
wrap =hi23eCelTags,
proc =emit,
para =nil
},
{ -- Page: right-lower-aligned cell with content wraparound suppressed
use =0, -- cdlEwrap always wraps this value
wrap =pagCellTags,
proc =emit,
para =nil
}
}
},
["CDP"] = { -- chapter + unformatted description followed right-justified page layout
use =3, -- absorbs three arguments
wrap =detailTags, -- table enclosing row
proc =fmtNCells, -- create and apply tags to multiple cells
para ={
{ -- Chapter: upper-right-aligned within minimal-width column
use =0, -- fmtNCells discards this value
wrap =chprCellTags,
proc =emit,
para =nil
},
{ -- Description: wrapped cell content but with no overt formatting applied
use =0, -- fmtNCells discards this value
wrap =unfCellTags,
proc =emit,
para =nil
},
{ -- Page: right-lower-aligned cell with content wraparound suppressed
use =0, -- fmtNCells discards this value
wrap =pagCellTags,
proc =emit,
para =nil
}
}
},
["D.P"] = { -- unformatted description followed by right-lower-dot leader; right-justified page layout
use =2, -- absorbs two arguments
wrap =detailTags, -- table enclosing row
proc =fmtNCells, -- create and apply tags to multiple cells
para ={
{ -- Description: wrapped cell content but with no overt formatting applied
use =0, -- fmtNCells discards this value
wrap =dotoutTags,
proc =emit,
para =nil
},
{ -- Page: right-lower-aligned cell with content wraparound suppressed
use =0, -- fmtNCells discards this value
wrap =pagCellTags,
proc =emit,
para =nil
}
}
},
["H5.P"] = { -- wide hanging indented description; right-justified page layout
use =2, -- absorbs two arguments
wrap =detailTags, -- table enclosing row
proc =fmtNCells, -- create and apply tags to multiple cells
para ={
{ -- Description: wrapped cell content but with no overt formatting applied
use =0, -- fmtNCells discards this value
wrap =hi5doTags,
proc =emit,
para =nil
},
{ -- Page: right-lower-aligned cell with content wraparound suppressed
use =0, -- fmtNCells discards this value
wrap =pagCellTags,
proc =emit,
para =nil
}
}
},
["Hn.P"] = { -- wide hanging indented description; right-justified page layout
use =2, -- absorbs two arguments
wrap =detailTags, -- table enclosing row
proc =fmtNCells, -- create and apply tags to multiple cells
para ={
{ -- Description: wrapped cell content but with no overt formatting applied
use =0, -- fmtNCells discards this value
wrap =hiNdoTags,
proc =emit,
para =nil
},
{ -- Page: right-lower-aligned cell with content wraparound suppressed
use =0, -- fmtNCells discards this value
wrap =pagCellTags,
proc =emit,
para =nil
}
}
},
["Hn.upP"] = { -- wide hanging indented description; undercut controlled-width right-justified page layout
use =2, -- absorbs two arguments
wrap =detailTags, -- table enclosing row
proc =fmtNCells, -- create and apply tags to multiple cells
para ={
{ -- Description: wrapped cell content but with no overt formatting applied
use =0, -- fmtNCells discards this value
wrap =hiNdosTags,
proc =emit,
para =nil
},
{ -- Page: undercut controlled-width right-lower-aligned cell with content wraparound suppressed
use =0, -- fmtNCells discards this value
wrap =hiNdoeTags,
proc =emit,
para =nil
}
}
},
["2H3.P"] = { -- indented hanging indented description; right-justified page layout
use =2, -- absorbs two arguments
wrap =detailTags, -- table enclosing row
proc =fmtNCells, -- create and apply tags to multiple cells
para ={
{ -- Description: wrapped cell content but with no overt formatting applied
use =0, -- fmtNCells discards this value
wrap =hi23doTags,
proc =emit,
para =nil
},
{ -- Page: right-lower-aligned cell with content wraparound suppressed
use =0, -- fmtNCells discards this value
wrap =pagCellTags,
proc =emit,
para =nil
}
}
},
["D?P"] = { -- unformatted description followed by right-lower-dot selectable symbol leader; right-justified page layout
use =3, -- absorbs three arguments
wrap =detailTags, -- table enclosing row
proc =fmtNCells, -- create and apply tags to multiple cells
para ={
{ -- Description followed by symbol-selectable leader in same table cell
use =0, -- fmtNCells discards this value
wrap =dotldoTags,
proc =emit,
para =nil
},
{ -- second argument: leader symbol to be repeated
use =0, -- fmtNCells discards this value
wrap =dotleaTags,
proc =emit384,
para =nil
},
{ -- Page: right-lower-aligned cell with content wraparound suppressed
use =0, -- fmtNCells discards this value
wrap =pagCellTags,
proc =emit,
para =nil
}
}
},
["CD.P"] = { -- chapter + unformatted description followed by right-lower-dot leader; right-justified page layout
use =3, -- absorbs three arguments
wrap =detailTags, -- table enclosing row
proc =fmtNCells, -- create and apply tags to multiple cells
para ={
{ -- Chapter: right-aligned within minimal-width column
use =0, -- fmtNCells discards this value
wrap =chprCellTags,
proc =emit,
para =nil
},
{ -- Description: wrapped cell content but with no overt formatting applied
use =0, -- fmtNCells discards this value
wrap =dotoutTags,
proc =emit,
para =nil
},
{ -- Page: right-lower-aligned cell with content wraparound suppressed
use =0, -- fmtNCells discards this value
wrap =pagCellTags,
proc =emit,
para =nil
}
}
},
["CD.uP"] = { -- chapter + unformatted description followed by right-lower-dot leader; right-justified (undercut) page layout
use =3, -- absorbs three arguments
wrap =detailTags, -- table enclosing row
proc =fmtNCells, -- create and apply tags to multiple cells
para ={
{ -- Chapter: right-aligned within minimal-width column
use =0, -- fmtNCells discards this value
wrap =chprCellTags,
proc =emit,
para =nil
},
{ -- Description: wrapped cell content but with no overt formatting applied
use =0, -- fmtNCells discards this value
wrap =dotoPsTags,
proc =emit,
para =nil
},
{ -- Page: right-lower-aligned cell with content wraparound suppressed
use =0, -- fmtNCells discards this value
wrap =dotoPeTags,
proc =emit,
para =nil
}
}
},
["C5D.P"] = { -- variant of CD.P with no padding following Chapter
use =3, -- absorbs three arguments
wrap =detailTags, -- table enclosing row
proc =fmtNCells, -- create and apply tags to multiple cells
para ={
{ -- Chapter: right-aligned within minimal-width column
use =0, -- fmtNCells discards this value
wrap =chpr0CellTags,
proc =emit,
para =nil
},
{ -- Description: wrapped cell content but with no overt formatting applied
use =0, -- fmtNCells discards this value
wrap =dotoutTags,
proc =emit,
para =nil
},
{ -- Page: right-lower-aligned cell with content wraparound suppressed
use =0, -- fmtNCells discards this value
wrap =pagCellTags,
proc =emit,
para =nil
}
}
},
["2CD.P"] = { -- chapter + unformatted description followed by right-lower-dot leader; right-justified page layout
use =3, -- absorbs three arguments
wrap =detailTags, -- table enclosing row
proc =fmtNCells, -- create and apply tags to multiple cells
para ={
{ -- Chapter: right-aligned within minimal-width column
use =0, -- fmtNCells discards this value
wrap =chp2CellTags,
proc =emit,
para =nil
},
{ -- Description: wrapped cell content but with no overt formatting applied
use =0, -- fmtNCells discards this value
wrap =dotoutTags,
proc =emit,
para =nil
},
{ -- Page: right-lower-aligned cell with content wraparound suppressed
use =0, -- fmtNCells discards this value
wrap =pagCellTags,
proc =emit,
para =nil
}
}
},
["CD.P/s"] = { -- chapter + unformatted description (presumed incomplete)
use =2, -- absorbs two arguments
wrap =detailTags, -- table enclosing row
proc =cdlSwrap, -- only close wrapping in Page: or demo name spaces
para ={
{ -- Chapter: right-aligned within minimal-width column
use =0, -- cdlSwrap always wraps this value
wrap =chprCellTags,
proc =emit,
para =nil
},
{ -- Description: wrapped cell content but with no overt formatting applied
use ='p', -- flag wrap as namespace dependent to cdlSwrap
wrap =dotouSTags,
proc =emit,
para =nil
}
}
},
["CD.P/e"] = { -- (remaineder of) unformatted description followed by right-lower-dot leader; right-justified page layout
use =2, -- absorbs two arguments
wrap =detailTags, -- table enclosing row
proc =cdlEwrap, -- only open wrapping in Page: or demo name spaces
para ={
{ -- Description: wrapped cell content but with no overt formatting applied
use ='p', -- flag wrap as namespace dependent to cdlEwrap
wrap =dotouETags,
proc =emit,
para =nil
},
{ -- Page: right-lower-aligned cell with content wraparound suppressed
use =0, -- cdlEwrap always outputs this portion
wrap =pagCellTags,
proc =emit,
para =nil
}
}
},
["CH2.P"] = { -- chapter + large hanging indented description followed by right-lower-dot leader; right-justified page layout
use =3, -- absorbs three arguments
wrap =detailTags, -- table enclosing row
proc =fmtNCells, -- create and apply tags to multiple cells
para ={
{ -- Chapter: right-aligned within controlled minimal-width column
use =0, -- fmtNCells discards this value
wrap =chprCellTags,
proc =emit,
para =nil
},
{ -- Description: wrapped cell content but with no overt formatting applied
use =0, -- fmtNCells discards this value
wrap =hi2doTags,
proc =emit,
para =nil
},
{ -- Page: right-lower-aligned cell with content wraparound suppressed
use =0, -- fmtNCells discards this value
wrap =pagCellTags,
proc =emit,
para =nil
}
}
},
["mCHn.pP"] = { -- controlled-width chapter + controlled-depth hanging indented description followed by right-lower-dot leader; controlled-width right-justified page layout
use =3, -- absorbs three arguments
wrap =detailTags, -- table enclosing row
proc =fmtNCells, -- create and apply tags to multiple cells
para ={
{ -- Chapter: right-aligned within minimal-width column
use =0, -- fmtNCells discards this value
wrap =chpMCellTags,
proc =emit,
para =nil
},
{ -- Description: wrapped cell content but with no overt formatting applied
use =0, -- fmtNCells discards this value
wrap =hiNdoTags,
proc =emit,
para =nil
},
{ -- Page: right-lower-aligned cell with content wraparound suppressed
use =0, -- fmtNCells discards this value
wrap =paPCellTags,
proc =emit,
para =nil
}
}
},
["mCHn.upP"] = { -- wide hanging indented description; undercut controlled-width right-justified page layout
use =3, -- absorbs two arguments
wrap =detailTags, -- table enclosing row
proc =fmtNCells, -- create and apply tags to multiple cells
para ={
{ -- Chapter: right-aligned within minimal-width column
use =0, -- fmtNCells discards this value
wrap =chpMCellTags,
proc =emit,
para =nil
},
{ -- Description: wrapped cell content but with no overt formatting applied
use =0, -- fmtNCells discards this value
wrap =hiNdosTags,
proc =emit,
para =nil
},
{ -- Page: undercut controlled-width right-lower-aligned cell with content wraparound suppressed
use =0, -- fmtNCells discards this value
wrap =hiNdoeTags,
proc =emit,
para =nil
}
}
},
["l"] = { -- left-align items only layout (same as "D" model)
use =1, -- absorbs a single argument only
wrap =nil, -- no enclosing structures required
proc =emit, -- function to output standalone description with no separate page numbers
para =nil -- no details required
},
["c"] = { -- centre single item only layout
use =1, -- absorbs a single argument only
wrap =detailTags, -- table enclosing row
proc =fmtCell, -- create and apply tags to new table cell
para ={
use =0, -- fmtCell discards this value
wrap =ctrCellTags,
proc =emit,
para =nil
}
},
["j"] = { -- justified single item only layout
use =1, -- absorbs a single argument only
wrap =detailTags, -- table enclosing row
proc =fmtCell, -- create and apply tags to new table cell
para ={
use =0, -- fmtCell discards this value
wrap =jstCellTags,
proc =emit,
para =nil
}
},
["r"] = { -- right-align single item only layout
use =1, -- absorbs a single argument only
wrap =detailTags, -- table enclosing row
proc =fmtCell, -- create and apply tags to new table cell
para ={
use =0, -- fmtCell discards this value
wrap =rgtCellTags,
proc =emit,
para =nil
}
},
["h"] = { -- hanging indent single item layout
use =1, -- absorbs a single argument only
wrap =detailTags, -- table enclosing row
proc =fmtCell, -- create and apply tags to new table cell
para ={
use =0, -- fmtCell discards this value
wrap =hi1CellTags,
proc =emit,
para =nil
}
},
["7h2"] = { -- wide indented hanging indent single item layout with page clearance
use =1, -- absorbs a single argument only
wrap =detailTags, -- table enclosing row
proc =fmtCell, -- create and apply tags to new table cell
para ={
use =0, -- fmtCell discards this value
wrap =hi72CellTags,
proc =emit,
para =nil
}
},
["lcr"] = { -- {{RunningHeader}} lookalike layout
use =3, -- absorbs three arguments
wrap =detailTags, -- table enclosing row
proc =fmtNCells, -- create and apply tags to multiple cells
para ={
{ -- left component
use =0, -- fmtNCells discards this value
wrap =l33CellTags,
proc =emit,
para =nil
},
{ -- centred component
use =0, -- fmtNCells discards this value
wrap =c33CellTags,
proc =emit,
para =nil
},
{ -- right component
use =0, -- fmtNCells discards this value
wrap =r33CellTags,
proc =emit,
para =nil
}
}
},
["lr"] = { -- Two columns: first is left-aligned, second is right-aligned
use =2, -- absorbs two arguments
wrap =detailTags, -- table enclosing row
proc =fmtNCells, -- create and apply tags to multiple cells
para ={
{ -- left component
use =0, -- fmtNCells discards this value
wrap =l33CellTags,
proc =emit,
para =nil
},
{ -- right component
use =0, -- fmtNCells discards this value
wrap =r33CellTags,
proc =emit,
para =nil
}
}
},
["lccr"] = { -- {{RunningHeader}} lookalike layout
use =4, -- absorbs four arguments
wrap =detailTags, -- table enclosing row
proc =fmtNCells, -- create and apply tags to multiple cells
para ={
{ -- left component
use =0, -- fmtNCells discards this value
wrap =l20CellTags,
proc =emit,
para =nil
},
{ -- centred component
use =0, -- fmtNCells discards this value
wrap =c30CellTags,
proc =emit,
para =nil
},
{ -- centred component
use =0, -- fmtNCells discards this value
wrap =c30CellTags,
proc =emit,
para =nil
},
{ -- right component
use =0, -- fmtNCells discards this value
wrap =r20CellTags,
proc =emit,
para =nil
}
}
},
["lcccr"] = { -- {{rh/5}} lookalike layout
use =5, -- absorbs five arguments
wrap =detailTags, -- table enclosing row
proc =fmtNCells, -- create and apply tags to multiple cells
para ={
{ -- left component
use =0, -- fmtNCells discards this value
wrap =l12CellTags,
proc =emit,
para =nil
},
{ -- centred component
use =0, -- fmtNCells discards this value
wrap =c25CellTags,
proc =emit,
para =nil
},
{ -- centred component
use =0, -- fmtNCells discards this value
wrap =c25CellTags,
proc =emit,
para =nil
},
{ -- centred component
use =0, -- fmtNCells discards this value
wrap =c25CellTags,
proc =emit,
para =nil
},
{ -- right component
use =0, -- fmtNCells discards this value
wrap =r12CellTags,
proc =emit,
para =nil
}
}
}
}
local needheader = true
local needfooter = true
local needbody = true
local html = '' -- output buffer; initially empty
local mainhtml = nil -- committed output buffer (in case demo space expectation diverges from 'html' above)
local modelranges = {} -- array of ([row]-->modelspec strings; initially empty
local ribbonranges = {} -- array of ([row]-->demospace directives; initially empty
local styleranges = {} -- array of ([row]-->row styling directives; initially empty
-- extract maximum unnamed argument index
local cellcount = table.getn(args)
if isnotempty(args['debugArgs']) then
html = html .. '<p style="margin-left:0;text-indent:0;"><strong>Raw Argument Dump</strong>'
end
-- compute the maximum cell index (Depressing: cannot trust table.getn() in frame context)
-- Also: dump argument details if 'debugArgs' selected
-- Also: pass 1 to determine "range m to n" model specifications
-- Also: pass 1 to determine "range m to n" pageribbon overrides
for k, v in pairs( args ) do -- pairs appears to access in hash order only(?)
if isnotempty(args['debugArgs']) then -- I know: access args to determine whether to dump args!
html = html .. '<br/>args(' .. k .. ':type("' .. type(k) .. '"): contains [' .. v .. ']:type("' .. type(v) .. '")'
end
if type(k) == 'number' then
if cellcount < k then
cellcount = k
end
elseif type(k) == 'string' then
local rnglow
local rnghigh
rnglow, rnghigh = k:match( '^%s*row(%d+)to(%d+)model%s*$' )
if rnglow == nil or rnghigh == nil then
rnglow, rnghigh = k:match( '^%s*row(%d+)%-(%d+)model%s*$' )
end
if rnglow and rnghigh then -- only if neither are nil
if tonumber(rnglow) > tonumber(rnghigh) then -- swap if order choice was perverse
rnglow, rnghigh = rnghigh, rnglow
end
for rrow = rnglow, rnghigh, 1 do
modelranges[rrow] = v
end
end
rnglow, rnghigh = k:match( '^%s*row(%d+)to(%d+)pageribbon%s*$' )
if rnglow == nil or rnghigh == nil then
rnglow, rnghigh = k:match( '^%s*row(%d+)%-(%d+)pageribbon%s*$' )
end
if rnglow and rnghigh then -- only if neither are nil
if tonumber(rnglow) > tonumber(rnghigh) then -- swap if order choice was perverse
rnglow, rnghigh = rnghigh, rnglow
end
for rrow = rnglow, rnghigh, 1 do
ribbonranges[rrow] = v
end
end
rnglow, rnghigh = k:match( '^%s*row(%d+)to(%d+)style%s*$' )
if rnglow == nil or rnghigh == nil then
rnglow, rnghigh = k:match( '^%s*row(%d+)%-(%d+)style%s*$' )
end
if rnglow and rnghigh then -- only if neither are nil
if tonumber(rnglow) > tonumber(rnghigh) then -- swap if order choice was perverse
rnglow, rnghigh = rnghigh, rnglow
end
for rrow = rnglow, rnghigh, 1 do
styleranges[rrow] = v
end
end
end
end
if isnotempty(args['debugArgs']) then
html = html .. '</p>'
end
-- Now, sadly the above process has to be largely repeated to:
-- "correct" modelranges for "multiple single row" specifications
-- "correct" ribbonranges for "multiple single row" overrides
-- "correct" styleranges for "multiple single row" overrides
for k, v in pairs( args ) do
if type(k) == 'string' then
local extract = k:match( '^%s*row(%d+,.-%d+)model%s*$' )
while extract do -- only if valid content extracted
local rrow
rrow, extract = extract:match( '^(%d+),?(.-%d-)$' )
if rrow then
modelranges[tonumber(rrow)] = v
end
end
extract = k:match( '^%s*row(%d+,.-%d+)pageribbon%s*$' )
while extract do -- only if valid content extracted
local rrow
rrow, extract = extract:match( '^(%d+),?(.-%d-)$' )
if rrow then
ribbonranges[tonumber(rrow)] = v
end
end
extract = k:match( '^%s*row(%d+,.-%d+)style%s*$' )
while extract do -- only if valid content extracted
local rrow
rrow, extract = extract:match( '^(%d+),?(.-%d-)$' )
if rrow then
styleranges[tonumber(rrow)] = v
end
end
end
end
if isnotempty(args['starting']) then
needheader = true
needfooter = false
end
if isnotempty(args['continuing']) then
needheader = false
needfooter = false
end
if isnotempty(args['completing']) then
needheader = false
needfooter = true
end
if isnotempty(args['header']) then
needheader = true
needbody = false
needfooter = false
end
if isnotempty(args['footer']) then
needheader = false
needbody = false
needfooter = true
end
if needheader then
local outerCSS = otDefCSS -- prefill default
if isnotempty(args['compact']) then
outerCSS = otCptCSS -- override with narrower centred layout if chosen
end
if isnotempty(args['class']) then -- prepend any class overrides to styling
outerCSS = ' class="' .. args['class'] .. '"' .. outerCSS
end
if isnotempty(args['width']) then -- a specified width implies centring (auto left/right margins) will be needed
-- probably silly (but not an error) to have selectedi "compact" option as well
outerCSS = mw.ustring.gsub(outerCSS, 'margin:0;', 'margin:0 auto 0 auto;')
outerCSS = mw.ustring.gsub(outerCSS, '"$', 'width:' .. args['width'] .. ';"')
end
if isnotempty(args['style']) then -- user styling will always be applied *after* defaults
outerCSS = mw.ustring.gsub(outerCSS, '"$', args['style'] .. ';"')
end
-- yes strictly html is empty at this point (but allow for debugging prefill)
html = html .. mw.ustring.gsub(outerTags[1], '%$CSS%$', outerCSS)
end
if cellcount~=0 then -- nothing whatsoever to do if no unnamed arguments presented
if needbody then
local index = 1
local row = 0
local defmodel = 'D'
if isnotempty(args['model']) then
defmodel = args['model']
end
while index <= cellcount do
mainhtml = nil
row = row + 1
local model = defmodel
local outRow = isRibbonAllowed(args['row' .. tostring(row) .. 'pageribbon'],
ribbonranges[row],
args['demoSpace'])
if modelranges[row] then
model = modelranges[row]
end
if isnotempty(args['row' .. tostring(row) .. 'model']) then
model = args['row' .. tostring(row) .. 'model']
end
-- start a new row
if outRow then
local openTags = rowTags[1]
if isnotempty(args['row' .. tostring(row) .. 'style']) then
openTags = mw.ustring.gsub(openTags, '">', args['row' .. tostring(row) .. 'style'] .. ';">')
elseif styleranges[row] then
openTags = mw.ustring.gsub(openTags, '">', styleranges[row] .. ';">')
end
html = html .. openTags
end
if modelTab[model] then
if modelTab[model].wrap and
outRow then
html = html .. modelTab[model].wrap[1]
end
if modelTab[model].proc then
local item
index, item = modelTab[model].proc(args,index,modelTab[model].use,modelTab[model].para)
if (modelTab[model].proc == cdlEwrap) and not isDemoSpace(args['demoSpace']) then
html = '' -- restart HTML build if processing '.../e' model
end
if outRow then
html = html .. item
end
end
if modelTab[model].wrap then
if (modelTab[model].proc == cdlSwrap) and not isDemoSpace(args['demoSpace']) then
mainhtml = html -- preserve unclosed wrap state
end
if outRow then
html = html .. modelTab[model].wrap[2]
end
end
else -- unsupported model specified? Just give up and issue first error observed
return '<br/><strong class="error">Invalid model: "' ..
model ..
'" apparently requested on behalf of row ' ..
row ..
'?</strong>'
end
-- terminate row
if outRow then
html = html .. rowTags[2]
end
end
end
end
if needfooter then
html = html .. outerTags[2]
end
-- generalised depth hanging indent/width of chapter, page
if mainhtml then
mainhtml = mw.ustring.gsub(mainhtml, '%$CHWIDTH%$', args['chapter-width'] or '5em')
mainhtml = mw.ustring.gsub(mainhtml, '%$DEPTH%$', args['depth'] or '5em')
mainhtml = mw.ustring.gsub(mainhtml, '%$PGWIDTH%$', args['page-width'] or '2em')
end
html = mw.ustring.gsub(html, '%$CHWIDTH%$', args['chapter-width'] or '5em')
html = mw.ustring.gsub(html, '%$DEPTH%$', args['depth'] or '5em')
html = mw.ustring.gsub(html, '%$PGWIDTH%$', args['page-width'] or '2em')
-- return generated html
if isDemoSpace(args['demoSpace']) then
return html
else
return mainhtml or html
end
end
return p