Module:Citation
From Warwick Wiki
Powers {{citation}}.
local p = {}
local h = {}
function h.existsNotBlank(var)
return var and var ~= ""
end
function p.citation(frame)
local args = frame:getParent().args
local authors = args["authors"] or ""
if authors == "" then
if h.existsNotBlank(args["author"]) or h.existsNotBlank(args["author1"]) then
authors = args["author"] or args["author1"]
elseif h.existsNotBlank(args["last"]) or h.existsNotBlank(args["last1"]) then
if h.existsNotBlank(args["first"]) or h.existsNotBlank(args["first1"]) then
authors = authors .. (args["first"] or args["first1"]) .. " "
end
authors = authors .. (args["last"] or args["last1"])
end
if h.existsNotBlank(args["author-link"]) or h.existsNotBlank(args["author-link1"]) then
authors = "[[" .. (args["author-link"] or args["author-link1"]) .. "|" .. authors .. "]]"
end
local finished = false
local i = 2
if not (h.existsNotBlank(args["author" .. tostring(i)]) or h.existsNotBlank(args["last" .. tostring(i)])) then
finished = true
end
while not finished do
local displayText = ""
if h.existsNotBlank(args["author" .. tostring(i)]) then
displayText = displayText .. args["author" .. tostring(i)]
elseif h.existsNotBlank(args["last" .. tostring(i)]) then
if h.existsNotBlank(args["first" .. tostring(i)]) then
displayText = displayText .. args["first" .. tostring(i)] .. " "
end
displayText = displayText .. args["last" .. tostring(i)]
end
if h.existsNotBlank(args["author-link" .. tostring(i)]) then
authors = authors .. ", [[" .. args["first" .. tostring(i)] .. "|" .. displayText .. "]]"
else
authors = authors .. ", " .. displayText
end
i = i + 1
if not (h.existsNotBlank(args["author" .. tostring(i)]) or h.existsNotBlank(args["last" .. tostring(i)])) then
finished = true
end
end
end
local editors = args["editors"] or ""
if editors == "" then
if h.existsNotBlank(args["editor"]) or h.existsNotBlank(args["editor1"]) then
editors = args["editor"] or args["editor1"]
elseif h.existsNotBlank(args["editor-last"]) or h.existsNotBlank(args["editor-last1"]) then
if h.existsNotBlank(args["editor-first"]) or h.existsNotBlank(args["editor-first1"]) then
editors = editors .. (args["editor-first"] or args["editor-first1"]) .. " "
end
editors = editors .. (args["editor-last"] or args["editor-last1"])
end
if h.existsNotBlank(args["editor-link"]) or h.existsNotBlank(args["editor-link1"]) then
editors = "[[" .. (args["editor-link"] or args["editor-link1"]) .. "|" .. editors .. "]]"
end
local finished = false
local i = 2
if not (h.existsNotBlank(args["editor" .. tostring(i)]) or h.existsNotBlank(args["last" .. tostring(i)])) then
finished = true
end
while not finished do
local displayText = ""
if h.existsNotBlank(args["editor" .. tostring(i)]) then
displayText = displayText .. args["editor" .. tostring(i)]
elseif h.existsNotBlank(args["editor-last" .. tostring(i)]) then
if h.existsNotBlank(args["editor-first" .. tostring(i)]) then
displayText = displayText .. args["editor-first" .. tostring(i)] .. " "
end
displayText = displayText .. args["editor-last" .. tostring(i)]
end
if h.existsNotBlank(args["editor-link" .. tostring(i)]) then
editors = editors .. ", [[" .. args["editor-first" .. tostring(i)] .. "|" .. displayText .. "]]"
else
editors = editors .. ", " .. displayText
end
i = i + 1
if not (h.existsNotBlank(args["editor" .. tostring(i)]) or h.existsNotBlank(args["editor-last" .. tostring(i)])) then
finished = true
end
end
end
local workAuthors = args["work-authors"] or ""
if workAuthors == "" then
if h.existsNotBlank(args["work-author"]) or h.existsNotBlank(args["work-author1"]) then
workAuthors = args["work-author"] or args["work-author1"]
elseif h.existsNotBlank(args["work-author-last"]) or h.existsNotBlank(args["work-author-last1"]) then
if h.existsNotBlank(args["work-author-first"]) or h.existsNotBlank(args["work-author-first1"]) then
workAuthors = workAuthors .. (args["work-author-first"] or args["work-author-first1"]) .. " "
end
workAuthors = workAuthors .. (args["work-author-last"] or args["work-author-last1"])
end
if h.existsNotBlank(args["work-author-link"]) or h.existsNotBlank(args["work-author-link1"]) then
workAuthors = "[[" .. (args["work-author-link"] or args["work-author-link1"]) .. "|" .. workAuthors .. "]]"
end
local finished = false
local i = 2
if not (h.existsNotBlank(args["work-author" .. tostring(i)]) or h.existsNotBlank(args["work-author-last" .. tostring(i)])) then
finished = true
end
while not finished do
local displayText = ""
if h.existsNotBlank(args["work-author" .. tostring(i)]) then
displayText = displayText .. args["work-author" .. tostring(i)]
elseif h.existsNotBlank(args["work-author-last" .. tostring(i)]) then
if h.existsNotBlank(args["work-author-first" .. tostring(i)]) then
displayText = displayText .. args["work-author-first" .. tostring(i)] .. " "
end
displayText = displayText .. args["work-author-last" .. tostring(i)]
end
if h.existsNotBlank(args["work-author-link" .. tostring(i)]) then
workAuthors = workAuthors .. ", [[" .. args["work-author-first" .. tostring(i)] .. "|" .. displayText .. "]]"
else
workAuthors = workAuthors .. ", " .. displayText
end
i = i + 1
if not (h.existsNotBlank(args["work-author" .. tostring(i)]) or h.existsNotBlank(args["work-author-last" .. tostring(i)])) then
finished = true
end
end
end
local workDetails = args["work-details"] or ""
if workDetails == "" then
if h.existsNotBlank(args["volume"]) then
workDetails = ", <span title=\"volume\">vol.</span> " .. args["volume"]
end
if h.existsNotBlank(args["issue"]) then
workDetails = workDetails .. ", issue " .. args["issue"]
end
if h.existsNotBlank(args["edition"]) then
workDetails = workDetails .. " (" .. args["edition"] .. " <span title=\"edition\">ed.</span>)"
end
end
local title = args["title"] or "<span class=\"cite-error\">Error: title required</span>"
local work = args["work"] or args["part of"] or args["periodical"] or args["magazine"] or args["newspaper"] or ""
local date = args["date"] or "undated"
local publisher = args["publisher"] or ""
local via = args["via"] or args["website-name"] or ""
local publicationDate = args["publication-date"] or ""
local url = args["url"] or ""
local login = args["login"] or ""
local accessDate = args["access-date"] or ""
local archiveUrl = args["archive-url"] or ""
local archiveDate = args["archive-date"] or "<span class=\"cite-error\">Error: please provide an archive-date alongside the archive-url</span>"
local archiveCentre = args["archive-centre"] or ""
local archiveCollection = args["archive-collection"] or ""
local archiveRef = args["archive-ref"] or ""
local archiveRefUrl = args["archive-ref-url"] or ""
local isbn = args["isbn"] or ""
local pages = args["page"] or args["pages"] or ""
local titleItal = "''"
if args["title-ital"] == "no" or ((work ~= "" or via ~= "") and args["title-ital"] ~= "yes") then
titleItal = ""
end
local titleQuotes = ""
if args["title-quotes"] == "yes" or ((work ~= "" or via ~= "") and args["title-quotes"] ~= "no") then
titleQuotes = "\""
end
local workItal = "''"
if args["work-ital"] == "no" then
workItal = ""
end
local workQuotes = ""
if args["work-quotes"] == "yes" then
workQuotes = "\""
end
if publisher == "" and publicationDate ~= "" then
date = date .. ", published " .. publicationDate
end
local titleLink = false
if string.find(title, "%[%[.+%]%]") ~= nil then
titleLink = true
end
if url ~= "" and not titleLink then
if archiveUrl ~= "" then
title = "[" .. archiveUrl .. " " .. title .. "]"
else
title = "[" .. url .. " " .. title .. "]"
end
end
local citation = titleQuotes .. titleItal .. title .. titleItal .. titleQuotes
if url ~= "" then
if titleLink then
if archiveUrl ~= "" then
citation = citation .. " ([" .. archiveUrl .. " link]"
else
citation = citation .. " ([" .. url .. " link]"
end
if login ~= "" then
citation = citation .. " ," .. login .. " login required)"
else
citation = citation .. ")"
end
elseif login ~= "" then
citation = citation .. " (" .. login .. " login required)"
end
end
if work == "" then
citation = citation .. workDetails
end
if authors ~= "" then
citation = citation .. " by " .. authors
if date ~= "" then
citation = citation .. " (" .. date .. ")"
end
if work == "" and editors ~= "" then
citation = citation .. ", edited by " .. editors
end
elseif work == "" and editors ~= "" then
citation = citation .. ", edited by " .. editors
if date ~= "" then
citation = citation .. " (" .. date .. ")"
end
elseif date ~= "" then
citation = citation .. " (" .. date .. ")"
end
if publisher == "" and via ~= "" then
citation = citation .. " via " .. via
end
if work ~= "" then
citation = citation .. ", part of " .. workQuotes .. workItal .. work .. workItal .. workQuotes .. workDetails
if workAuthors ~= "" then
citation = citation .. " by " .. workAuthors
end
if editors ~= "" then
citation = citation .. ", edited by " .. editors
end
if pages ~= "" then
if string.find(pages, "-") or string.find(pages, ",") or string.find(pages, "&") or string.find(pages, "and") then
citation = citation .. ", pages "
else
citation = citation .. ", page "
end
citation = citation .. pages
end
end
if publisher ~= "" then
citation = citation .. ", published by " .. publisher
if via ~= "" then
citation = citation .. " via " .. via
end
if publicationDate ~= "" then
citation = citation .. " (" .. publicationDate .. ")"
end
end
if archiveUrl ~= "" then
citation = citation .. ". Archived from [" .. url .. " the original] on " .. archiveDate
end
if accessDate ~= "" then
citation = citation .. ". Accessed on " .. accessDate
end
if archiveCentre ~= "" or archiveCollection ~= "" then
citation = citation .. ". Available "
if archiveCollection ~= "" then
citation = citation .. "in the " .. archiveCollection
if archiveCentre ~= "" then
citation = citation .. ", " .. archiveCentre
end
elseif archiveCentre ~= "" then
citation = citation .. "at the " .. archiveCentre
end
if archiveRef ~= "" then
citation = citation .. ", "
if archiveRefUrl ~= "" then
citation = citation .. "[" .. archiveRefUrl .. " "
end
citation = citation .. archiveRef
if archiveRefUrl ~= "" then
citation = citation .. "]"
end
end
end
if isbn ~= "" then
citation = citation .. ", [[Special:BookSources/" .. isbn .. "|ISBN " .. isbn .. "]]"
end
if work == "" and pages ~= "" then
if string.find(pages, "-") or string.find(pages, ",") or string.find(pages, "&") or string.find(pages, "and") then
citation = citation .. ". Pages "
else
citation = citation .. ". Page "
end
citation = citation .. pages
end
citation = citation .. "."
return citation
end
return p
