RuneScape Wiki
Don't have an account?
Register
Register
RuneScape Wiki
RuneScape Wiki
44,138
pages

Changes: Module:References

Back to page
View source
(+)
Tag: sourceedit
mNo edit summary
Tag: sourceedit
 
(43 intermediate revisions by 7 users not shown)
Line 1: Line 1:
  +
-- Implements reference templates
−
--<pre>
  
  +
--[=[
−  
  +
dependencies
−
local p = {}
  
  +
[[Module:Mainonly]]
−
local r = {}
  
  +
[[Module:Reftag]]
−  
  +
[[Module:Paramtest]]
  +
[[Module:Yesno]]
  +
[[Module:CitePostbag/data]]
  +
--]=]
  +
--<nowiki>
 
local onmain = require('Module:Mainonly').on_main
  
local onmain = require('Module:Mainonly').on_main
 
local tag = require('Module:Reftag')
  
local tag = require('Module:Reftag')
  +
local paramtest = require('Module:Paramtest')
  +
local hc = paramtest.has_content
  +
local dt = paramtest.default_to
  +
local yn = require('Module:Yesno')
  +
local postbags = mw.loadData('Module:CitePostbag/data')
  +
  +
local p = {} --all template entrance points here
  +
local r = {} --reference formatters here to not expose them to #invoke, and to not clutter p
   
 
--create the ref tag to be returned
  
--create the ref tag to be returned
 
local function reftag(frame, reftype)
  
local function reftag(frame, reftype)
−
local args = frame:getParent(args)
 +
local args = frame:getParent().args
−
local s = ''
 +
local s = ''
−
local opts = {}
 +
local opts = {}
−
if args.name then
 +
if hc(args.name) then
−
opts.name = args.name
 +
opts.name = args.name
−
end
 +
end
−
if args.group then
 +
if hc(args.group) then
−
opts.group = args.group
 +
opts.group = args.group
−
end
 +
end
  +
−
 
  +
local ref, cat = r[reftype](args)
−
local cat
  
−
opts.text, cat = r[reftype](args)
 +
opts.text = ref
  +
−
 
−
--return frame:extensionTag({name = 'ref', content = reference, args = opts})
 +
--return frame:extensionTag({name = 'ref', content = reference, args = opts})
−
return tag(opts) .. cat
 +
return tag(opts) .. cat
 
end
  
end
   
 
local function plainref(frame, reftype)
  
local function plainref(frame, reftype)
−
local ref, cat = r[reftype](frame:getParent().args)
 +
local ref, cat = r[reftype](frame:getParent().args)
−
return ref .. cat
 +
return ref .. cat
 
end
  
end
   
−
-- Templates
 +
------------ Helper Templates -----------------
   
 
--[==[
  
--[==[
−
Template:NamedRef
 +
[[Template:NamedRef]]
 
--]==]
  
--]==]
 
p.namedref = function(frame)
  
p.namedref = function(frame)
−
local args = frame:getParent().args
 +
local args = frame:getParent().args
−
opts.name = args.name
 +
local opts = {}
−
if args.group then
 +
opts.name = args.name or args[1]
−
opts.group = args.group
 +
if hc(args.group) then
  +
opts.group = args.group
−
end
  
  +
elseif hc(args[2]) then
−
opts.selfClosing = true
  
  +
opts.group = args[2]
−
return tag(opts)
  
  +
end
  +
opts.selfClosing = true
  +
return tag(opts)
 
end
  
end
   
   
 
--[==[
  
--[==[
−
Template:Reflist
 +
[[Template:Reflist]]
 
--]==]
  
--]==]
 
p.reflist = function(frame)
  
p.reflist = function(frame)
−
local args = frame:getParent().args
 +
local args = frame:getParent().args
−
local div = mw.html.create('div')
 +
local div = mw.html.create('div')
  +
if hc(args.group) then
−
div :addClass('references-small')
  
−
:wikitext(frame:preprocess('<references />'))
 +
div:wikitext(frame:preprocess('<references group="' .. args.group .. '"/>'))
  +
else
−
if args.quotes then
  
  +
div:wikitext(frame:preprocess('<references />'))
−
div:addClass('hideQuotes')
  
−
end
 +
end
  +
div:addClass('references-small')
−
if args.colwidth then
  
  +
if not yn(args.quotes) then
−
div :css({ ['-moz-column-width'] = args.colwidth,
  
  +
div:addClass('hideQuotes')
−
['-webkit-column-width'] = args.colwidth,
  
  +
end
−
['column-width'] = args.colwidth
  
  +
if args.colwidth then
−
})
  
  +
div :css({ ['-moz-column-width'] = args.colwidth,
−
elseif args[1] then
  
−
div :css({ ['-moz-column-count'] = args[1],
 +
['-webkit-column-width'] = args.colwidth,
−
['-webkit-column-count'] = args[1],
 +
['column-width'] = args.colwidth
  +
})
−
['column-count'] = args[1]
  
  +
elseif args[1] then
−
})
  
  +
div :css({ ['-moz-column-count'] = args[1],
−
end
  
  +
['-webkit-column-count'] = args[1],
−
 
  +
['column-count'] = args[1]
−
return div
  
  +
})
  +
end
  +
  +
return div
 
end
  
end
  +
  +
------------RuneScape Citation templates--------------
   
 
--[==[
  
--[==[
−
Template:CiteDevBlog and Template:PlainCiteDevBlog
 +
[[Template:CiteDevBlog]] and [[Template:PlainCiteDevBlog]]
 
--]==]
  
--]==]
 
p.devblogref = function(frame)
  
p.devblogref = function(frame)
−
return reftag(frame, 'devblog')
 +
return reftag(frame, 'devblog')
 
end
  
end
   
 
p.devblogplain = function(frame)
  
p.devblogplain = function(frame)
−
return plainref(frame, 'devblog')
 +
return plainref(frame, 'devblog')
 
end
  
end
   
 
r.devblog = function(a)
  
r.devblog = function(a)
−
local ref
 +
local ref
−
local c = ''
 +
local c = ''
−
ref = a.author or 'Jagex' --author, defaults to Jagex
 +
ref = dt(a.author, 'Jagex') --author, defaults to Jagex
−
ref = ref .. '. '
 +
ref = ref .. '. '
−
if a.url then --url, if present makes a link
 +
if hc(a.url) then --url, if present makes a link
−
ref = ref .. '[' .. a.url
 +
ref = ref .. '[' .. a.url
−
if a.title then
 +
if hc(a.title) then
−
ref = ref .. ' ' .. a.title --if title not present leave as link
 +
ref = ref .. ' "' .. a.title .. '."'--if title not present leave as link
−
end
 +
end
−
ref = ref .. ']'
 +
ref = ref .. ']'
−
else
 +
else
−
if a.title then
 +
if hc(a.title) then
−
ref = ref .. (a.title or '')
 +
ref = ref .. '"' .. a.title .. '."'
−
end
 +
end
−
end
 +
