Module:Road data/strings/USA/KY

Documentation for this module may be created at Module:Road data/strings/USA/KY/doc

--[==[
To inspect the content of this data module, use [[Special:ExpandTemplates]]
and enter the following input text:
  {{#invoke:Road data/dump|dump|module=Module:<name-of-this-module>}}

To inspect the content of this data module when editing, enter the following
into the Debug console:
  local util = require("Module:Road data/util")
  print(util.arrayToString(p))
To inspect a particular route type, change `p` above to include the route type,
e.g., `p.I` and `p["US-Hist"]`.
]==]

-- Kentucky
local KY = {}

local util = require("Module:Road data/util")
util.addAll(KY, require("Module:Road data/strings/USA"))

local suffix = " ([dab||%dab%, |]Kentucky)"
 
KY.I.link = "Interstate %route% (Kentucky)"

for k, v in pairs(KY) do if k:find ("^I") then 
	v.link = KY.I.link
	end
end

KY.BL.link = "Interstate %route% Business ([dab||%dab%, |]Kentucky)"
KY["I-Bus"]=KY.BL

for k, v in pairs(KY) do if k:find ("^B%a") then 
	v.link = KY.BL.link
	end
end

KY.US.link = "U.S. Route %route% [dab||(%dab%, Kentucky)|in Kentucky]"

for k, v in pairs(KY) do if k:find ("^US %d") then 
	v.link = KY.US.link
	end
end

for _,auxType in ipairs({"Alt", "Bus", "Byp", "City", "Conn", "Emerg", "Opt", "Scenic", "Spur", "Temp", "Toll", "Truck"}) do
	local spec = KY[" aux "][auxType]
		for k, v in pairs(KY) do if k:find (auxType) then if k:find ("^US") then
			v.link = KY.US.base .. " " .. spec.name .. " ([dab||%dab%, |]Kentucky)"
			end
		end
	end
end

KY.KY = {	
	shield = "Elongated circle %route%.svg",
	base = "Kentucky Route %route%",
	name = "Kentucky Route %route%",
	link = "Kentucky Route %route% [dab||(%dab%)|]",
	abbr = "KY&nbsp;%route%",
	width = "expand"
}

KY["KY 1966"] = {
	shield = {hook = "split",
		split = 100,
		below = "Elongated circle %route%.svg", 
		above = "Circle sign %route%.svg"
	},
	name = KY.KY.name,
	link = KY.KY.link,
	abbr = KY.KY.abbr
}

for _,auxType in ipairs({"Bus", "Byp", "Conn", "Spur", "Truck"}) do
	local spec = KY[" aux "][auxType]
	KY["KY-" .. auxType] = {
		shield = KY.KY.shield,
		name = KY.KY.base .. " " .. spec.name,
		link = KY.KY.base .. " " .. spec.name .. KY[" dab "],
		abbr = KY.KY.abbr .. " " .. spec.abbrsuffix,
		banner = spec.bannerprefix .. " plate.svg",
		aux = spec.aux,
		width = "expand",
	}
end

KY.AA = {
	shield = {"Elongated circle %route%.svg", "AA Highway Shield.svg"},
	name = "AA Highway",
	link = KY.KY.link,
	abbr = KY.KY.abbr.." (AA&nbsp;Hwy.)",
	width = 40,
	bannersuffix = {"", "blue"}
}

KY.Trace = {
	shield = "", -- needs a shield image: http://www.kentuckyroads.com/images/lbl-03july/
	name = "The Trace",
	link = "The Trace (Land Between the Lakes)",
	abbr = "The Trace",
	color = "hist"
}

KY.Parkway = {
	shield = {
		["Mammoth Cave"] = "",
		default = "%route% Parkway.svg"
	},
	shieldmain = {
		["Mammoth Cave"] = "",
		default = "%route% Parkway fair use.svg",
	},
	name = "%route% Parkway",
	link = "%route% Parkway",
	abbr = "%route% Parkway",
	width = "wide",
	bannersuffix = "blue"
}

-- add new types above this line if you want it to have the state highway browse and maint
for k, v in pairs(KY) do if k:find ("^%a") then
	v.maint = "[[Kentucky Transportation Cabinet|KYTC]]"
	v.browse = "[[Numbered highways in Kentucky|Highways in Kentucky]]"
	v.browselinks = {
		[1] = "[[List of Interstate Highways in Kentucky|Interstate]]",
		[2] = "[[List of U.S. Highways in Kentucky|US]]",
		[3] = "[[List of state highways in Kentucky|State]]",
		[4] = "[[List of parkways and named highways in Kentucky|Parkways]]"
	}
	end
end

KY.CR.maint = ""   

KY["I-IN"] = {alias = {module = "USA/IN", type = "I"}}
KY["US-OH"] = {alias = {module = "USA/OH", type = "US"}}
KY.TN = {alias = {module = "USA/TN", type = "KY"}}
KY.Sec = {alias = {module = "USA/TN", type = "Sec"}}

return KY