Xenharmonic Wiki

Module:Navbar: Difference between revisions

← Older edit
ArrowHead294 (talk | contribs)
14,512 edits
mNo edit summary
ArrowHead294 (talk | contribs)
14,512 edits
mNo edit summary
 
(9 intermediate revisions by the same user not shown)
Line 1: Line 1:
local p = {}
local ordinal = require("Module:Ordinal")._ordinal
local ordinal = require("Module:Ordinal")._ordinal
local yesno = require("Module:yesno")
local yesno = require("Module:Yesno")
local p = {}


-- Main function called by navigation box templates
function p._navbar(name, mode, text, namespace)
function p._navbar(name, mode, text, namespace)
mode = mode or ""
mode = mode or ""
Line 10: Line 12:
local p_name = string.format("%s:%s", namespace, name)
local p_name = string.format("%s:%s", namespace, name)
local p_talk_name = string.format("%s talk:%s", namespace, name)
local p_talk_name = string.format("%s talk:%s", namespace, name)
local p_edit_name = "special:editpage/" .. p_name
local p_edit_name = "Special:EditPage/" .. p_name
local s = ((mode == "v" or mode == "vmini") and "<br />" or " &bull; ")
local s = " &bull; "
local links = (mode == mini and {"V", "T", "E"} or {"View", "Talk", "Edit"})
return "<span style=\"font-size: 0.75em; font-weight: normal; font-style: normal;\">"
return "<span style=\"font-size: 0.75em; font-weight: normal; font-style: normal;\">"
.. text
.. string.format("%s[[%s|%s]]%s[[%s|%s]]%s[[%s|%s]]",
.. string.format(((mode == "mini" or mode == "vmini") and "[[%s|V]]%s[[%s|T]]%s[[%s|E]]" or "[[%s|View]]%s[[%s|Talk]]%s[[%s|Edit]]"),
text, p_name, links[1], s, p_talk_name, links[2], s, p_edit_name, links[3])
p_name, s, p_talk_name, s, p_edit_name)
.. "</span>"
.. "</span>"
end
end


-- Wrapper function for [[Template:Navbar]]
function p.navbar(frame)
function p.navbar(frame)
local name = frame.args["name"]
local name = frame.args["name"]
Line 25: Line 28:
local mode = frame.args["mode"]
local mode = frame.args["mode"]
local text = frame.args["text"]
local text = frame.args["text"]
local debugg = frame.args["debug"]
local result = p._navbar(name, mode, text, namespace)
-- Debugger option
if debugg == true then
result = "<syntaxhighlight lang=\"wikitext\">" .. result .. "</syntaxhighlight>"
end
return p._navbar(name, mode, text, namespace)
return frame:preprocess(result)
end
end


-- Navbox for lumatone mappings
function p.lumatone_map(frame)
function p.lumatone_map(frame)
local arpn = frame:preprocess("{{ARTICLEROOTPAGENAME}}")
local debugg = yesno(frame.args["debug"])
local debugg = yesno(frame.args["debug"])
local a = arpn:match("[Ll]umatone%s*[Mm]apping%s*[Ff]or%s*(%d+)%s*[Ee][Dd][2Oo]")
local x = tonumber(frame.args["edo"]:match("(%d+)"))
local x = tonumber(frame.args["edo"]) or tonumber(a)
local thresh = 5
local thresh = 5
local out_str = "<br />{{Navbox"
local idxn1 = x - 1
.. "|name=Navbox Lumatone"
local idxn2 = x - 2
.. "|Title=[[Lumatone|Lumatone mappings]]"
local idxn3 = x - 3
.. "|Data 1={{centre|"
local idx1 = x + 1
.. ((x >= thresh + 4) and "'''&larr;''' " or "")
local idx2 = x + 2
.. ((x >= thresh + 3) and "[[Lumatone mapping for " .. (x - 3) .. "edo|" .. (x - 3) .. "edo]] &bull; " or "")
local idx3 = x + 3
.. ((x >= thresh + 2) and "[[Lumatone mapping for " .. (x - 2) .. "edo|" .. (x - 2) .. "edo]] &bull; " or "")
.. ((x >= thresh + 1) and "[[Lumatone mapping for " .. (x - 1) .. "edo|" .. (x - 1) .. "edo]] &bull; " or "")
local result = "<br />{{Navbox\n"
.. "'''Lumatone mapping for " .. x .. "edo''' &bull; "
.. "| name = Navbox Lumatone\n"
.. "[[Lumatone mapping for " .. (x + 1) .. "edo|" .. (x + 1) .. "edo]] &bull; "
.. "| Title = [[Lumatone|Lumatone mappings]]\n"
.. "[[Lumatone mapping for " .. (x + 2) .. "edo|" .. (x + 2) .. "edo]] &bull; "
.. "| Data 1 = {{centre|"
.. "[[Lumatone mapping for " .. (x + 3) .. "edo|" .. (x + 3) .. "edo]] '''&rarr;'''}}"
.. "}}"
if x >= thresh + 4 then
result = result .. "'''&larr;''' "
end
if x >= thresh + 3 then
result = result .. string.format("[[Lumatone mapping for %sedo|%sedo]] &bull; ", idxn3, idxn3)
end
if x >= thresh + 2 then
result = result .. string.format("[[Lumatone mapping for %sedo|%sedo]] &bull; ", idxn2, idxn2)
end
if string.lower(arpn) ~= "template:navbox lumatone" then
if x >= thresh + 1 then
out_str = out_str .. " [[Category:Lumatone mappings]] [[Category:" .. x .. "edo]]"
result = result .. string.format("[[Lumatone mapping for %sedo|%sedo]] &bull; ", idxn1, idxn1)
end
end
result = result
.. string.format("'''Lumatone mapping for %sedo''' &bull; ", x)
.. string.format("[[Lumatone mapping for %sedo|%sedo]] &bull; ", idx1, idx1)
.. string.format("[[Lumatone mapping for %sedo|%sedo]] &bull; ", idx2, idx2)
.. string.format("[[Lumatone mapping for %sedo|%sedo]] '''&rarr;'''}}\n", idx3, idx3)
.. "}}"


