「モジュール:Side box」の版間の差分

ナビゲーションに移動 検索に移動
(1版)
 
bsd>ネイ
1行目: 1行目:
-- This module implements {{side box}}.
local yesno = require('Module:Yesno')
local yesno = require('Module:Yesno')
local p = {}
local p = {}


function p.main(frame)
local function makeData(args)
local origArgs = frame:getParent().args
local args = {}
for k, v in pairs(origArgs) do
v = v:match('%s*(.-)%s*$')
if v ~= '' then
args[k] = v
end
end
return p._main(args)
end
 
function p._main(args)
local data = p.makeData(args)
return p.renderSidebox(data)
end
 
function p.makeData(args)
local data = {}
local data = {}


31行目: 11行目:
end
end
if args.position and args.position:lower() == 'left' then
if args.position and args.position:lower() == 'left' then
table.insert(data.classes, 'mbox-small-left')
table.insert(data.classes, 'side-box-left')
else
else
table.insert(data.classes, 'mbox-small')
table.insert(data.classes, 'side-box-right')
end
end
if args.collapsible then
table.insert(data.classes, 'mw-collapsible')
if args.collapsible == "collapsed" then
table.insert(data.classes, 'mw-collapsed')
end
data.collapsible = true
end
table.insert(data.classes, args.class)
table.insert(data.classes, args.class)
42行目: 31行目:
end
end


-- Copy over data that doesn't need adjusting
-- Copy over data that does not need adjusting
local argsToCopy = {
local argsToCopy = {
-- aria qualities
'role',
'labelledby',
-- Classes
'textclass',
-- Styles
-- Styles
'style',
'style',
'textstyle',
'textstyle',
'templatestyles',


-- Above row
-- Above row
66行目: 64行目:
end
end


function p.renderSidebox(data)
local function renderSidebox(data)
-- Renders the sidebox HTML.
-- Renders the sidebox HTML.


-- Table root
-- Table root
local root = mw.html.create('table')
local root = mw.html.create('div')
root:attr('role', 'presentation')
root:attr('role', data.role)
:attr('aria-labelledby', data.labelledby)
:addClass('side-box')
for i, class in ipairs(data.classes or {}) do
for i, class in ipairs(data.classes or {}) do
root:addClass(class)
root:addClass(class)
end
end
root:css{border = '1px solid #aaa', ['background-color'] = '#f9f9f9'}
if data.style then
if data.style then
root:cssText(data.style)
root:cssText(data.style)
82行目: 81行目:
-- The "above" row
-- The "above" row
if data.above then
if data.above then
local aboveCell = root:newline():tag('tr'):tag('td')
local above = root:newline():tag('div')
aboveCell
above:addClass('side-box-abovebelow')
:attr('colspan', data.imageright and 3 or 2)
:newline()
:addClass('mbox-text')
:wikitext(data.above)
if data.textstyle then
if data.textstyle then
aboveCell:cssText(data.textstyle)
above:cssText(data.textstyle)
end
end
if data.abovestyle then
if data.abovestyle then
aboveCell:cssText(data.abovestyle)
above:cssText(data.abovestyle)
end
end
aboveCell
:newline()
:wikitext(data.above)
end
end


-- The body row
-- The body row
local bodyRow = root:newline():tag('tr'):newline()
local body = root:newline():tag('div')
body:addClass('side-box-flex')
:addClass(data.collapsible and 'mw-collapsible-content')
:newline()
if data.image then
if data.image then
bodyRow:tag('td')
body:tag('div')
:addClass('mbox-image')
:addClass('side-box-image')
:wikitext(data.image)
:wikitext(data.image)
else
bodyRow:tag('td'):css('width', '1px')
end
end
local textCell = bodyRow:newline():tag('td')
local text = body:newline():tag('div')
textCell:addClass('mbox-text plainlist')
text:addClass('side-box-text')
:addClass(data.textclass or 'plainlist')
if data.textstyle then
if data.textstyle then
textCell:cssText(data.textstyle)
text:cssText(data.textstyle)
end
end
textCell:wikitext(data.text)
text:wikitext(data.text)
if data.imageright then
if data.imageright then
bodyRow:newline():tag('td')
body:newline():tag('div')
:addClass('mbox-imageright')
:addClass('side-box-imageright')
:wikitext(data.imageright)
:wikitext(data.imageright)
end
end
120行目: 118行目:
-- The below row
-- The below row
if data.below then
if data.below then
local belowCell = root:newline():tag('tr'):tag('td')
local below = root:newline():tag('div')
belowCell
below
:attr('colspan', data.imageright and 3 or 2)
:addClass('side-box-abovebelow')
:addClass('mbox-text')
:wikitext(data.below)
if data.textstyle then
if data.textstyle then
belowCell:cssText(data.textstyle)
below:cssText(data.textstyle)
end
end
belowCell:wikitext(data.below)
end
end


return tostring(root)
root:newline()
local frame = mw.getCurrentFrame()
local templatestyles = ''
if data.templatestyles then
templatestyles = frame:extensionTag{
name = 'templatestyles', args = { src = data.templatestyles }
}
end
return frame:extensionTag{
name = 'templatestyles', args = { src = 'Module:Side box/styles.css' }
} .. templatestyles .. tostring(root)
end
 
function p._main(args)
local data = makeData(args)
return renderSidebox(data)
end
 
function p.main(frame)
local origArgs = frame:getParent().args
local args = {}
for k, v in pairs(origArgs) do
v = v:match('%s*(.-)%s*$')
if v ~= '' then
args[k] = v
end
end
return p._main(args)
end
end


return p
return p
匿名利用者

案内メニュー