end
−
ref = ref .. ' '
 +
ref = ref .. ' '
−
ref = ref .. (a.blogdate or '')
 +
if hc(a.blogdate) then
−
ref = ref .. " Developers' Blogs. "
 +
ref = ref .. a.blogdate .. '.'
  +
end
−
ref = ref .. (a.notes or '')
  
  +
ref = ref .. " Developers' Blogs. "
−
 
  +
ref = ref .. (a.notes or '')
−
if onmain() and not (a.author and a.url and a.title and a.blogdate) then --validation, required params are author, url, title and blogdate (mainonly)
  
  +
−
c = '[[Category:Incomplete References]]'
  
  +
if onmain() and not (hc(a.author) and hc(a.url) and hc(a.title) and hc(a.blogdate)) then --validation, required params are author, url, title and blogdate (mainonly)
−
end
  
  +
c = '[[Category:Incomplete references]]'
−
return ref, c
  
  +
end
  +
return ref, c
  +
end
  +
  +
  +
--[==[
  +
[[Template:CiteDevDiary]] and [[Template:PlainCiteDevDiary]]
  +
--]==]
  +
p.devdiaryref = function(frame)
  +
return reftag(frame, 'devdiary')
  +
end
  +
  +
p.devdiaryplain = function(frame)
  +
return plainref(frame, 'devdiary')
  +
end
  +
  +
r.devdiary = function(a)
  +
local ref
  +
local c = ''
  +
ref = dt(a.author, 'Jagex') --author, defaults to Jagex
  +
ref = ref .. '. '
  +
if hc(a.url) then --url, if present makes a link
  +
ref = ref .. '[' .. a.url
  +
if hc(a.title) then
  +
ref = ref .. ' "' .. a.title .. '."'--if title not present leave as link
  +
end
  +
ref = ref .. ']'
  +
else
  +
if hc(a.title) then
  +
ref = ref .. '"' .. a.title .. '."'
  +
end
  +
end
  +
ref = ref .. ' '
  +
if hc(a.diarydate) then
  +
ref = ref .. a.diarydate .. '.'
  +
end
  +
ref = ref .. ' Development Diaries. '
  +
ref = ref .. (a.notes or '')
  +
  +
if onmain() and not (hc(a.author) and hc(a.url) and hc(a.title) and hc(a.diarydate)) then
  +
c = '[[Category:Incomplete references]]'
  +
end
  +
return ref, c
  +
end
  +
  +
  +
--[==[
  +
[[Template:CiteForum]] and [[Template:PlainCiteForum]]
  +
--]==]
  +
p.forumref = function(frame)
  +
return reftag(frame, 'forum')
  +
end
  +
  +
p.forumplain = function(frame)
  +
return plainref(frame, 'forum')
  +
end
  +
  +
r.forum = function(a)
  +
local ref
  +
local c = ''
  +
ref = dt(a.author, 'Jagex') --author, defaults to Jagex
  +
ref = ref .. '. '
  +
if hc(a.url) then --url, if present makes a link
  +
ref = ref .. '[' .. a.url
  +
if hc(a.title) then
  +
ref = ref .. ' "' .. a.title .. '."'--if title not present leave as link
  +
end
  +
ref = ref .. ']'
  +
else
  +
if hc(a.title) then
  +
ref = ref .. '"' .. a.title .. '."'
  +
end
  +
end
  +
ref = ref .. ' '
  +
if hc(a.postdate) then
  +
ref = ref .. a.postdate .. '.'
  +
end
  +
ref = ref .. " ''" .. dt(a.forum, 'RuneScape') .. "'' Forums. "
  +
ref = ref .. (a.notes or '')
  +
  +
if onmain() then
  +
if not (hc(a.author) and hc(a.url) and hc(a.title) and hc(a.postdate)) then
  +
c = c .. '[[Category:Incomplete references]]'
  +
end
  +
if a.url and (string.find(a.url, 'forum.runescape.com/', 1, true) or string.find(a.url, 'services.runescape.com/m=forum/', 1, true)) then
  +
c = c .. '[[Category:Unarchived forum references]]'
  +
end
  +
end
  +
return ref, c
  +
end
  +
  +
  +
--[==[
  +
[[Template:CiteGodLetter]] and [[Template:PlainCiteGodLetter]]
  +
--]==]
  +
p.godletterref = function(frame)
  +
return reftag(frame, 'godletter')
  +
end
  +
  +
p.godletterplain = function(frame)
  +
return plainref(frame, 'godletter')
  +
end
  +
  +
r.godletter = function(a)
  +
local ref
  +
local c = ''
  +
ref = 'Jagex. '
  +
  +
local str = ''
  +
local q = ''
  +
if hc(a.issue) then
  +
q = '"'
  +
str = str .. 'God Letter ' .. a.issue
  +
if hc(a.title) then
  +
str = str .. ' - ' .. a.title
  +
end
  +
elseif hc(a.title) then
  +
q = '"'
  +
str = str .. a.title
  +
end
  +
if hc(a.letter) then
  +
q = '"'
  +
str = str .. ', ' .. a.letter
  +
end
  +
  +
if hc(a.archiveurl) or hc(a.url) then --url, if present makes a link
  +
ref = ref .. q
  +
if hc(a.archiveurl) then
  +
ref = ref .. '[' .. a.archiveurl
  +
else
  +
ref = ref .. '[' .. a.url
  +
end
  +
  +
if str ~= '' then
  +
ref = ref .. ' ' .. str--if title not present leave as link
  +
end
  +
ref = ref .. ']' .. q
  +
else
  +
ref = ref .. q .. str .. q
  +
end
  +
  +
if hc(a.archiveurl) then
  +
ref = ref .. ' (Archived from '
  +
if hc(a.url) then
  +
ref = ref .. '[' .. a.url .. ' the original]'
  +
else
  +
ref = ref .. 'the original'
  +
end
  +
if hc(a.archivedate) then
  +
ref = ref .. ' on ' .. a.archivedate
  +
end
  +
ref = ref .. '.)'
  +
end
  +
  +
ref = ref .. " ''RuneScape'' God Letters. "
  +
ref = ref .. (a.notes or '')
  +
  +
if onmain() and not (hc(a.url) and hc(a.title) and hc(a.issue)) then
  +
c = c .. '[[Category:Incomplete references]]'
  +
end
  +
return ref, c
  +
end
  +
  +
  +
--[==[
  +
[[Template:CiteLore]] and [[Template:PlainCiteLore]]
  +
--]==]
  +
p.loreref = function(frame)
  +
return reftag(frame, 'lore')
  +
end
  +
  +
p.loreplain = function(frame)
  +
return plainref(frame, 'lore')
  +
end
  +
  +
r.lore = function(a)
  +
local ref
  +
local c = ''
  +
ref = 'Jagex. '
  +
  +
local str = ''
  +
if hc(a.title) then
  +
str = str .. a.title
  +
if hc(a.sectitle) and yn(a.sectitle, true) then
  +
str = str .. ', ' .. a.sectitle
  +
