Ritchie Boys Wiki

Module:Soldier: Difference between revisions

← Older editNewer edit →
Add lead and infobox helpers
wikipedia_layout
Line 22: Line 22:
return mw.ustring.upper(first) .. rest
return mw.ustring.upper(first) .. rest
end)
end)
end
local function containsIgnoreCase(haystack, needle)
return mw.ustring.find(mw.ustring.lower(haystack), mw.ustring.lower(needle), 1, true) ~= nil
end
end


Line 51: Line 55:
end
end
return name
return name
end
local function classLinkList(raw, withPrefix)
local out = {}
for part in mw.text.gsplit(raw, ';', true) do
part = trim(part)
if part ~= '' then
if withPrefix then
table.insert(out, string.format('[[Class %s]]', part))
else
table.insert(out, string.format('[[Class %s|%s]]', part, part))
end
end
end
return out
end
local function addHeader(tbl, text)
tbl:tag('tr'):tag('th')
:attr('colspan', '2')
:addClass('infobox-header')
:wikitext(text)
end
local function addRow(tbl, label, value, dataClass)
if trim(value) == '' then
return
end
local tr = tbl:tag('tr')
tr:tag('th'):addClass('infobox-label'):wikitext(label)
local td = tr:tag('td'):addClass('infobox-data')
if dataClass and dataClass ~= '' then
td:addClass(dataClass)
end
td:wikitext(value)
end
end


Line 58: Line 97:


function p.classLinks(frame)
function p.classLinks(frame)
local raw = parentArg(frame, 'class_number')
return table.concat(classLinkList(parentArg(frame, 'class_number'), false), ', ')
local out = {}
end
for part in mw.text.gsplit(raw, ';', true) do
 
part = trim(part)
function p.infobox(frame)
if part ~= '' then
local name = displayName(frame)
table.insert(out, string.format('[[Class %s|%s]]', part, part))
local tbl = mw.html.create('table')
tbl:addClass('infobox'):addClass('vcard'):addClass('soldier-infobox')
 
tbl:tag('tr'):tag('th')
:attr('colspan', '2')
:addClass('infobox-above fn')
:wikitext(name)
 
local photo = parentArg(frame, 'photo')
if photo ~= '' then
local size = parentArg(frame, 'image_size')
if size == '' then
size = '220px'
end
local alt = parentArg(frame, 'alt')
if alt == '' then
alt = name
end
local td = tbl:tag('tr'):tag('td')
:attr('colspan', '2')
:addClass('infobox-image')
td:wikitext(string.format('[[File:%s|%s|alt=%s]]', photo, size, alt))
local caption = parentArg(frame, 'caption')
if caption ~= '' then
td:tag('div'):addClass('infobox-caption'):wikitext(caption)
end
end
 
local alias = parentArg(frame, 'alias')
local birth = parentArg(frame, 'birth_year')
local death = parentArg(frame, 'death_year')
local nativity = parentArg(frame, 'nativity')
local religion = parentArg(frame, 'religion')
local marital = parentArg(frame, 'marital')
local education = parentArg(frame, 'education')
local occupation = parentArg(frame, 'occupation')
local state = parentArg(frame, 'state')
 
if alias ~= '' or birth ~= '' or death ~= '' or nativity ~= ''
or religion ~= '' or marital ~= '' or education ~= ''
or occupation ~= '' or state ~= '' then
addHeader(tbl, 'Personal details')
end
 
addRow(tbl, 'Nickname', alias, 'nickname')
 
if birth ~= '' then
local born = birth
if nativity ~= '' then
born = born .. '<br />Nativity: ' .. nativity
end
addRow(tbl, 'Born', born)
elseif nativity ~= '' then
addRow(tbl, 'Nativity', nativity)
end
addRow(tbl, 'Died', death)
addRow(tbl, 'Religion', religion)
addRow(tbl, 'Spouse / marital', marital)
addRow(tbl, 'Education', education)
addRow(tbl, 'Occupation', occupation)
if state ~= '' then
addRow(tbl, 'State', titleCase(state))
end
 
addHeader(tbl, 'Military service')
addRow(tbl, 'Allegiance', 'United States')
local branch = parentArg(frame, 'class_branch')
if branch == '' then
branch = 'United States Army'
end
addRow(tbl, 'Branch', branch)
addRow(tbl, 'ASN', parentArg(frame, 'asn'), 'serial')
 
local rankFinal = parentArg(frame, 'rank_final')
local classRank = parentArg(frame, 'class_rank')
local rank = rankFinal
if rank == '' then
rank = classRank
elseif classRank ~= '' and classRank ~= rankFinal then
rank = rankFinal .. "<br />''At Ritchie:'' " .. classRank
end
addRow(tbl, 'Rank', rank)
 
local classRaw = parentArg(frame, 'class_number')
local classBits = classLinkList(classRaw, false)
if #classBits > 0 then
local camp = 'Class ' .. table.concat(classBits, ', ')
local section = parentArg(frame, 'class_section')
if section ~= '' then
camp = camp .. '<br />Section ' .. section
end
local other = parentArg(frame, 'other_class')
if other ~= '' then
camp = camp .. '<br />Other: ' .. other
end
addRow(tbl, 'Camp Ritchie', camp)
end
 
