モジュール:Infobox - 版の履歴

R-4981: ページの作成:「local p = {} function p.build(title, entries, prev_link, next_link) local s = '

2024-07-04T01:16:12Z

ページの作成:「local p = {} function p.build(title, entries, prev_link, next_link) local s = '<div style="' .. "border: 1px solid #999; " .. "margin: 0; " .. "margin-left: 1em;…」

新規ページ
local p = {}

function p.build(title, entries, prev_link, next_link)
local s = '<div style="'
.. "border: 1px solid #999; "
.. "margin: 0; "
.. "margin-left: 1em; "
.. "margin-bottom: 0.5em; "
.. "padding: 0.5em; "
.. "background-color: #f0f0f0; "
.. "min-width: 15em; "
.. "float: right; "
.. "max-width: 100%; "
.. "overflow: auto; "
.. '">\n'
.. '{| width="100%" style="border-collapse: collapse;"\n'
.. '|+ style="font-weight: bold; text-align: center;" | '
local has_adjacent = (prev_link and #prev_link > 0) or (next_link and #next_link > 0)
if has_adjacent then
s = s
.. '<table style="width: 100%; margin: 0;"><tr>'
.. '<td style="width: 15%; text-align: left; white-space: nowrap; font-size: smaller;">'
.. (prev_link or "")
.. "</td>"
.. '<td style="width: 70%; padding-left: 1em; padding-right: 1em; text-align: center;">'
.. title
.. "</td>"
.. '<td style="width: 15%; text-align: right; white-space: nowrap; font-size: smaller;">'
.. (next_link or "")
.. "</td>"
.. "</tr></table>"
else
s = s .. title
end
s = s .. "\n"
for _, entry in ipairs(entries) do
if #entry > 1 then
local caption = entry[1]
local text = entry[2]
s = s
.. "|-\n"
.. '| style="text-align: right; padding-right: 0.25em;" | '
.. caption
.. "\n"
.. '| style="background-color: white; padding-left: 0.25em; font-weight: bold;" | '
.. text
.. "\n"
elseif #entry == 1 then
local text = entry[1]
s = s .. "|-\n" .. '| colspan="2" style="text-align: center;" | ' .. text .. "\n"
end
end
s = s .. "|}</div>"
return s
end

-- Multilink infobox
-- The following must be passed in:
-- - Title (self-explanatory)
-- - Sections (see comments for details)
-- - Adjacent links; supports 0, 2, or 8 adjacent links
function p.build_multilink(title, entries, adjacent_links)
-- Boilerplate stuff
local s = '<div style="'
.. "border: 1px solid #999; "
.. "margin: 0; "
.. "margin-left: 1em; "
.. "margin-bottom: 0.5em; "
.. "padding: 0.5em; "
.. "background-color: #f0f0f0; "
.. "min-width: 15em; "
.. "float: right; "
.. "max-width: 100%; "
.. "overflow: auto; "
.. '">\n'
.. '{| width="100%" style="border-collapse: collapse;"\n'
.. '|+ style="font-weight: bold; text-align: center;" | '

-- Adjacent links
-- If there are two adjacent links (such as with edos), then links
-- will be placed on the left and right of the title
-- [Link 1] Title [Link 2]
-- - Link 1 is previous, link 2 is next
-- If there are eight adjacent links (such as with mosses), then
-- links surround the title, forming a 3x3 grid as such:
-- [Link 1] [Link 2] [Link 3]
-- [Link 4] Title [Link 5]
-- [Link 6] [Link 7] [Link 8]
-- - 1: prev_A, prev_B
-- - 2: prev_B
-- - 3: next_A, prev_B
-- - 4: prev_A,
-- - 5: next_A,
-- - 6: prev_A, next_B
-- - 7: next_B,
-- - 8: next_A, next_B
-- Leaving this field nil defaults to only having the title; individual
-- links, as with "border" cases (eg, nothing comes before 0edo), can be
-- left blank.
if adjacent_links == nil then
s = s .. title
s = s .. '\n'
elseif #adjacent_links == 2 then
local prev_link = adjacent_links[1]
local next_link = adjacent_links[2]
s = s
.. '<table style="width: 100%; margin: 0;"><tr>'
.. '<td style="width: 15%; text-align: left; white-space: nowrap; font-size: smaller;">'
.. (prev_link or "")
.. "</td>"
.. '<td style="width: 70%; padding-left: 1em; padding-right: 1em; text-align: center;">'
.. title
.. "</td>"
.. '<td style="width: 15%; text-align: right; white-space: nowrap; font-size: smaller;">'
.. (next_link or "")
.. "</td>"
.. "</tr></table>"
s = s .. '\n'
elseif #adjacent_links == 8 then
-- First row
s = s .. '<table style="width: 100%; margin: 0;"><tr>'
.. '<td style="width: 15%; text-align: left; white-space: nowrap; font-size: smaller;">'
.. (adjacent_links[1] or "")
.. '</td>'
.. '<td style="\n'
.. 'width: 75%; padding-left: 1em; padding-right: 1em; text-align: center; font-size: smaller;">'
.. (adjacent_links[2] or "")
.. '\n</td><td style="width: 15%; text-align: right; white-space: nowrap; font-size: smaller">'
.. (adjacent_links[3] or "")
.. '</td>'

-- Second row
.. '\n<tr>'
.. '<td style="width: 15%; text-align: left; white-space: nowrap; font-size: smaller;">'
.. (adjacent_links[4] or "")
.. '</td>'
.. '<td style="width: 75%; padding-left: 1em; padding-right: 1em; text-align: center;">'
.. title
.. '</td>'
.. '<td style="width: 15%; text-align: right; white-space: nowrap; font-size: smaller;">'
.. (adjacent_links[5] or "")
.. '</td>'
.. '</tr>'
.. '<tr>'

-- Third row
.. '<td style="width: 15%; text-align: left; white-space: nowrap; font-size: smaller;">'
.. (adjacent_links[6] or "")
.. '</td><td style="\n'
.. 'width: 75%; padding-left: 1em; padding-right: 1em; text-align: center; font-size: smaller;">'
.. (adjacent_links[7] or "")
.. '\n</td>'
.. '<td style="width: 15%; text-align: right; white-space: nowrap; font-size: smaller;">'
.. (adjacent_links[8] or "")
.. '</td>'
.. '</tr>'
.. '</table>'
s = s .. '\n'
else
s = s .. title
s = s .. '\n'
end

-- Add infobox entries
-- Entries are entered as a jagged array (array of arrays) where each
-- subarray has either one or two entries.
-- These entries form the rows of a two-column table.
-- One-entry arrays are used for entries that must span both columns,
-- such as a section header. Two-entry arrays are used for the main content.
for _, entry in ipairs(entries) do
if #entry > 1 then
local caption = entry[1]
local text = entry[2]
s = s
.. "|-\n"
.. '| style="text-align: right; padding-right: 0.25em;" | '
.. caption
.. "\n"
.. '| style="background-color: white; padding-left: 0.25em; font-weight: bold;" | '
.. text
.. "\n"
elseif #entry == 1 then
local text = entry[1]
s = s .. "|-\n" .. '| colspan="2" style="text-align: center;" | ' .. text .. "\n"
end
end

-- End of infobox
s = s .. "|}\n"
.. "</div>"
return s
end

return p