end
  +
elseif hc(a.sectitle) and yn(a.sectitle, true) then
  +
str = str .. a.sectitle
  +
end
  +
if str ~= '' then
  +
str = '"' .. str .. '."'
  +
end
  +
  +
  +
if hc(a.url) then --url, if present makes a link
  +
ref = ref .. '[' .. a.url
  +
if str ~= '' then
  +
ref = ref .. ' ' .. str--if title not present leave as link
  +
end
  +
ref = ref .. ']'
  +
else
  +
ref = ref .. str
  +
end
  +
ref = ref .. " ''RuneScape'' Lores and Histories. "
  +
ref = ref .. (a.notes or '')
  +
  +
if onmain() and not (hc(a.url) and hc(a.title) and hc(a.sectitle)) then
  +
c = c .. '[[Category:Incomplete references]]'
  +
end
  +
return ref, c
  +
end
  +
  +
  +
--[==[
  +
[[Template:CiteNews]] and [[Template:PlainCiteNews]]
  +
--]==]
  +
p.newsref = function(frame)
  +
return reftag(frame, 'news')
  +
end
  +
  +
p.newsplain = function(frame)
  +
return plainref(frame, 'news')
  +
end
  +
  +
r.news = function(a)
  +
local ref
  +
local c = ''
  +
if hc(a.author) then
  +
ref = a.author .. '. '
  +
else
  +
ref = 'Jagex. '
  +
end
  +
  +
if hc(a.url) then --url, if present makes a link
  +
ref = ref .. '[' .. a.url
  +
if hc(a.title) then
  +
ref = ref .. ' "' .. a.title .. '."'--if title not present leave as link
  +
end
  +
ref = ref .. ']'
  +
else
  +
if hc(a.title) then
  +
ref = ref .. '"' .. a.title .. '."'
  +
end
  +
end
  +
ref = ref .. ' '
  +
if hc(a.newsdate) then
  +
ref = ref .. a.newsdate .. '.'
  +
end
  +
ref = ref .. " ''RuneScape'' News. "
  +
ref = ref .. (a.notes or '')
  +
  +
if onmain() and not (hc(a.url) and hc(a.title) and hc(a.newsdate)) then
  +
c = c .. '[[Category:Incomplete references]]'
  +
end
  +
return ref, c
  +
end
  +
  +
  +
--[==[
  +
[[Template:CiteNPC]] and [[Template:PlainCiteNPC]]
  +
--]==]
  +
p.npcref = function(frame)
  +
return reftag(frame, 'npc')
  +
end
  +
  +
p.npcplain = function(frame)
  +
return plainref(frame, 'npc')
  +
end
  +
  +
r.npc = function(a)
  +
local ref = ''
  +
local c = ''
  +
if hc(a.npc) then
  +
ref = ref .. '[[' .. a.npc .. ']], '
  +
end
  +
if hc(a.loc) then
  +
ref = ref .. '"[[' .. a.loc .. ']]", '
  +
end
  +
ref = ref .. "''RuneScape''. "
  +
  +
if hc(a.quote) then
  +
local span = mw.html.create('span')
  +
:wikitext('"' .. a.quote .. '" ')
  +
ref = ref .. tostring(span)
  +
end
  +
  +
ref = ref .. (a.notes or '')
  +
  +
if onmain() and not (hc(a.npc) and hc(a.quote)) then
  +
c = c .. '[[Category:Incomplete references]]'
  +
end
  +
return ref, c
  +
end
  +
  +
  +
--[==[
  +
[[Template:CitePoll]] and [[Template:PlainCitePoll]]
  +
--]==]
  +
p.pollref = function(frame)
  +
return reftag(frame, 'poll')
  +
end
  +
  +
p.pollplain = function(frame)
  +
return plainref(frame, 'poll')
  +
end
  +
  +
r.poll = function(a)
  +
local ref = 'Jagex. '
  +
local c = ''
  +
  +
local str = ''
  +
if hc(a.poll) then
  +
str = str .. '"' .. a.poll .. '"'
  +
if hc(a.question) and yn(a.question, true) then
  +
str = str .. ', Question ' .. a.question
  +
end
  +
elseif hc(a.question) and yn(a.question, true) then
  +
str = str .. 'Question ' .. a.question
  +
end
  +
if str ~= '' then
  +
str = str .. '.'
  +
end
  +
  +
if hc(a.url) then --url, if present makes a link
  +
ref = ref .. '[' .. a.url
  +
if str ~= '' then
  +
ref = ref .. ' ' .. str--if title not present leave as link
  +
end
  +
ref = ref .. ']'
  +
else
  +
ref = ref .. str
  +
end
  +
ref = ref .. ' '
  +
if hc(a.polldate) then
  +
ref = ref .. a.polldate .. '.'
  +
end
  +
ref = ref .. " ''RuneScape'' Polls. "
  +
ref = ref .. (a.notes or '')
  +
  +
if onmain() and not (hc(a.url) and hc(a.poll) and hc(a.question) and hc(a.polldate)) then
  +
c = c .. '[[Category:Incomplete references]]'
  +
end
  +
return ref, c
  +
end
  +
  +
  +
--[==[
  +
[[Template:CitePostbag]] and [[Template:PlainCitePostbag]]
  +
--]==]
  +
p.postbagref = function(frame)
  +
return reftag(frame, 'postbag')
  +
end
  +
  +
p.postbagplain = function(frame)
  +
return plainref(frame, 'postbag')
  +
end
  +
  +
r.postbag = function(a)
  +
local ref = 'Jagex. '
  +
local c = ''
  +
  +
local anchor = false
  +
local anchorval
  +
local pbname = postbags[tonumber(a.issue)]
  +
  +
if hc(a.letter) then
  +
anchorval = a.letter
  +
if anchorval == tostring(tonumber(anchor)) then
  +
anchorval = tonumber(anchor)
  +
if anchorval == math.floor(anchor) and anchor >= 1 and anchor <= 15 then
  +
anchor = true
  +
end
  +
end
  +
end
  +
  +
if hc(a.issue) then
  +
if pbname then
  +
ref = ref .. 'Postbag ' .. a.issue .. ' - "[[' .. pbname .. '#'
  +
if anchor then
  +
ref = ref .. 'letter ' .. a.letter
  +
else
  +
ref = ref .. a.letter
  +
end
  +
ref = ref .. '|' .. pbname .. ']]"'
  +
else
  +
ref = ref .. 'Postbag ' .. a.issue
  +
if hc(a.title) then
  +
ref = ref .. ' - "' .. a.title .. '"'
  +
end
  +
end
  +
elseif hc(a.title) then
  +
ref = ref .. '"' .. a.title .. '"'
  +
end
  +
if hc(a.letter) then
  +
if ref ~= '' then
  +
ref = ref .. ', '
  +
end
  +
if anchor then
  +
ref = ref .. 'letter #' .. a.letter
  +
else
  +
ref = ref .. a.letter
  +
end
  +
end
  +
  +
