Modul:LRR
|
Dieses Modul ist Teil der Formatvorlage Radroutenliste
Lies Dir bitte vor der Verwendung die Anleitung dort durch. Insbesondere sollten die Vorlagen nur in Artikeln der Art Liste der Radrouten in .. verwendet werden. Statt Radrouten ist auch Radwanderrouten, Touristische Radrouten, und leider auch Radwanderwege, Radfernwege, Fernradwege, etc. gebräuchlich. Der Begriff Radweg ist mehrdeutig, siehe die BKL Radweg. |
Dieses Modul transkludiert vorübergehend die folgenden Vorlagen:
Nachdem diese Vorlagen in Lua-Module übersetzt wurden, können die Transklusionen durch Funktionsaufrufe der dann entstandenen Module ersetzt werden.
local xp = {}
-- TODO: import this from an external module once similar one exists
xp.countrycode = {
BG="[[Bulgarien|BG]]",
CZ="[[Tschechien|CZ]]",
NO="[[Norwegen|NO]]",
PL="[[Polen|PL]]",
D ="[[Deutschland|D]]",
BW="[[Baden-Württemberg|BW]]",
BY="[[Bayern|BY]]",
BB="[[Brandenburg|BB]]",
BE="[[Berlin|BE]]",
DE="[[Deutschland|DE]]",
SH="[[Freie Hansestadt Bremen|HB]]",
HH="[[Hamburg|HH]]",
HE="[[Hessen|HE]]",
MV="[[Mecklenburg-Vorpommern|MV]]",
NI="[[Niedersachsen|NI]]",
NW="[[Nordrhein-Westfalen|NW]]",
RP="[[Rheinland-Pfalz|RP]]",
SL="[[Saarland|SL]]",
SN="[[Sachsen|SN]]",
ST="[[Sachsen-Anhalt|ST]]",
SH="[[Schleswig-Holstein|SH]]",
TH="[[Thüringen|TH]]",
coda="''coda''",
}
xp.countrycode[""]=""
function cond(c, t, f)
if c then return t else return f end
end
-- genRefs solely exists to workaround a bug in Mediawiki:
-- If ANY input parameter contains <ref> these are translated to strip markers.
-- _Regardless_ of wheter any of them are returned, Mediawiki complains about a
-- missing <references> section.
-- Use '<ref ' instead of '<ref ' and decide here wheter ref tags are to be
-- expanded or not.
function genRefs(f, s)
if mw.title.getCurrentTitle().isTalkPage
then return s
:gsub('<ref [^>]*/>', '')
:gsub('<ref [^>]*>[^>]*</ref>', '')
else return f:preprocess(s:gsub('<ref ', '<ref '))
end
end
function genSortkey(s) -- use DIN 5007-1
return s
:gsub("^.[^!]+!", ""):gsub("%[%[[^]]-|([^]]-)]]", "%1") -- strip wikilink
:gsub("ä", "a"):gsub("Ä", "A")
:gsub("ö", "o"):gsub("Ö", "O")
:gsub("ü", "u"):gsub("Ü", "U")
:gsub("ß", "ss")
:gsub("%f[%w].", function(s) return s:upper() end) -- upper first in word
:gsub("[^%w_]", '') -- strip any character not a letter nor an underscore
end
function xp.getArgs(frame)
local ret = {}
local f = frame
if frame.getParent and frame:getParent() and
mw.title.getCurrentTitle().subjectNsText~="Vorlage"
then f = frame:getParent()
end
-- lowercase argument names and preprocess refs
for k, v in pairs(f.args)
do ret[k:lower()] = genRefs(f, v)
end
-- map alternative argument names
for k, v in pairs(frame.alt_arg_names)
do for sk, _ in pairs(v)
do if ret[sk] then ret[k] = ret[sk] end
end
-- assign nil parms a default if given or the empty string
if not ret[k] then ret[k] = cond(v.default, v.default, "") end
end
return ret
end
function xp.wikilink(frame)
setmetatable(frame.args, {__index={sep=""}})
local ret = ""
local s, sep, ext =
frame.args[1] or frame.args.s,
frame.args[2] or frame.args.sep,
nil
for v in mw.text.gsplit(s, ", *")
do if #v>0
then if v:sub(1, 1)=="!"
then ret = ret..v:sub(2)..sep
else local t = mw.text.split(v:gsub('!.*$',
function(s) return s:gsub(':',":") end), ": *")
if #t>1
then
if not ext
then ext = t[1]
t[1] = cond(#t[1]>3,"","<small>").."("..
xp.countrycode[t[1]]..": "
elseif ext==t[1]
then t[1] = ""
else ext = t[1]
t[1] = xp.countrycode[t[1]]..": "
end
else t[2] = t[1]
t[1] = ""
if ext
then ret = ret:sub(1, #ret - #sep)
t[1] = ")"..cond(#ext>3,"","</small>")..sep
ext = nil
end
end
if #t[2]>0
then
ret = ret..t[1].."[["..mw.ustring.gsub(
t[2]:gsub('!','|'):gsub("Bad ", "Bad "),
"^([^|]-)([^|%w–]?)(%w+–[%w–]*)([^|%w–]?)([^|]-)$",
"%0|%1%2<span style=\"white-space:nowrap\">%3</span>%4%5")
.."]]"..sep
else
ret = ret..t[1]:gsub(": $", "")..sep
end
end
end
end
if #ret>0
then ret = ret:sub(1, #ret - #sep)..cond(ext, ")</small>", "")
end
return ret
end
function xp.row(frame)
frame.alt_arg_names = {
logo = { symbol=1, zeichen=1, icon=1 },
ldim = { lsize=1 },
name = { titel=1 },
nalt = { talt=1, nameerg=1, titelerg=1 },
nsort = { tsort=1 },
_von = { vonerg=1, starterg=1 },
von = { start=1 },
via = { ueber=1, stationen=1 },
bis = { ende=1, nach=1, ziel=1 },
_bis = { biserg=1, endeerg=1, nacherg=1, zielerg=1 },
km = { laenge=1 },
bt = { bahntrasse=1, bahndamm=1 },
fc = { adfc=1, minkrit=1 },
rk = { rundkurs=1 },
region = { iso_rgn=1 },
pkarte = { karte=1, lagekarte=1, positionskarte=1 },
profil = { kommentar=1 }
}
local a = xp.getArgs(frame)
math.randomseed(os.time()-os.clock()*1000)
math.random()
math.random()
-- if no sortkey is given, plain name is used
a.nsort = genSortkey(a.nsort..a.name)
-- wikilink strings
for p in mw.text.gsplit("name nalt von bis", " ", true)
do a[p] = xp.wikilink{ args = { a[p], ", " } }
end
for p in mw.text.gsplit("via _von _bis", " ", true)
do a[p] = xp.wikilink{ args = { a[p], " ↔ " } }
end
-- column logo/pikto, Spalte Logo/Piktogramm
if #a.ldim==0 then a.ldim = "48x48px" end
if #a.logo>0 and not a.logo:find("[[", 1, true)
then a.logo = "[[Datei:"..a.logo.."|"..a.ldim.."]]"
end
-- column name/title, Spalte Name/Titel und Ergänzung falls angegeben
if #a.nalt>0 then a.nalt = ", <small>"..a.nalt.."</small>" end
local stname = "data-sort-value=\""..a.nsort.."\"|"
-- columns start/dst, Spalten von/bis und Prä-/Suffix falls angegeben
a._von = a._von:gsub("[^>]$", "%0, "):gsub("%)</small>$", " ↔%0 ")
a._bis = a._bis:gsub("^[^<]", ", %0"):gsub("^<small>%(", " %0↔ ")
local stvon = "data-sort-value=\""..genSortkey(a.von).."\"|"
local stbis = "data-sort-value=\""..genSortkey(a.bis).."\"|"
-- column length, Spalte Länge (in Kilometer)
if #a.km>0 and not a.km:find("km") then a.km = a.km.." km" end
-- column railtrail, Spalte Bahntrasse / Bahndamm
if a.bt:match("[jJyYtT1]")
then local v = mw.text.split(a.bt, ", *")
if v[1]:match("weise")
then a.bt = "data-sort-value=\"Teilweise"..a.nsort.."\" "..
frame:expandTemplate{ title = "Teilweise-Feld", args = { "" } }
else a.bt = "data-sort-value=\"Vollständig"..a.nsort.."\" "..
frame:expandTemplate{ title = "Ja-Feld", args = { "" } }
end
a.bt = a.bt.."[[Datei:BSicon lDAMPF.svg|20px|verweis="..
cond(v[2], v[2], "").."]]<br/><small>("..v[1]..")</small>"
else
if a.bt:match("[-nNfF0]")
then a.bt = "data-sort-value=\"–Nirgends"..a.nsort.."\" "..
frame:expandTemplate{ title = "N/A-Feld", args = {} }
else a.bt = "data-sort-value=\"–Unbekannt"..a.nsort.."\"|"
end
end
-- column wayquality, Spalte Mindestkriterien / Fahrradclub / ADFC
if a.fc:match("[jJyYtT1-9]")
then a.fc = frame:expandTemplate{ title = "Ja-Feld", args = { "" } }..
"<span style='font-size:larger'>"..cond(a.fc:match("[1-9]"), a.fc, "").."★</span>"
elseif a.fc:match("[-nNfF0]")
then a.fc = frame:expandTemplate{ title = "Nein-Feld", args = { "" } }..
"<span style='font-size:larger'>✘</span>"
end
-- column roundtrip, Spalte Rundkurs
if a.rk:match("[jJyYtT1]")
then a.rk = "data-sort-value=\"Einer"..a.nsort.."\" "..
frame:expandTemplate{ title = "Ja-Feld", args = { "<span style='font-size:larger'>♺</span>" } }
elseif a.rk:match("[mMvV]")
then a.rk = "data-sort-value=\"Viele"..a.nsort.."\" "..
frame:expandTemplate{title = "Ja-Feld", args = { "♺ ♺<br/>♺" } }
elseif a.rk:match("[-nNfF0]")
then a.rk = frame:expandTemplate{ title = "N/A-Feld", args = {} }
end
-- column minimap, Spalte Mini-Lagekarte
if #a.pkarte>0
then local img, fmt, lnk, ipos, ivert = nil, "|64px", "", "left", "-18px"
for v in mw.text.gsplit(a.pkarte, ", *")
do if v:sub(1, 1)=="!"
then fmt = v:gsub("!", "|")
elseif v:find("^%d+$")
then lnk = "https://cycling.waymarkedtrails.org/#route?type=relation&id="..v
elseif v:find("^r%d+$")
then lnk = "http://www.openstreetmap.org/relation/"..v:sub(2)
elseif v:find("^%[")
then lnk = v
else img = "File:"..v
end
end
lnk = lnk:gsub("^http.*", "|verweis=%0|Lagekarte unter %0 aufrufen")
:gsub("^%[+(.-)%]+$", "|verweis=%1|%1")
if a.region == "DE-SN" or a.region == "DE-TH"
then ipos = "right"
end
if a.region == "DE-TH"
then ivert = "-58px;height:58px"
end
a.pkarte = "style=\"background:#E0E0E0;padding:.2em 0em\"|[["..img..fmt..
lnk.."]]<div style=\"margin-top:"..ivert..";padding:0em .2em;"..
"text-align:"..ipos.."\">[[File:Desc-i_gray.svg|18px|verweis="..
"commons:"..img..'|'..img:sub(5).."]]</div>"
else
a.pkarte = [[style="background:#E0E0E0;padding:0px"|]]
end
-- return entry depending on page title, default is a table row
if mw.title.getCurrentTitle().text:find("/[Dd]ruck$", -6)
then return ";"..a.name
..cond(a.nsort:find("[Ww]eg%f[%W%u]"),"\nDer ","\nDie "
..cond(a.nsort:find("[Rr]oute%f[%W%u]") or
a.nsort:find("[Tt]our%f[%W%u]"),"","Radroute "))..a.name.." "
..({"verläuft","führt","weist","leitet"})[math.random(1,4)]
.." von "..a.von.." nach "..a.bis.." "
..({"und durchquert","über","durch die Orte", "mit Stationen in",
"und verbindet","mit Halt in","und erschließt den Radelnden",
"und zeigt RadlerInnen Landschaft und Natur um"})[math.random(1,8)]
.." "..a.via:gsub(" ↔",","):gsub(", ([^,]*)$", " und %1")..". "
..({"Die Route","Der Weg","Die Tour",
cond(a.nsort:find("[Ww]eg%f[%W]"),"Er ","Sie ")})[math.random(1,4)]
.." ist"..cond(not a.rk:find("♺"),""," als Rundkurs "
..({"fahrbar","angelegt","verwirklicht"})[math.random(1,3)].." und")
.." insgesamt"..a.km:gsub("^.-([%d.,]+)%D-$"," %1 Kilometer lang")
..cond(not a.km:find("%d+%D+%d"),".",a.km:gsub("^%D-([%d.,]+).-$",
", wovon %1 km auf "..xp.countrycode[a.region:sub(-2)]
:gsub("^%[?%[?([^]|]*).-$","%1").." entfallen."))
elseif mw.title.getCurrentTitle().isTalkPage
then return '*'..a.name
else return "|-\n|align=\"center\"|"..a.logo.." ||"..stname..a.name..a.nalt
.." ||"..stvon..a._von..a.von.." ||"..a.via.." ||"..stbis..a.bis..a._bis
.." ||"..a.km.." ||"..a.bt.." ||"..a.fc.." ||"..a.rk
.." ||"..a.pkarte.." ||"..a.profil
end
end
function xp.emptyrow(frame)
frame.alt_arg_names = {
farbe = { color=1, colour=1, default = "grey" }
}
local a = xp.getArgs(frame)
-- if used on a Talk/Disk page, supress output
if mw.title.getCurrentTitle().isTalkPage then return '<!-- // -->' end
-- return table row entry
return [[|- style="border-top:]]..a.farbe..[[ 2px solid"]]..'\n'..
string.rep([[ ||data-sort-value="ZZZ" style="padding:0px"|]], 11)
:gsub("ZZZ",
(function()
local n=0
return function(s) n=n+1 return cond(n==6, "99999", s) end
end)())
:sub(3)
end
function xp.header(frame)
return [==[
{|class="wikitable sortable"
!class="unsortable"|Logo
!Name
!style="vertical-align:top;padding-left:21px;min-width:64px"|<div style="float:right">[[File:BSicon KBHFaq grey.svg|20px|verweis=]][[File:BSicon LSTRq grey.svg|20px|verweis=]]</div><br/>von
!style="vertical-align:top;padding-left:21px;min-width:64px"|[[File:BSicon LSTRq grey.svg|20px|verweis=]][[File:BSicon HSTq grey.svg|20px|verweis=]][[File:BSicon LSTRq grey.svg|20px|verweis=]]<br/><small>Stationen<br/>(Auswahl)</small>
!style="vertical-align:top;padding-left:21px;min-width:64px"|<div style="float:left">[[File:BSicon LSTRq grey.svg|20px|verweis=]][[File:BSicon KBHFeq grey.svg|20px|verweis=]]</div><br/>bis
!style="min-width:48px" data-sort-type="number"|[[File:BSicon ENDEaq grey.svg|20px|verweis=]][[File:BSicon ENDEeq grey.svg|20px|verweis=]]<br/><small>Länge<br/>(ca.)</small>
![[File:BSicon lDAMPF.svg|x20px|verweis=Bahntrassenradweg|verläuft auf ehem. Bahntrasse]]<br/><small>Bahn­trasse</small>
![[File:ADFC-Logo_2009_1.svg|x20px|verweis=|erfüllt ADFC-Mindeststandards für Radfernwege]]<br/><small>Mindest­standards</small>
!<div style="font-size:large;height:20px;margin-top:-3px;margin-bottom:4px">♺</div><small>Rund­kurs</small>
!class="unsortable"|<div style="height:20px"> </div><small>Lage­karte</small>
!class="unsortable"|[[File:RideLondon-Surrey Classic Leith Hill Loop.svg|verweis=|x20px|Streckenprofil, Schwierigkeit]]<br/><small>Streckenprofil und<br/>Kommentare</small>]==]
end
function xp.footer(frame)
return "|}"
end
--function xp.print_invisible_debug_info(frame)
-- local ret = ""
-- for c in frame.args[1]:gmatch(".")
-- do ret = ret..mw.ustring.format("%x %s ", c:byte(), c)
-- end
-- return "<div style=\"display:none\">this: "..frame:getTitle()..
-- " parent: "..frame:getParent():getTitle()..
-- " namespace: "..mw.title.getCurrentTitle().subjectNsText..
-- " fulltitle: "..mw.title.getCurrentTitle().prefixedText..
-- " hexdump_firstarg: "..ret..
-- "</div>"
--end
return xp