return frame:preprocess(debugg == true and "<pre>" .. out_str .. "</pre>" or out_str)
-- Debugger option
if debugg == true then
result = "<syntaxhighlight lang=\"wikitext\">" .. result .. "</syntaxhighlight>"
end
return frame:preprocess(result)
end
end


-- Navbox for fractional-octave temperaments
function p.frac_octave(frame)
function p.frac_octave(frame)
local root_page_name = frame:preprocess("{{FULLROOTPAGENAME}}")
local arpn = frame:preprocess("{{ARTICLEROOTPAGENAME}}")
local debugg = yesno(frame.args["debug"])
local debugg = yesno(frame.args["debug"])
local a = root_page_name:match("(%d+)%a+[%s%-]*[Oo]ctave%s*[Tt]emperament[s]?")
local a = arpn:match("(%d+)%a+[%s%-]*")
local x = tonumber(frame.args["f"]) or tonumber(a)
local x = tonumber(frame.args["f"]) or tonumber(a)
local thresh = 2
local idxn1 = ordinal(x - 1)
local idxn2 = ordinal(x - 2)
local idxn3 = ordinal(x - 3)
local idxn4 = ordinal(x - 4)
local idx1 = ordinal(x + 1)
local idx2 = ordinal(x + 2)
local idx3 = ordinal(x + 3)
local idx4 = ordinal(x + 4)
local result = "<br />{{Navbox\n"
.. "| name = Navbox fractional-octave\n"
.. "| Title = [[Fractional-octave temperaments]]\n"
.. "| Data 1 = {{centre|"
if x >= thresh + 4 then
result = result .. "'''&larr;''' "
end
if x >= thresh + 3 then
result = result .. string.format("[[%s-octave temperaments|%s]] &bull; ", idxn4, idxn4)
end
if x >= thresh + 2 then
result = result .. string.format("[[%s-octave temperaments|%s]] &bull; ", idxn3, idxn3)
end
if x >= thresh + 1 then
result = result .. string.format("[[%s-octave temperaments|%s]] &bull; ", idxn2, idxn2)
end
if x >= thresh then
result = result .. string.format("[[%s-octave temperaments|%s]] &bull; ", idxn1, idxn1)
end
local out_str = "<br />{{Navbox"
result = result
.. "|name=Navbox fractional-octave"
.. string.format("'''%s-octave''' &bull; ", ordinal(x))
.. "|Title=[[Fractional-octave temperaments]]"
.. string.format("[[%s-octave temperaments|%s]] &bull; ", idx1, idx1)
.. "|Data 1={{centre|"
.. string.format("[[%s-octave temperaments|%s]] &bull; ", idx2, idx2)
.. ((x >= 6) and "'''&larr;''' " or "")
.. string.format("[[%s-octave temperaments|%s]] &bull; ", idx3, idx3)
.. ((x >= 5) and "[[" .. ordinal(x - 4) .. "-octave temperaments|" .. ordinal(x - 4) .. "]] &bull; " or "")
.. string.format("[[%s-octave temperaments|%s]] '''&rarr;'''}}\n", idx4, idx4)
.. ((x >= 4) and "[[" .. ordinal(x - 3) .. "-octave temperaments|" .. ordinal(x - 3) .. "]] &bull; " or "")
.. ((x >= 3) and "[[" .. ordinal(x - 2) .. "-octave temperaments|" .. ordinal(x - 2) .. "]] &bull; " or "")
.. ((x >= 2) and "[[" .. ordinal(x - 1) .. "-octave temperaments|" .. ordinal(x - 1) .. "]] &bull; " or "")
.. "'''" .. ordinal(x) .. "-octave''' &bull; "
.. "[[" .. ordinal(x + 1) .. "-octave temperaments|" .. ordinal(x + 1) .. "]] &bull; "
.. "[[" .. ordinal(x + 2) .. "-octave temperaments|" .. ordinal(x + 2) .. "]] &bull; "
.. "[[" .. ordinal(x + 3) .. "-octave temperaments|" .. ordinal(x + 3) .. "]] &bull; "
.. "[[" .. ordinal(x + 4) .. "-octave temperaments|" .. ordinal(x + 4) .. "]] '''&rarr;'''}}"
.. "}}"
.. "}}"


return frame:preprocess(debugg == true and "<pre>" .. out_str .. "</pre>" or out_str)
-- Debugger option
if debugg == true then
result = "<syntaxhighlight lang=\"wikitext\">" .. result .. "</syntaxhighlight>"
end
return frame:preprocess(result)
end
end


return p
return p
Retrieved from "https://en.xen.wiki/w/Module:Navbar"