if hc(a.author) then
  +
ref = ref .. ', by ' .. a.author
  +
end
  +
  +
ref = ref .. ". ''RuneScape'' Postbags from the Hedge. "
  +
ref = ref .. (a.notes or '')
  +
  +
if onmain() and not (hc(a.issue) and hc(a.letter) and hc(a.author)) then
  +
c = c .. '[[Category:Incomplete references]]'
  +
end
  +
return ref, c
  +
end
  +
  +
  +
--[==[
  +
[[Template:CiteSupport]] and [[Template:PlainCiteSupport]]
  +
--]==]
  +
p.supportref = function(frame)
  +
return reftag(frame, 'support')
  +
end
  +
  +
p.supportplain = function(frame)
  +
return plainref(frame, 'support')
  +
end
  +
  +
r.support = function(a)
  +
local ref = 'Jagex. '
  +
local c = ''
  +
  +
local str = ''
  +
if hc(a.title) then
  +
str = str .. a.title
  +
if hc(a.sectitle) and yn(a.sectitle, true) then
  +
str = str .. ', ' .. a.sectitle
  +
end
  +
elseif hc(a.sectitle) and yn(a.sectitle, true) then
  +
str = str .. a.sectitle
  +
end
  +
if str ~= '' then
  +
str = '"' .. str .. '."'
  +
end
  +
  +
  +
if hc(a.url) then --url, if present makes a link
  +
ref = ref .. '[' .. a.url
  +
if str ~= '' then
  +
ref = ref .. ' ' .. str--if title not present leave as link
  +
end
  +
ref = ref .. ']'
  +
else
  +
ref = ref .. str
  +
end
  +
ref = ref .. " ''RuneScape'' Customer Support. "
  +
ref = ref .. (a.notes or '')
  +
  +
if onmain() and not (hc(a.url) and hc(a.title) and hc(a.sectitle)) then
  +
c = c .. '[[Category:Incomplete references]]'
  +
end
  +
return ref, c
  +
end
  +
  +
--[==[
  +
[[Template:CiteText]] and [[Template:PlainCiteText]]
  +
--]==]
  +
p.textref = function(frame)
  +
return reftag(frame, 'text')
  +
end
  +
  +
p.textplain = function(frame)
  +
return plainref(frame, 'text')
  +
end
  +
  +
r.text = function(a)
  +
local ref = ''
  +
local c = ''
  +
if hc(a.text) then
  +
ref = ref .. '[[' .. a.text .. ']], '
  +
end
  +
if hc(a.author) then
  +
ref = ref .. 'written by [[' .. a.author .. ']], '
  +
end
  +
if hc(a.page) then
  +
ref = ref .. 'page ' .. a.page .. ', '
  +
end
  +
if hc(a.loc) then
  +
ref = ref .. '"[[' .. a.loc .. ']]", '
  +
end
  +
ref = ref .. "''RuneScape''. "
  +
  +
if hc(a.quote) then
  +
local span = mw.html.create('span')
  +
:wikitext('"' .. a.quote .. '" ')
  +
ref = ref .. tostring(span)
  +
end
  +
  +
ref = ref .. (a.notes or '')
  +
  +
if onmain() and not (hc(a.text) and hc(a.quote)) then
  +
c = c .. '[[Category:Incomplete references]]'
  +
end
  +
return ref, c
  +
end
  +
  +
  +
------------ General Citation Templates -----------------
  +
  +
  +
--[==[
  +
[[Template:CitePub]] and [[Template:PlainCitePub]]
  +
--]==]
  +
p.pubref = function(frame)
  +
return reftag(frame, 'pub')
  +
end
  +
  +
p.pubplain = function(frame)
  +
return plainref(frame, 'pub')
  +
end
  +
  +
r.pub = function(a)
  +
local ref = ''
  +
local c = ''
  +
  +
if hc(a.author) then
  +
ref = a.author .. '. '
  +
end
  +
  +
local str = ''
  +
if hc(a.title) then
  +
ref = ref .. "''" .. a.title .. "''"
  +
if hc(a.pages) then
  +
ref = ref .. ', (' .. a.pages .. ')'
  +
end
  +
ref = ref .. '. '
  +
end
  +
if hc(a.publisher) then
  +
ref = ref .. a.publisher
  +
if hc(a.pubyear) then
  +
ref = ref .. ', ' .. a.pubyear
  +
end
  +
ref = ref .. '. '
  +
elseif hc(a.pubyear) then
  +
ref = ref .. a.pubyear .. '. '
  +
end
  +
ref = ref .. (a.notes or '')
  +
  +
if onmain() and not (hc(a.title) and hc(a.publisher) and hc(a.pubyear)) then
  +
c = c .. '[[Category:Incomplete references]]'
  +
end
  +
return ref, c
  +
end
  +
  +
  +
--[==[
  +
[[Template:CiteTwitter]] and [[Template:PlainCiteTwitter]]
  +
--]==]
  +
p.twitterref = function(frame)
  +
return reftag(frame, 'twitter')
  +
end
  +
  +
p.twitterplain = function(frame)
  +
return plainref(frame, 'twitter')
  +
end
  +
  +
r.twitter = function(a)
  +
local ref
  +
local c = ''
  +
ref = 'Jagex. '
  +
  +
if hc(a.url) or hc(a.archiveurl) then --url, if present makes a link
  +
if hc(a.archiveurl) then
  +
ref = ref .. '[' .. a.archiveurl
  +
elseif hc(a.url) then
  +
ref = ref .. '[' .. a.url
  +
end
  +
if hc(a.author) then
  +
ref = ref .. ' ' .. a.author .. "'s Twitter account"--if title not present leave as link
  +
end
  +
ref = ref .. ']. '
  +
elseif hc(a.author) then
  +
ref = ref .. ' ' .. a.author .. "'s Twitter account. "
  +
end
  +
  +
if hc(a.date) then
  +
ref = ref .. a.date .. '. '
  +
end
  +
  +
if hc(a.archivedate) then
  +
ref = ref .. ' (Archived from [' .. a.url .. ' the original] on ' .. a.archivedate .. '.) '
  +
end
  +
  +
if hc(a.quote) then
  +
if hc(a.author) then
  +
ref = ref .. a.author .. ': '
  +
end
  +
ref = ref .. '"' .. a.quote .. '" '
  +
end
  +
ref = ref .. (a.notes or '')
  +
  +
  +
local err = ''
  +
if not (hc(a.url) and hc(a.author) and hc(a.quote) and hc(a.date)) then
  +
err = err .. "Error calling CiteTwitter: parameters '''url''', '''author''', '''quote''', and '''date''' must be specified.<br />"
  +
end
  +
  +
if hc(a.archiveurl) ~= hc(a.archivedate) then --xor
  +
err = err .. "Error calling CiteTwitter: parameters '''archiveurl''' and '''archivedate''' must both be specified or both be unspecified.<br />"
  +
end
  +
  +
  +
if onmain() and err ~= '' then
  +
