|
-- Sandbox, do not delete
return {
local p = {}
aria_label = 'Navbox',
local getArgs = require('Module:Arguments').getArgs
nowrap_item = '%s<span class="nowrap">%s</span>',
local data = mw.loadData('Module:Sandbox/BrandonXLF/4')
templatestyles = mw.getCurrentFrame():extensionTag{
name = 'templatestyles', args = { src = 'User:BrandonXLF/styles2.css' }
-- Generate the wikitext for the picture
},
local function pictureWikitext(frame, route, division, roadInfo, args)
hlist_templatestyles = 'Hlist/styles.css',
if roadInfo['pic'] then
plainlist_templatestyles = 'Plainlist/styles.css',
local fileName = roadInfo['pic'][1] .. route .. roadInfo['pic'][2]
-- do not localize marker table
marker = {
-- Override the default format with exceptions for some highways
oddeven = '\127_ODDEVEN_\127',
if division == 'highway' then
restart = '\127_ODDEVEN0_\127',
highwayNumber = string.gsub(route, '%D', '')
regex = '\127_ODDEVEN(%d?)_\127'
highwayNumber = tonumber(highwayNumber)
},
category = {
if route:upper() == '407ETR' then -- Picture exceptions
orphan = '[[Category:Navbox orphans]]',
fileName = 'Highway407crest.png'
horizontal_lists = 'Navigational boxes without horizontal lists',
elseif route:upper() == 'QEW' and args['shield'] == 'yes' then
background_colors = 'Navboxes using background colours',
fileName = 'Ontario QEW.svg'
illegible = 'Potentially illegible navboxes',
elseif route:upper() == 'QEW' and not args['shield'] then
fileNameborders = 'OntarioNavboxes QEWusing crown.svgborders',
},
elseif args['shield'] == 'yes' and highwayNumber and highwayNumber >= 500 then
keyword = {
fileName = 'Ontario Highway ' .. route .. '.svg'
border_subgroup = 'subgroup',
elseif args['shield'] == 'yes' then
border_child = 'child',
fileName = 'Ontario ' .. route .. '.svg'
border_none = 'none',
elseif highwayNumber and highwayNumber >= 500 then
evenodd_swap = 'swap',
fileName = 'Ontario Highway ' .. route .. '.svg'
navbar_off = 'off',
end
navbar_plain = 'plain',
end
nocat_false = 'false',
nowrapitems_yes = 'yes',
if frame:callParserFunction('#ifexist', 'Media:' .. fileName, '1') ~= '' then -- Check if the file exists
orphan_yes = 'yes',
local size = 'x20px' -- Default size
state_collapsed = 'collapsed',
state_off = 'off',
-- Override default size with exceptions
state_plain = 'plain',
if args['size'] then
subgroups = {'subgroup', 'child', ''},
size = args['size']
subpage_doc = 'doc',
elseif route:upper() == '407ETR' then
sizesubpage_sandbox = '24pxsandbox',
subpage_testcases = 'testcases',
elseif division == 'kawartha lakes' then
sizetracking_no = '21pxno'
},
elseif args['shield'] == 'yes' and division == 'highway' then
class = {
size = 'x25px'
autocollapse = 'autocollapse',
elseif division == 'toll' then
sizecollapsible = 'x30pxmw-collapsible',
collapsed = 'mw-collapsed',
end
-- Warning
navbox = 'navbox', -- WMF currently hides 'navbox' from mobile,
return '[[File:' .. fileName .. '|alt=|link=|' .. size .. ']]' -- Return the file wikitext
-- so you probably shouldn't change the navbox class.
end
navbox_abovebelow = 'navbox-abovebelow notheme',
end
navbox_group = 'navbox-group notheme',
navbox_image = 'navbox-image',
if frame:callParserFunction('#ifexist', 'Media:RR ' .. route .. ' jct.svg', '1') ~= '' then -- Check if default image exists
navbox_inner = 'navbox-inner notheme',
return '[[File:RR ' .. route .. ' jct.svg|alt=|link=|x20px]]' -- Display default image format
navbox_list = 'navbox-list notheme',
end
navbox_list_with_group = 'navbox-list-with-group',
navbox_part = 'navbox-', -- do not l10n
return '' -- Fallback to returning nothing
navbox_styles = 'navbox-styles',
end
navbox_subgroup = 'navbox-subgroup',
navbox_title = 'navbox-title notheme', -- l10n only if you change pattern.navbox_title below
-- Generate the text part of the output
navbox_odd_part = 'odd', -- do not l10n
local function getText(frame, route, roadInfo, args)
navbox_even_part = 'even', -- do not l10n
local link
nomobile = 'nomobile',
local display
nowraplinks = 'nowraplinks',
noviewer = 'noviewer' -- used to remove images from MediaViewer
if route:upper() == '407ETR' then -- Exception for the 407 ETR
},
link = 'Ontario Highway 407'
pattern = {
display = '407 ETR'
listnum = '^list(%d+)$',
elseif route:upper() == 'QEW' then -- Exception for the QEW
linkclass = 'Queen Elizabeth Wayclass',
displaysandbox = 'Queen Elizabeth Way/sandbox$',
navbox = 'Template:Navbox',
else
nowrap = '^<span class="nowrap">',
link = (roadInfo['prefix'] and roadInfo['prefix'] .. ' ' or '') .. roadInfo['type'] .. ' ' .. route
style = 'style$',
display = roadInfo['type'] .. ' ' .. route
navbox_title = '<th[^>]*"navbox%-title"',
end
hlist = 'hlist',
plainlist = 'plainlist',
if (frame:callParserFunction('#ifexist', link, '1') ~= '' or args['showred']) and not args['nolink'] then -- Check if the link show be shown
},
return '[[' .. link .. '|' .. display .. ']]' -- Return the link
arg = {
else
above = 'above',
return display -- Fallback to returning the display text
aboveclass = 'aboveclass',
end
abovestyle = 'abovestyle',
end
basestyle = 'basestyle',
bodyclass = 'bodyclass',
-- Gets the wikitext for a place
bodystyle = 'bodystyle',
local function getPlace(frame, place, args)
border = 'border',
if frame:callParserFunction('#ifexist', place .. ', Ontario', '1') ~= '' or args['showred'] then
below = 'below',
return '[[' .. place .. ', Ontario|' .. place .. ']]'
belowclass = 'belowclass',
else
belowstyle = 'belowstyle',
return place
evenodd = 'evenodd',
end
evenstyle = 'evenstyle',
end
group1 = 'group1',
group2 = 'group2',
-- Entry function
group_and_num = 'group%d',
function p.jcon(frame)
groupstyle_and_num = 'group%dstyle',
local args = getArgs(frame)
groupclass = 'groupclass',
groupstyle = 'groupstyle',
local roadType = args[1]:lower() or '' -- Get the route type (region)
groupwidth = 'groupwidth',
local route = args[2] or '' -- Get the route number
innerstyle = 'innerstyle',
image = 'image',
local removeRegex = { -- Regex to remove from lowercase input
imageclass = 'imageclass',
'^ ',
imageleft = 'imageleft',
'^municipality of',
imageleftstyle = 'imageleftstyle',
'^city of',
imagesetyle = 'imagestyle',
'^region of',
list_and_num = 'list%d',
'^county of',
listclass_and_num = 'list%dclass',
' $',
liststyle_and_num = 'list%dstyle',
'regional road$',
list1padding = 'list1padding',
'region$',
listclass = 'listclass',
'county$',
listpadding = 'listpadding',
'county road$',
liststyle = 'liststyle',
name = 'name',
navbar = 'navbar',
navboxclass = 'navboxclass',
nocat = 'nocat',
nowrapitems = 'nowrapitems',
oddstyle = 'oddstyle',
orphan = 'orphan',
state = 'state',
style = 'style',
templatestyles = 'templatestyles',
child_templatestyles = 'child templatestyles',
title = 'title',
titleclass = 'titleclass',
titlestyle = 'titlestyle',
tracking = 'tracking'
},
-- names of navbar arguments
navbar = {
name = 1,
fontstyle = 'fontstyle',
mini = 'mini'
}
}
for _,v in ipairs(removeRegex) do
roadType = mw.ustring.gsub(roadType, v, '') -- Remove items in removeRegex from the road type
end
roadType = data.aliases[roadType] or roadType -- Transform alias into proper name
if data.signs[roadType] or data.signs[route:lower()] then
return data.signs[roadType] or data.signs[route:lower()] -- Return signs symbols like airport and hospital
end
local roadInfo = data.types[roadType] -- Get road type info from the data module
if not roadInfo or not route then
return '​' -- Return ZWSP if road type is not supported or the route is not specified
end
local export = ''
local picture = ''
if args['ot'] then -- Set correct arguments if output should be only text
args['nosh'] = 'yes'
args['nolink'] = 'yes'
end
-- Define the picture
if not args['nosh'] then -- If allowed to add shield
picture = pictureWikitext(frame, route, roadType, roadInfo, args) -- Return picture of road 1
if args['con'] then
if picture ~= '' then picture = picture .. ' ' end -- Add a NBSP if there's already a picture
picture = picture .. pictureWikitext(frame, args['con'], roadType, roadInfo, args) -- Add the picture of the first concurrency
end
if args['con2'] then
if picture ~= '' then picture = picture .. ' ' end -- Add a NBSP if there's already a picture
picture = picture .. pictureWikitext(frame, args['con2'], roadType, roadInfo, args) -- Add the picture of the second concurrency
end
if args['tch'] then
if picture ~= '' then picture = picture .. ' ' end -- Add a NBSP if there's already a picture
picture = picture .. '[[File:TCH-blank.svg|x20px]]' -- Add the TCH picture
end
end
if not args['pic aft'] then
export = picture -- Add the picture if it goes first
end
-- Define the text
if not args['notext'] then -- If allowed to show text
if export ~= '' then export = export .. ' ' end -- Add a NBSP after the picture if it exists
export = export .. getText(frame, route, roadInfo, args) -- Return text of road 1
if args['dir'] then export = export .. ' ' .. args['dir'] end -- Add the dir
if args['con'] then
export = export .. ' / ' .. getText(frame, args['con'], roadInfo, args) -- Add the text of the first concurrency
if args['condir'] then export = export .. ' ' .. args['condir'] end -- Add the dir
end
if args['con2'] then
export = export .. ' / ' .. getText(frame, args['con2'], roadInfo, args) -- Add the text of the first concurrency
if args['condir2'] then export = export .. ' ' .. args['condir2'] end -- Add the dir
end
if args['tch'] then
export = export .. ' / [[Trans-Canada Highway|TCH]]' -- Add the TCH text
end
end
-- Add the name to the text output
if args[3] then
export = export .. ' (' .. args[3] .. ')'
end
local cities = {} -- Table to store cities
local city = args['city'] or args['town']
if city then -- Add the first city
table.insert(cities, getPlace(frame, city, args))
end
local city2 = args['city2'] or args['town2']
if city2 then -- Add the second city
table.insert(cities, getPlace(frame, city2, args))
end
cities = table.concat(cities, ', ') -- Concat the cities into a single string
if cities ~= '' then
export = export .. ' – ' .. cities -- Add the cities to the output
end
if args['pic aft'] and picture then
if export ~= '' then export = export .. ' ' end -- Add a space if export already has text
export = export .. picture -- Add the picture if it goes last
end
return export
end
-- Generates a list of supported regions
function p.supported(frame)
local reverseAliases = {}
for alias, name in pairs(data.aliases) do -- Reverse the alias table to allow lookup by name
if not reverseAliases[name] then
reverseAliases[name] = {}
end
table.insert(reverseAliases[name], alias)
end
local list = mw.html.create('ul') -- Create output element
for name, info in pairs(data.types) do -- Create tables for each region
nameList = list
:tag('li')
:wikitext(info['prefix'] and info['prefix'] .. ' ' or '', info['type'])
:tag('ul')
:tag('li')
:wikitext(name)
:done()
if reverseAliases[name] then -- Display aliases
for _, alias in ipairs(reverseAliases[name]) do
nameList
:tag('li')
:wikitext(alias)
end
end
end
mtoSignList = list
:tag('li')
:wikitext('MTO signs')
:tag('ul')
for sign, wikitext in pairs(data.signs) do
mtoSignList -- Add the sign name and image to the MTO sign list
:tag('li')
:wikitext(sign, ' ', wikitext)
if reverseAliases[sign] then -- Display aliases
for _, alias in ipairs(reverseAliases[sign]) do
mtoSignList -- Add the sign name and image to the MTO sign list
:tag('li')
:wikitext(alias, ' ', wikitext)
end
end
end
return tostring(list)
end
return p
| 