local enlist = parentArg(frame, 'enlistment_place')
if enlist ~= '' then
addRow(tbl, 'Enlisted', titleCase(enlist))
end
addRow(tbl, 'Assignment', parentArg(frame, 'assignment'))
addRow(tbl, 'Unit / division', parentArg(frame, 'division'))
addRow(tbl, 'IPW (German)', parentArg(frame, 'ipw_ge'))
addRow(tbl, 'IPW (Italian)', parentArg(frame, 'ipw_it'))
addRow(tbl, 'Overseas', parentArg(frame, 'overseas'))
addRow(tbl, 'Special', parentArg(frame, 'special'))
addRow(tbl, 'LOC', parentArg(frame, 'loc'))
 
local arrive = parentArg(frame, 'date_arrive')
local depart = parentArg(frame, 'date_depart')
if arrive ~= '' or depart ~= '' then
local dates = {}
if arrive ~= '' then
table.insert(dates, 'Arrived ' .. arrive)
end
if depart ~= '' then
table.insert(dates, 'Departed ' .. depart)
end
end
addRow(tbl, 'Service dates', table.concat(dates, '<br />'))
end
end
return table.concat(out, ', ')
addRow(tbl, 'Certificate', parentArg(frame, 'certificate'))
 
return tostring(tbl)
end
end


Line 79: Line 239:
local dates = ''
local dates = ''
if birth ~= '' and death ~= '' then
if birth ~= '' and death ~= '' then
dates = string.format(' (%s ? %s)', birth, death)
dates = string.format(' (%s – %s)', birth, death)
elseif birth ~= '' then
elseif birth ~= '' then
dates = string.format(' (born %s)', birth)
dates = string.format(' (born %s)', birth)
Line 86: Line 246:
end
end


local rank = parentArg(frame, 'rank_final')
local classLinks = classLinkList(parentArg(frame, 'class_number'), true)
if rank == '' then
local trained
rank = parentArg(frame, 'class_rank')
end
 
local role = 'was a United States Army'
if rank ~= '' then
role = role .. ' ' .. rank
end
role = role .. ' soldier'
 
local classRaw = parentArg(frame, 'class_number')
local classLinks = {}
for part in mw.text.gsplit(classRaw, ';', true) do
part = trim(part)
if part ~= '' then
table.insert(classLinks, string.format('[[Class %s]]', part))
end
end
if #classLinks == 1 then
if #classLinks == 1 then
role = role .. ' who trained at [[Camp Ritchie]], Maryland, in ' .. classLinks[1]
trained = ' who trained at [[Camp Ritchie]], Maryland, in ' .. classLinks[1]
elseif #classLinks > 1 then
elseif #classLinks > 1 then
role = role .. ' who trained at [[Camp Ritchie]], Maryland, in classes ' .. table.concat(classLinks, ', ')
trained = ' who trained at [[Camp Ritchie]], Maryland, in classes ' .. table.concat(classLinks, ', ')
else
else
role = role .. ' associated with Camp Ritchie, Maryland'
trained = ' associated with Camp Ritchie, Maryland'
end
end


local sentences = {
local first = string.format(
string.format("'''%s'''%s %s.", name, dates, role)
"'''%s'''%s was a United States Army soldier%s.",
}
name,
dates,
trained
)


local more = {}
local enlist = parentArg(frame, 'enlistment_place')
local enlist = parentArg(frame, 'enlistment_place')
local state = parentArg(frame, 'state')
local state = parentArg(frame, 'state')
Line 122: Line 269:
local place = titleCase(enlist)
local place = titleCase(enlist)
if state ~= '' then
if state ~= '' then
place = place .. ', ' .. titleCase(state)
local stateTitle = titleCase(state)
if not containsIgnoreCase(place, stateTitle) then
place = place .. ', ' .. stateTitle
end
end
end
table.insert(sentences, surname .. ' enlisted at ' .. place .. '.')
table.insert(more, surname .. ' enlisted at ' .. place .. '.')
elseif state ~= '' then
elseif state ~= '' then
table.insert(sentences, 'Records list ' .. titleCase(state) .. ' as the state of enlistment or residence.')
table.insert(more, 'Records list ' .. titleCase(state) .. ' as the state of enlistment or residence.')
end
 
local rank = parentArg(frame, 'rank_final')
if rank == '' then
rank = parentArg(frame, 'class_rank')
end
if rank ~= '' then
table.insert(more, 'Records list the rank as ' .. rank .. '.')
end
end


local assignment = parentArg(frame, 'assignment')
local assignment = parentArg(frame, 'assignment')
if assignment ~= '' then
if assignment ~= '' then
table.insert(sentences, surname .. ' was assigned to ' .. assignment .. '.')
table.insert(more, surname .. ' was assigned to ' .. assignment .. '.')
end
end


Line 144: Line 302:
end
end
if #ipw > 0 then
if #ipw > 0 then
table.insert(sentences, 'Interrogation duty included ' .. table.concat(ipw, ' and ') .. '.')
table.insert(more, 'Interrogation duty included ' .. table.concat(ipw, ' and ') .. '.')
end
end


table.insert(sentences, 'Add a fuller biography, a photograph, and sources below.')
if #more == 0 then
 
return first
return table.concat(sentences, ' ')
end
return first .. '\n\n' .. table.concat(more, ' ')
end
end


return p
return p
Retrieved from "https://ritchieboys.org/wiki/Module:Soldier"