c = c .. '[[Category:Incomplete references]]'
  +
end
  +
  +
return ref, c
  +
end
  +
  +
  +
  +
--[==[
  +
[[Template:CiteGeneral]] and [[Template:PlainCiteGeneral]]
  +
--]==]
  +
p.generalref = function(frame)
  +
return reftag(frame, 'general')
  +
end
  +
  +
p.generalplain = function(frame)
  +
return plainref(frame, 'general')
  +
end
  +
  +
r.general = function(a)
  +
local ref = ''
  +
local c = ''
  +
local str = ''
  +
  +
if hc(a.author) or hc(a.last) then
  +
if hc(a.last) then
  +
str = a.last
  +
if hc(a.first) then
  +
str = str .. ', ' .. a.first
  +
end
  +
else
  +
str = a.author
  +
end
  +
  +
if hc(a.authorlink) then
  +
ref = ref .. '[' .. a.authorlink
  +
if str ~= '' then
  +
ref = ref .. ' ' .. str
  +
end
  +
ref = ref .. ']'
  +
else
  +
ref = ref .. str
  +
end
  +
  +
if hc(a.coauthors) then
  +
ref = ref .. '; ' .. a.coauthors
  +
end
  +
  +
ref = ref .. '. '
  +
end
  +
  +
if hc(a.title) then
  +
if hc(a.archiveurl) then
  +
ref = ref .. '[' .. a.archiveurl .. ' ' .. a.title .. ']'
  +
elseif hc(a.url) then
  +
ref = ref .. '[' .. a.url .. ' ' .. a.title .. ']'
  +
end
  +
end
  +
  +
if hc(a.language) then
  +
local span = mw.html.create('span')
  +
:css({['font-size'] = '0.95em', color = '#555', position = 'relative', ['font-weight'] = 'bold'})
  +
:wikitext('(' .. a.language .. ')')
  +
ref = ref .. ' ' .. tostring(span)
  +
end
  +
  +
if hc(a.format) then
  +
ref = ref .. ' (' .. a.format .. ')'
  +
end
  +
  +
if hc(a.work) then
  +
ref = ref .. ". ''" .. a.work .. "''"
  +
end
  +
  +
if hc(a.pages) then
  +
ref = ref .. ' pp. ' .. a.pages
  +
end
  +
  +
if hc(a.publisher) then
  +
ref = ref .. '. ' .. a.publisher
  +
end
  +
  +
if hc(a.date) then
  +
ref = ref .. '. ' .. a.date
  +
elseif hc(a.year) then
  +
if hc(a.month) then
  +
ref = ref .. '. ' .. a.month .. ' ' .. a.year
  +
else
  +
ref = ref .. '. ' .. a.year
  +
end
  +
end
  +
  +
if ref ~= '' then
  +
ref = ref .. '.'
  +
end
  +
  +
if hc(a.archivedate) then
  +
ref = ref .. ' (Archived from [' .. a.url .. ' the original] on ' .. a.archivedate .. '.)'
  +
end
  +
  +
if hc(a.quote) then
  +
ref = ref .. ' "' .. a.quote .. '"'
  +
end
  +
  +
if hc(a.notes) then
  +
ref = ref .. ' ' .. a.notes
  +
end
  +
  +
local err = ''
  +
if not (hc(a.url) and hc(a.title)) then
  +
err = err .. "Error calling CiteGeneral: parameters '''url''' and '''title''' must be specified.<br />"
  +
end
  +
if hc(a.archiveurl) ~= hc(a.archivedate) then --xor
  +
err = err .. "Error calling CiteGeneral: parameters '''archiveurl''' and '''archivedate''' must both be specified or both be unspecified.<br />"
  +
end
  +
ref = err .. ref .. mw.getCurrentFrame():expandTemplate{title = 'RefDate', args = { (a.accessdate or ''), '180'} }
  +
  +
if onmain() and err ~= '' then
  +
c = c .. '[[Category:Incomplete references]]'
  +
end
  +
return ref, c
 
end
  
end
   

Latest revision as of 09:14, 8 September 2017

Documentation for this module may be created at Module:References/doc 

-- Implements reference templates
--[=[
	dependencies
	[[Module:Mainonly]]
	[[Module:Reftag]]
	[[Module:Paramtest]]
	[[Module:Yesno]]
	[[Module:CitePostbag/data]]
--]=]
--<nowiki>
local onmain = require('Module:Mainonly').on_main
local tag = require('Module:Reftag')
local paramtest = require('Module:Paramtest')
local hc = paramtest.has_content
local dt = paramtest.default_to
local yn = require('Module:Yesno')
local postbags = mw.loadData('Module:CitePostbag/data')

local p = {} --all template entrance points here
local r = {} --reference formatters here to not expose them to #invoke, and to not clutter p

--create the ref tag to be returned
local function reftag(frame, reftype)
	local args = frame:getParent().args
	local s = ''
	local opts = {}
	if hc(args.name) then
		opts.name = args.name
	end
	if hc(args.group) then
		opts.group = args.group
	end
	
	local ref, cat = r[reftype](args)
	opts.text = ref
	
	--return frame:extensionTag({name = 'ref', content = reference, args = opts})
	return tag(opts) .. cat
end

local function plainref(frame, reftype)
	local ref, cat = r[reftype](frame:getParent().args)
	return ref .. cat
end

------------ Helper Templates -----------------

--[==[
[[Template:NamedRef]]
--]==]
p.namedref = function(frame)
	local args = frame:getParent().args
	local opts = {}
	opts.name = args.name or args[1]
	if hc(args.group) then
		opts.group = args.group
	elseif  hc(args[2]) then
		opts.group = args[2]
	end
	opts.selfClosing = true
	return tag(opts)
end


--[==[
[[Template:Reflist]]
--]==]
p.reflist = function(frame)
	local args = frame:getParent().args
	local div = mw.html.create('div')
	if hc(args.group) then
		div:wikitext(frame:preprocess('<references group="' .. args.group .. '"/>'))
	else
		div:wikitext(frame:preprocess('<references />'))
	end
	div:addClass('references-small')
	if not yn(args.quotes) then
		div:addClass('hideQuotes')
	end
	if args.colwidth then
		div :css({  ['-moz-column-width'] = args.colwidth,
					['-webkit-column-width'] = args.colwidth,
					['column-width'] = args.colwidth
				})
	elseif args[1] then
		div :css({  ['-moz-column-count'] = args[1],
					['-webkit-column-count'] = args[1],
					['column-count'] = args[1]
				})
	end
	
	return div
end

------------RuneScape Citation templates--------------

--[==[
[[Template:CiteDevBlog]] and [[Template:PlainCiteDevBlog]]
--]==]
p.devblogref = function(frame)
	return reftag(frame, 'devblog')
end

p.devblogplain = function(frame)
	return plainref(frame, 'devblog')
end

r.devblog = function(a)
	local ref
	local c = ''
	ref = dt(a.author, 'Jagex') --author, defaults to Jagex
	ref = ref .. '. '
	if hc(a.url) then --url, if present makes a link
		ref = ref .. '[' .. a.url
		if hc(a.title) then
			ref = ref .. ' "' .. a.title .. '."'--if title not present leave as link
		end
		ref = ref .. ']'
	else
		if hc(a.title) then
			ref = ref .. '"' .. a.title .. '."'
		end
	end
	ref = ref .. ' '
	if hc(a.blogdate) then
		ref = ref .. a.blogdate .. '.'
	end
	ref = ref .. " Developers' Blogs. "
	ref = ref .. (a.notes or '')
	
	if onmain() and not (hc(a.author) and hc(a.url) and hc(a.title) and hc(a.blogdate)) then --validation, required params are author, url, title and blogdate (mainonly)
		c = '[[Category:Incomplete references]]'
	end
	return ref, c
end


--[==[
[[Template:CiteDevDiary]] and [[Template:PlainCiteDevDiary]]
--]==]
p.devdiaryref = function(frame)
	return reftag(frame, 'devdiary')
end

p.devdiaryplain = function(frame)
	return plainref(frame, 'devdiary')
end

r.devdiary = function(a)
	local ref
	local c = ''
	ref = dt(a.author, 'Jagex') --author, defaults to Jagex
	ref = ref .. '. '
	if hc(a.url) then --url, if present makes a link
		ref = ref .. '[' .. a.url
		if hc(a.title) then
			ref = ref .. ' "' .. a.title .. '."'--if title not present leave as link
		end
		ref = ref .. ']'
	else
		if hc(a.title) then
			ref = ref .. '"' .. a.title .. '."'
		end
	end
	ref = ref .. ' '
	if hc(a.diarydate) then
		ref = ref .. a.diarydate .. '.'
	end
	ref = ref .. ' Development Diaries. '
	ref = ref .. (a.notes or '')
	
	if onmain() and not (hc(a.author) and hc(a.url) and hc(a.title) and hc(a.diarydate)) then
		c = '[[Category:Incomplete references]]'
	end
	return ref, c
end


--[==[
[[Template:CiteForum]] and [[Template:PlainCiteForum]]
--]==]
p.forumref = function(frame)
	return reftag(frame, 'forum')
end

p.forumplain = function(frame)
	return plainref(frame, 'forum')
end

r.forum = function(a)
	local ref
	local c = ''
	ref = dt(a.author, 'Jagex') --author, defaults to Jagex
	ref = ref .. '. '
	if hc(a.url) then --url, if present makes a link
		ref = ref .. '[' .. a.url
		if hc(a.title) then
			ref = ref .. ' "' .. a.title .. '."'--if title not present leave as link
		end
		ref = ref .. ']'
	else
		if hc(a.title) then
			ref = ref .. '"' .. a.title .. '."'
		end
	end
	ref = ref .. ' '
	if hc(a.postdate) then
		ref = ref .. a.postdate .. '.'
	end
	ref = ref .. " ''" .. dt(a.forum, 'RuneScape') .. "'' Forums. "
	ref = ref .. (a.notes or '')
	
	if onmain() then
		if not (hc(a.author) and hc(a.url) and hc(a.title) and hc(a.postdate)) then
			c = c .. '[[Category:Incomplete references]]'
		end
		if a.url and (string.find(a.url, 'forum.runescape.com/', 1, true) or string.find(a.url, 'services.runescape.com/m=forum/', 1, true)) then
			c = c .. '[[Category:Unarchived forum references]]'
		end
	end
	return ref, c
end


--[==[
[[Template:CiteGodLetter]] and [[Template:PlainCiteGodLetter]]
--]==]
p.godletterref = function(frame)
	return reftag(frame, 'godletter')
end

p.godletterplain = function(frame)
	return plainref(frame, 'godletter')
end

r.godletter = function(a)
	local ref
	local c = ''
	ref = 'Jagex. '
	
	local str = ''
	local q = ''
	if hc(a.issue) then
		q = '"'
		str = str .. 'God Letter ' .. a.issue
		if hc(a.title) then
			str = str .. ' - ' .. a.title
		end
	elseif hc(a.title) then
		q = '"'
		str = str .. a.title
	end
	if hc(a.letter) then
		q = '"'
		str = str .. ', ' .. a.letter
	end
	
	if hc(a.archiveurl) or hc(a.url) then --url, if present makes a link
		ref = ref .. q
		if hc(a.archiveurl) then
			ref = ref .. '[' .. a.archiveurl
		else
			ref = ref .. '[' .. a.url
		end
		
		if str ~= '' then
			ref = ref .. ' ' .. str--if title not present leave as link
		end
		ref = ref .. ']' .. q
	else
		ref = ref .. q .. str .. q
	end
	
	if hc(a.archiveurl) then
		ref = ref .. ' (Archived from '
		if hc(a.url) then
			ref = ref .. '[' .. a.url .. ' the original]'
		else
			ref = ref .. 'the original'
		end
		if hc(a.archivedate) then
			ref = ref .. ' on ' .. a.archivedate
		end
		ref = ref .. '.)'
	end
	
	ref = ref .. " ''RuneScape'' God Letters. "
	ref = ref .. (a.notes or '')
	
	if onmain() and not (hc(a.url) and hc(a.title) and hc(a.issue)) then
		c = c .. '[[Category:Incomplete references]]'
	end
	return ref, c
end


--[==[
[[Template:CiteLore]] and [[Template:PlainCiteLore]]
--]==]
p.loreref = function(frame)
	return reftag(frame, 'lore')
end

p.loreplain = function(frame)
	return plainref(frame, 'lore')
end

r.lore = function(a)
	local ref
	local c = ''
	ref = 'Jagex. '
	
	local str = ''
	if hc(a.title) then
		str = str .. a.title
		if hc(a.sectitle) and yn(a.sectitle, true) then
			str = str .. ', ' .. a.sectitle
		end
	elseif hc(a.sectitle) and yn(a.sectitle, true) then
		str = str .. a.sectitle
	end
	if str ~= '' then
		str = '"' .. str .. '."'
	end
	
	
	if hc(a.url) then --url, if present makes a link
		ref = ref .. '[' .. a.url
		if str ~= '' then
			ref = ref .. ' ' .. str--if title not present leave as link
		end
		ref = ref .. ']'
	else
		ref = ref .. str
	end
	ref = ref .. " ''RuneScape'' Lores and Histories. "
	ref = ref .. (a.notes or '')
	
	if onmain() and not (hc(a.url) and hc(a.title) and hc(a.sectitle)) then
		c = c .. '[[Category:Incomplete references]]'
	end
	return ref, c
end


--[==[
[[Template:CiteNews]] and [[Template:PlainCiteNews]]
--]==]
p.newsref = function(frame)
	return reftag(frame, 'news')
end

p.newsplain = function(frame)
	return plainref(frame, 'news')
end

r.news = function(a)
	local ref
	local c = ''
	if hc(a.author) then
		ref = a.author .. '. '
	else
		ref = 'Jagex. '
	end
	
	if hc(a.url) then --url, if present makes a link
		ref = ref .. '[' .. a.url
		if hc(a.title) then
			ref = ref .. ' "' .. a.title .. '."'--if title not present leave as link
		end
		ref = ref .. ']'
	else
		if hc(a.title) then
			ref = ref .. '"' .. a.title .. '."'
		end
	end
	ref = ref .. ' '
	if hc(a.newsdate) then
		ref = ref .. a.newsdate .. '.'
	end
	ref = ref .. " ''RuneScape'' News. "
	ref = ref .. (a.notes or '')
	
	if onmain() and not (hc(a.url) and hc(a.title) and hc(a.newsdate)) then
		c = c .. '[[Category:Incomplete references]]'
	end
	return ref, c
end


--[==[
[[Template:CiteNPC]] and [[Template:PlainCiteNPC]]
--]==]
p.npcref = function(frame)
	return reftag(frame, 'npc')
end

p.npcplain = function(frame)
	return plainref(frame, 'npc')
end

r.npc = function(a)
	local ref = ''
	local c = ''
	if hc(a.npc) then
		ref = ref .. '[[' .. a.npc .. ']], '
	end
	if hc(a.loc) then
		ref = ref .. '"[[' .. a.loc .. ']]", '
	end
	ref = ref .. "''RuneScape''. "
	
	if hc(a.quote) then
		local span =	mw.html.create('span')
							:wikitext('"' .. a.quote .. '" ')
		ref = ref .. tostring(span)
	end
	
	ref = ref .. (a.notes or '')
	
	if onmain() and not (hc(a.npc) and hc(a.quote)) then
		c = c .. '[[Category:Incomplete references]]'
	end
	return ref, c
end


--[==[
[[Template:CitePoll]] and [[Template:PlainCitePoll]]
--]==]
p.pollref = function(frame)
	return reftag(frame, 'poll')
end

p.pollplain = function(frame)
	return plainref(frame, 'poll')
end

r.poll = function(a)
	local ref = 'Jagex. '
	local c = ''
	
	local str = ''
	if hc(a.poll) then
		str = str .. '"' .. a.poll .. '"'
		if hc(a.question) and yn(a.question, true) then
			str = str .. ', Question ' .. a.question
		end
	elseif hc(a.question) and yn(a.question, true) then
		str = str .. 'Question ' .. a.question
	end
	if str ~= '' then
		str = str .. '.'
	end
	
	if hc(a.url) then --url, if present makes a link
		ref = ref .. '[' .. a.url
		if str ~= '' then
			ref = ref .. ' ' .. str--if title not present leave as link
		end
		ref = ref .. ']'
	else
		ref = ref .. str
	end
	ref = ref .. ' '
	if hc(a.polldate) then
		ref = ref .. a.polldate .. '.'
	end
	ref = ref .. " ''RuneScape'' Polls. "
	ref = ref .. (a.notes or '')
	
	if onmain() and not (hc(a.url) and hc(a.poll) and hc(a.question) and hc(a.polldate)) then
		c = c .. '[[Category:Incomplete references]]'
	end
	return ref, c
end


--[==[
[[Template:CitePostbag]] and [[Template:PlainCitePostbag]]
--]==]
p.postbagref = function(frame)
	return reftag(frame, 'postbag')
end

p.postbagplain = function(frame)
	return plainref(frame, 'postbag')
end

r.postbag = function(a)
	local ref = 'Jagex. '
	local c = ''
	
	local anchor = false
	local anchorval
	local pbname = postbags[tonumber(a.issue)]
	
	if hc(a.letter) then
		anchorval = a.letter
		if anchorval == tostring(tonumber(anchor)) then
			anchorval = tonumber(anchor)
			if anchorval == math.floor(anchor) and anchor >= 1 and anchor <= 15 then
				anchor = true
			end
		end
	end
	
	if hc(a.issue) then
		if pbname then
			ref = ref .. 'Postbag ' .. a.issue .. ' - "[[' .. pbname .. '#'
			if anchor then
				ref = ref .. 'letter ' .. a.letter
			else
				ref = ref .. a.letter
			end
			ref = ref .. '|' .. pbname .. ']]"'
		else
			ref = ref .. 'Postbag ' .. a.issue
			if hc(a.title) then
				ref = ref .. ' - "' .. a.title .. '"'
			end
		end
	elseif hc(a.title) then
		ref = ref .. '"' .. a.title .. '"'
	end
	if hc(a.letter) then
		if ref ~= '' then
			ref = ref .. ', '
		end
		if anchor then
			ref = ref .. 'letter #' .. a.letter
		else
			ref = ref .. a.letter
		end
	end
	
	if hc(a.author) then
		ref = ref .. ', by ' .. a.author
	end
	
	ref = ref .. ". ''RuneScape'' Postbags from the Hedge. "
	ref = ref .. (a.notes or '')
	
	if onmain() and not (hc(a.issue) and hc(a.letter) and hc(a.author)) then
		c = c .. '[[Category:Incomplete references]]'
	end
	return ref, c
end


--[==[
[[Template:CiteSupport]] and [[Template:PlainCiteSupport]]
--]==]
p.supportref = function(frame)
	return reftag(frame, 'support')
end

p.supportplain = function(frame)
	return plainref(frame, 'support')
end

r.support = function(a)
	local ref = 'Jagex. '
	local c = ''
	
	local str = ''
	if hc(a.title) then
		str = str .. a.title
		if hc(a.sectitle) and yn(a.sectitle, true) then
			str = str .. ', ' .. a.sectitle
		end
	elseif hc(a.sectitle) and yn(a.sectitle, true) then
		str = str .. a.sectitle
	end
	if str ~= '' then
		str = '"' .. str .. '."'
	end
	
	
	if hc(a.url) then --url, if present makes a link
		ref = ref .. '[' .. a.url
		if str ~= '' then
			ref = ref .. ' ' .. str--if title not present leave as link
		end
		ref = ref .. ']'
	else
		ref = ref .. str
	end
	ref = ref .. " ''RuneScape'' Customer Support. "
	ref = ref .. (a.notes or '')
	
	if onmain() and not (hc(a.url) and hc(a.title) and hc(a.sectitle)) then
		c = c .. '[[Category:Incomplete references]]'
	end
	return ref, c
end

--[==[
[[Template:CiteText]] and [[Template:PlainCiteText]]
--]==]
p.textref = function(frame)
	return reftag(frame, 'text')
end

p.textplain = function(frame)
	return plainref(frame, 'text')
end

r.text = function(a)
	local ref = ''
	local c = ''
	if hc(a.text) then
		ref = ref .. '[[' .. a.text .. ']], '
	end
	if hc(a.author) then
	    ref = ref .. 'written by [[' .. a.author .. ']], '
	end
	if hc(a.page) then
	    ref = ref .. 'page ' .. a.page .. ', '
	end
	if hc(a.loc) then
		ref = ref .. '"[[' .. a.loc .. ']]", '
	end
	ref = ref .. "''RuneScape''. "
	
	if hc(a.quote) then
		local span =	mw.html.create('span')
							:wikitext('"' .. a.quote .. '" ')
		ref = ref .. tostring(span)
	end
	
	ref = ref .. (a.notes or '')
	
	if onmain() and not (hc(a.text) and hc(a.quote)) then
		c = c .. '[[Category:Incomplete references]]'
	end
	return ref, c
end


------------ General Citation Templates -----------------


--[==[
[[Template:CitePub]] and [[Template:PlainCitePub]]
--]==]
p.pubref = function(frame)
	return reftag(frame, 'pub')
end

p.pubplain = function(frame)
	return plainref(frame, 'pub')
end

r.pub = function(a)
	local ref = ''
	local c = ''
	
	if hc(a.author) then
		ref = a.author .. '. '
	end
	
	local str = ''
	if hc(a.title) then
		ref = ref .. "''" .. a.title .. "''"
		if hc(a.pages) then
			ref = ref .. ', (' .. a.pages .. ')'
		end
		ref = ref .. '. '
	end
	if hc(a.publisher) then
		ref = ref .. a.publisher
		if hc(a.pubyear) then
			ref = ref .. ', ' .. a.pubyear
		end
		ref = ref .. '. '
	elseif hc(a.pubyear) then
		ref = ref .. a.pubyear .. '. '
	end
	ref = ref .. (a.notes or '')
	
	if onmain() and not (hc(a.title) and hc(a.publisher) and hc(a.pubyear)) then
		c = c .. '[[Category:Incomplete references]]'
	end
	return ref, c
end


--[==[
[[Template:CiteTwitter]] and [[Template:PlainCiteTwitter]]
--]==]
p.twitterref = function(frame)
	return reftag(frame, 'twitter')
end

p.twitterplain = function(frame)
	return plainref(frame, 'twitter')
end

r.twitter = function(a)
	local ref
	local c = ''
	ref = 'Jagex. '
	
	if hc(a.url) or hc(a.archiveurl) then --url, if present makes a link
		if hc(a.archiveurl) then
			ref = ref .. '[' .. a.archiveurl
		elseif hc(a.url) then
			ref = ref .. '[' .. a.url
		end
		if hc(a.author) then
			ref = ref .. ' ' .. a.author .. "'s Twitter account"--if title not present leave as link
		end
		ref = ref .. ']. '
	elseif hc(a.author) then
		ref = ref .. ' ' .. a.author .. "'s Twitter account. "
	end
	
	if hc(a.date) then
		ref = ref .. a.date .. '. '
	end
	
	if hc(a.archivedate) then
		ref = ref .. ' (Archived from [' .. a.url .. ' the original] on ' .. a.archivedate .. '.) '
	end
	
	if hc(a.quote) then
		if hc(a.author) then
			ref = ref .. a.author .. ': '
		end
		ref = ref .. '"' .. a.quote .. '" '
	end
	ref = ref .. (a.notes or '')
	
	
	local err = ''
	if not (hc(a.url) and hc(a.author) and hc(a.quote) and hc(a.date)) then
		err = err .. "Error calling CiteTwitter: parameters '''url''', '''author''', '''quote''', and '''date''' must be specified.<br />"
	end
	
	if hc(a.archiveurl) ~= hc(a.archivedate) then --xor
		err = err .. "Error calling CiteTwitter: parameters '''archiveurl''' and '''archivedate''' must both be specified or both be unspecified.<br />"
	end
	
	
	if onmain() and err ~= '' then
		c = c .. '[[Category:Incomplete references]]'
	end
	
	return ref, c
end



--[==[
[[Template:CiteGeneral]] and [[Template:PlainCiteGeneral]]
--]==]
p.generalref = function(frame)
	return reftag(frame, 'general')
end

p.generalplain = function(frame)
	return plainref(frame, 'general')
end

r.general = function(a)
	local ref = ''
	local c = ''
	local str = ''
	
	if hc(a.author) or hc(a.last) then
		if hc(a.last) then
			str = a.last
			if hc(a.first) then
				str = str .. ', ' .. a.first
			end
		else
			str = a.author
		end
		
		if hc(a.authorlink) then
			ref = ref .. '[' .. a.authorlink
			if str ~= '' then
				ref = ref .. ' ' .. str
			end
			ref = ref .. ']'
		else
			ref = ref .. str
		end
		
		if hc(a.coauthors) then
			ref = ref .. '; ' .. a.coauthors
		end
		
		ref = ref .. '. '
	end
	
	if hc(a.title) then
		if hc(a.archiveurl) then
			ref = ref .. '[' .. a.archiveurl .. ' ' .. a.title .. ']'
		elseif hc(a.url) then
			ref = ref .. '[' .. a.url .. ' ' .. a.title .. ']'
		end
	end
	
	if hc(a.language) then
		local span =	mw.html.create('span')
							:css({['font-size'] = '0.95em', color = '#555', position = 'relative', ['font-weight'] = 'bold'})
							:wikitext('(' .. a.language .. ')')
		ref = ref .. ' ' .. tostring(span)
	end
	
	if hc(a.format) then
		ref = ref .. ' (' .. a.format .. ')'
	end
	
	if hc(a.work) then
		ref = ref .. ". ''" .. a.work .. "''"
	end
	
	if hc(a.pages) then
		ref = ref .. ' pp. ' .. a.pages
	end
	
	if hc(a.publisher) then
		ref = ref .. '. ' .. a.publisher
	end
	
	if hc(a.date) then
		ref = ref .. '. ' .. a.date
	elseif hc(a.year) then
		if hc(a.month) then
			ref = ref .. '. ' .. a.month .. ' ' .. a.year
		else
			ref = ref .. '. ' .. a.year
		end
	end
	
	if ref ~= '' then
		ref = ref .. '.'
	end
	
	if hc(a.archivedate) then
		ref = ref .. ' (Archived from [' .. a.url .. ' the original] on ' .. a.archivedate .. '.)'
	end
	
	if hc(a.quote) then
		ref = ref .. ' "' .. a.quote .. '"'
	end
	
	if hc(a.notes) then
		ref = ref .. ' ' .. a.notes
	end
	
	local err = ''
	if not (hc(a.url) and hc(a.title)) then
		err = err .. "Error calling CiteGeneral: parameters '''url''' and '''title''' must be specified.<br />"
	end
	if hc(a.archiveurl) ~= hc(a.archivedate) then --xor
		err = err .. "Error calling CiteGeneral: parameters '''archiveurl''' and '''archivedate''' must both be specified or both be unspecified.<br />"
	end
	ref = err .. ref .. mw.getCurrentFrame():expandTemplate{title = 'RefDate', args = { (a.accessdate or ''), '180'} }
	
	if onmain() and err ~= '' then
		c = c .. '[[Category:Incomplete references]]'
	end
	return ref, c
end

return p
Community content is available under CC-BY-SA unless otherwise noted.
More Fandoms