Jump to content

Module:Titulus

Checked
E Wikisource


this module contains the code for Template:Titulus; receives the template's parameters, and converts them in strings generating the text to be visualized in the titulus box and the categories in which to place the book, based on the author, year, genre(s) and source available.

The module also checks if the page is a subpage (if it has slashes / in the title), and in this case does not add the categories.


p = {}

function p.titulus(frame)
    pframe = frame:getParent()
    config = frame.args
    args = pframe.args
   
--template parameters
	local saeculumquaero = require "Module:Titulus/SaeculumQuaero"
	operaetitulus = config["OperaeTitulus"]
	subtitulus = config["SubTitulus"] or ""
	scriptor = config["Scriptor"] or ""
	liber = config["Liber"] or ""
	annus = config["Annus"] or ""
	annusmonstratus = config["AnnusMonstratus"] or ""
	operaewikipagina = config["OperaeWikiPagina"] or ""
	fons = config["Fons"] or ""
	editio = config["Editio"] or ""
	interpres = config["Interpres"] or ""
	annusinterpretationis = config["AnnusInterpretationis"] or ""
	linguanativa = config["LinguaNativa"] or ""
	recensor = config["Recensor"] or ""
	genera = config["Genera"] or ""
	frons = config["Frons"] or ""
	scriptor2 = config["Scriptor2"]
	scriptor3 = config["Scriptor3"]
	scriptor4 = config["Scriptor4"]
	scriptor5 = config["Scriptor5"]
	scriptor6 = config["Scriptor6"]
	
--initializes internal variables, for ease of concatenation
	categoriaomnia=""; categoriacapiti = ""; categoriascriptoris = ""; categorialibri = ""; anninumerus = ""; categoriaanni = ""; categoriagenerum = ""
	nexusscriptoris2 = ""; nexusscriptoris3 = ""; nexusscriptoris4 = ""; nexusscriptoris5 = ""; nexusscriptoris6 = ""
	categoriascriptoris2 = ""; categoriascriptoris3 = ""; categoriascriptoris4 = ""; categoriascriptoris5 = ""; categoriascriptoris6 = ""
--fetches the title of the page
	titulus = mw.title.getCurrentTitle().text
	
--checks if the page is a subpage, i.e. if it has slashes /
	if mw.ustring.find(titulus, "/") then
		subpagina = true
	else
		subpagina = false
	end
	
--Generating the strings that translate the templates' parameters

--SCRIPTOR (author of the work)
	if scriptor == "Anonimus" or scriptor == "0" then --for anonimous works
		nexusscriptoris= "Sine Nomine"; 
		categoriascriptoris = "[[Categoria:Opera sine nomine scripta|".. titulus.. "]]" --adds the work in the Categoria:Opera sine nomine scripta
			
	else --when the author is known
		nexusscriptoris = "[[Scriptor:".. scriptor.. "|".. scriptor.. "]]"; 
		if mw.title.new("Scriptor:"..scriptor).isRedirect then
			scriptor = tostring(mw.title.new("Scriptor:".. scriptor).redirectTarget) --fixes the scriptor's name, if redirect, to insert it in the category
			scriptor = string.gsub(scriptor, "Scriptor:", "")
		end
		categoriascriptoris = "[[Categoria:Opera quae ".. scriptor.. " scripsit|".. titulus.. "]]" --adds the work in the author's category
	end
	
--SCRIPTOR2, 3 etc., for works with more authors (up to 5)
	if scriptor2 ~= "0" then --2
		nexusscriptoris2 = ", [[Scriptor:".. scriptor2.. "|".. scriptor2.. "]]"; 
		if mw.title.new("Scriptor:"..scriptor2).isRedirect then
			scriptor2 = tostring(mw.title.new("Scriptor:".. scriptor2).redirectTarget) --fixes the scriptor's name, if redirect, to insert it in the category
			scriptor2 = string.gsub(scriptor2, "Scriptor:", "")
		end
		categoriascriptoris2 = "[[Categoria:Opera quae ".. scriptor2.. " scripsit|".. titulus.. "]]"
	end
	if scriptor3 ~= "0" then --3
		nexusscriptoris3 = ", [[Scriptor:".. scriptor3.. "|".. scriptor3.. "]]"; 
		if mw.title.new("Scriptor:"..scriptor3).isRedirect then
			scriptor3 = tostring(mw.title.new("Scriptor:".. scriptor3).redirectTarget) --fixes the scriptor's name, if redirect, to insert it in the category
			scriptor3 = string.gsub(scriptor3, "Scriptor:", "")
		end
		categoriascriptoris3 = "[[Categoria:Opera quae ".. scriptor3.. " scripsit|".. titulus.. "]]"
	end
	if scriptor4 ~= "0" then --4
		nexusscriptoris4 = ", [[Scriptor:".. scriptor4.. "|".. scriptor4.. "]]"; 
		if mw.title.new("Scriptor:"..scriptor4).isRedirect then
			scriptor4 = tostring(mw.title.new("Scriptor:".. scriptor4).redirectTarget) --fixes the scriptor's name, if redirect, to insert it in the category
			scriptor4 = string.gsub(scriptor4, "Scriptor:", "")
		end
		categoriascriptoris2 = "[[Categoria:Opera quae ".. scriptor4.. " scripsit|".. titulus.. "]]"
	end
	if scriptor5 ~= "0" then --5
		nexusscriptoris5 = ", [[Scriptor:".. scriptor5.. "|".. scriptor5.. "]]"; 
		if mw.title.new("Scriptor:"..scriptor5).isRedirect then
			scriptor5 = tostring(mw.title.new("Scriptor:".. scriptor5).redirectTarget) --fixes the scriptor's name, if redirect, to insert it in the category
			scriptor5 = string.gsub(scriptor5, "Scriptor:", "")
		end
		categoriascriptoris5 = "[[Categoria:Opera quae ".. scriptor5.. " scripsit|".. titulus.. "]]"
	end
	if scriptor6 ~= "0" then --6
		nexusscriptoris6 = ", [[Scriptor:".. scriptor6.. "|".. scriptor6.. "]]"; 
		if mw.title.new("Scriptor:"..scriptor6).isRedirect then
			scriptor6 = tostring(mw.title.new("Scriptor:".. scriptor6).redirectTarget) --fixes the scriptor's name, if redirect, to insert it in the category
			scriptor6 = string.gsub(scriptor6, "Scriptor:", "")
		end
		categoriascriptoris6 = "[[Categoria:Opera quae ".. scriptor6.. " scripsit|".. titulus.. "]]"
	end

--OPERAETITULUS (title oh the work)
	if operaetitulus == "0" then error('quaeso titulum operis in campo |OperaeTitulus= insere') end --if the title is not specified, calls for error

	if subpagina == false then --if the page is not a subpage
		nexusoperaetituli = operaetitulus --does not gerate a link
	elseif subpagina == true then --if the page is a subpage
		if operaewikipagina > "0" then 
			nexusoperaetituli = "[[".. operaewikipagina.. "|".. operaetitulus.. "]]"
		else
			nexusoperaetituli = "[[".. operaetitulus.. "]]"
		end
	end
	
--SUBTITULUS (subtitle of the work)
	if subtitulus ~= "0" then
		nexussubtituli = subtitulus
	else
		nexussubtituli = ""
	end
	
--ANNUS (publication year)
	if annus ~= "0" then --if the "annus" parameter is defined...
		if annusmonstratus > "0" then
			nexusanni = annusmonstratus --visualizes a different value from that used for categorizations, for cases like "inter 1650 et 1655" or similar
		else
			nexusanni = annus --the year will be visualized just as inserted in the template
		end
		saeculum = saeculumquaero.annus(annus)
		categoriaanni = "[[Categoria:Saeculi ".. saeculum.. " opera|".. titulus.. "]]" --generates the category by putting together the "saeculum" and the eventuale "aCn"

	else --if the annus parameter is not compiled, the year is unknown and the corresponding category is added
	nexusanni = "anno incognito"
	categoriaanni = "[[Categoria:Saeculi incogniti opera|".. titulus.. "]]"
	end
	
-- INTERPRES and ANNUSINTERPRETATIONIS, for the translator and the year of translation
	if interpres ~= "0" then
		nexusinterpretis= "[[Scriptor:".. interpres.. "|".. interpres.. "]] Latine vertit"
		if mw.title.new("Scriptor:"..interpres).isRedirect then
			interpres = tostring(mw.title.new("Scriptor:".. interpres).redirectTarget) --fixes the translator's name, if redirect, to insert it in the category
			interpres = string.gsub(interpres, "Scriptor:", "")
		end
		categoriainterpretis = "[[Categoria:Opera quae ".. interpres.. " Latine vertit|".. titulus.. "]]"
		if interpres == "anonimus" or interpres == "Anonimus" or interpres == "incognitus" or interpres == "Incognitus" then --if the author of the translation is not known
			nexusinterpretis = "Incognitus auctor Latine vertit" 
			categoriainterpretis = "[[Categoria:Auctoris incogniti interpretationes|".. titulus.. "]]"
		end
		if annusinterpretationis ~= "0" then --if the "annusinterpretationis" parameter is defined...
			nexusanniinterpretationis = ", ".. annusinterpretationis
			saeculum = saeculumquaero.annus(annusinterpretationis)
			categoriaanniinterpretationis = "[[Categoria:Saeculi ".. saeculum.. " interpretationes|".. titulus.. "]]" --generates the category by putting together the "saeculum" and the eventuale "aCn"
			if linguanativa ~= "0" then
				linguanativa = linguanativa:lower() --ignore capitalization
				if linguanativa == "anglicus" or linguanativa == "anglica" then
					nexuslinguaenativae = " ex Anglico"
					categorialinguaenativae = "[[Categoria:Interpretationes e lingua Anglica|".. titulus.. "]]"
				elseif linguanativa == "arabicus" or linguanativa == "arabus" or linguanativa == "arabica" or linguanativa == "araba" then
					nexuslinguaenativae = " ex Arabico"
					categorialinguaenativae = "[[Categoria:Interpretationes e lingua Arabica|".. titulus.. "]]"
				elseif linguanativa == "francicus" or linguanativa == "gallicus" or linguanativa == "francogallicus" or linguanativa == "gallica" or linguanativa == "francica" or linguanativa == "francogallica" then
					nexuslinguaenativae = " e Francogallico"
					categorialinguaenativae = "[[Categoria:Interpretationes e lingua Francogallica|".. titulus.. "]]"
				elseif linguanativa == "germanicus" or linguanativa == "theodiscus" or linguanativa == "teodiscus" or linguanativa == "germanica" or linguanativa == "theodisca" or linguanativa == "teodisca" then
					nexuslinguaenativae = " e Germanico"
					categorialinguaenativae = "[[Categoria:Interpretationes e lingua Germanica|".. titulus.. "]]"
				elseif linguanativa == "graecus" or linguanativa == "grecus" or linguanativa == "graeca" or linguanativa == "greca" then
					nexuslinguaenativae = " e Graeco"
					categorialinguaenativae = "[[Categoria:Interpretationes e lingua Graeca|".. titulus.. "]]"
				elseif linguanativa == "hebraicus" or linguanativa == "hebraeus" or linguanativa == "iudaicus" or linguanativa == "hebraica" or linguanativa == "hebraea" or linguanativa == "iudaica" then
					nexuslinguaenativae = " ex Hebraico"
					categorialinguaenativae = "[[Categoria:Interpretationes e lingua Hebraica|".. titulus.. "]]"
				elseif linguanativa == "italicus" or linguanativa == "italianus" or linguanativa == "italica" or linguanativa == "italiana" then
					nexuslinguaenativae = " ex Italico"
					categorialinguaenativae = "[[Categoria:Interpretationes e lingua Italiana|".. titulus.. "]]"
				else
					nexuslinguaenativae = ""; categorialinguaenativae = "[[Categoria:Interpretationes a lingua incognita|".. titulus.. "]]"
				end
			else
				nexuslinguaenativae = ""; categorialinguaenativae = ""
			end
		else --if the annusinterpretationis parameter is not compiled, the year is unknown and the corresponding category is added
		nexusanni = ", anno incognito"
		categoriaanniinterpretationis = "[[Categoria:Saeculi incogniti interpretationes|".. titulus.. "]]"
		end
	end	
--RECENSOR and EDITIO, for edition year and curator
	if recensor ~= "0" then
		editioest=true
		nexusrecensoris= "[[Scriptor:".. recensor.. "|".. recensor.. "]] recensuit"
		if mw.title.new("Scriptor:"..recensor).isRedirect then
			recensor = tostring(mw.title.new("Scriptor:".. recensor).redirectTarget) --fixes the recensor's name, if redirect, to insert it in the category
			recensor = string.gsub(recensor, "Scriptor:", "")
		end
		categoriarecensoris = "[[Categoria:Opera quae ".. recensor.. " recensuit|".. titulus.. "]]"
	else
		nexusrecensoris = ""; categoriarecensoris = ""
	end
	if editio ~= "0" then
		if recensor > "0" then comma = "; " else comma = "" end
		nexuseditionis= "</br>editio: ".. editio.. comma
		categoriaeditionis = "[[Categoria:Opera cum editione|".. titulus.. "]]"
	else
		nexuseditionis = "editio: incognita"
		categoriaeditionis = "[[Categoria:Opera sine editione|".. titulus.. "]]"
	end
	
--FONS, generates a link to the source of the text
	if fons ~= "0" then
		nexusfontis = "fons: ".. fons
		categoriafontis = "[[Categoria:Opera cum fonte|".. titulus.. "]]"
	else
		nexusfontis = "fons: incognitus" 
		if mw.title.new("Disputatio:"..mw.title.getCurrentTitle().rootText).exists then --TEMPORARY PATCH (25/06/20): looks for the discussion page to add the "sine fonte" category
			categoriafontis = "[[Categoria:Opera sine fonte|".. titulus.. "]] [[Categoria:Opera cum fonte in disputatione|".. titulus.. "]]" --this category is only a TEMPORARY working tool, the whole string will be deleted after all the works are properly categorized!
		else
			categoriafontis = "[[Categoria:Opera sine fonte|".. titulus.. "]]"
		end	
	end
	nexusfontis = nexusfontis.. categoriafontis
	--LIBER (generates a link to the scanned copy OR, lacking this, the discussion page)
	if liber ~= "0" then
	nexuslibri = "fons: [[Liber:".. liber.. "|librum vide]]"
		if mw.title.new("Liber:"..liber).exists then
			categoriafontis = "[[Categoria:Opera cum libro digitali".. "|".. titulus.. "]]"
		else
			error("Librum ".. liber.. " deest! - there is not such index!")
		end
	nexusfontis = nexuslibri.. categoriafontis
	end 

--GENERA (puts the page into the "genera" categories)
	if genera ~= "0" then --if the "genera" parameter is defined...
		genera = string.gsub(genera, ", ", ",") --adjusts the commas
		genera = string.gsub(genera, ",", "]][[Categoria:") --splits the arguments, separated by commas, generating a category for each one
		categoriagenerum = "[[Categoria:".. genera.. "]]"
	else --if the "genera" parameter is not defined...
		categoriagenerum = "[[Categoria:Opera sine generibus]]" --adds the corresponding category
	end
	
--FRONS (locates a front page for exports)
	if frons ~= "0" then
		nexusfrontis = frons
	else
		nexusfrontis = ""
	end
	
--puts the generic category "Opera omnia", collecting all published works
	categoriaomnia = "[[Categoria:Opera omnia".. "|".. titulus.. "]]"
	
--Retieves Wikidata item
	item = mw.wikibase.getEntity()	
	id = mw.wikibase.getEntityIdForCurrentPage()
	
	if id == nil then
		wikidata_cat = "[[Categoria:Opera sine re wikidata".. "|".. titulus.. "]]"
	else
		wikidata_cat = ""
	end
			
	if subpagina == true then
	categoriacapiti = "[[Categoria:Capita ex operibus".. "|".. titulus.. "]]" --adds the "capita" (''chapter'') category 
	categoriascriptoris = ""
	categoriafontis = ""
	if annus == "0" then nexusanni = "" end
	categoriaanni = ""
	categoriainterpretis = ""
	categoriaanniinterpretationis = ""
	categoriaanniinterpretationis = ""
	categorialinguaenativae = ""
	categoriarecensoris = ""
	categoriagenerum = ""
	nexusfrontis = ""
	categoriaomnia = ""
	if editio == "0" then nexuseditionis = "" end
	if fons == "0" then nexusfontis = "" end
	if liber ~= "0" then nexusfontis = nexuslibri end
	categoriaeditionis = ""
	wikidata_cat = ""
	end


--builds the table
	tab = '<div id="ws-data" class="ws-noexport" style="display:none; speak:none">'
	tab = tab.. '<span id="ws-author">'.. scriptor..  '</span>'
	tab = tab.. '<span id="ws-title">'.. operaetitulus.. '</span>'
	tab = tab.. '<span id="ws-scan">'.. liber.. '</span>'
	tab = tab.. '<span id="ws-year">'.. annus.. '</span>'
if nexusfrontis > "0" then
	tab = tab.. '<span id="ws-cover">'.. nexusfrontis.. '</span>'
	tab = tab.. '</div>'
else
    tab = tab.. '</div>'
end
	tab = tab.. '<div class="titulusHeaderBox">'
    tab = tab.. '<div class="ws-noexport" style="padding:1ex;font-size:120%; font-weight: bold;">'
    tab = tab.. categoriaomnia.. nexusscriptoris.. categoriascriptoris.. nexusscriptoris2.. categoriascriptoris2.. nexusscriptoris3.. categoriascriptoris3.. nexusscriptoris4.. categoriascriptoris4.. nexusscriptoris5.. categoriascriptoris5.. nexusscriptoris6.. categoriascriptoris6
    tab = tab.. '</div>'
    tab = tab.. '<div class="ws-noexport" style="padding:1ex;font-size:140%;font-variant:small-caps; font-weight: bold;">'
	tab = tab.. nexusoperaetituli.. categoriacapiti.. categoriagenerum
	tab = tab.. '</div>'
	tab = tab.. '<div class="ws-noexport" style="padding:1ex;font-size:110%; font-weight:bold;">'
    tab = tab.. nexussubtituli
    if interpres > "0" then
	tab = tab.. '</div><div class="ws-noexport" style="padding:1ex;font-size:110%; font-weight:bold;">'
	tab = tab.. nexusinterpretis.. nexuslinguaenativae.. categorialinguaenativae.. nexusanniinterpretationis.. categoriainterpretis.. categoriaanniinterpretationis
	tab = tab.. '</div>'
else
    tab = tab.. '</div>'
end
    tab = tab.. '<div class="ws-noexport" class="ws-noexport" style="padding:1ex; font-weight: bold;">'
    tab = tab.. nexusanni.. categoriaanni
    tab = tab.. '</div>'
    tab = tab.. '<div align="left" class="ws-noexport" style="padding:1ex;font-size:65%; font-weight:bold;">'
    tab = tab.. nexuseditionis.. nexusrecensoris.. categoriarecensoris.. categoriaeditionis.. "</br>".. nexusfontis.. wikidata_cat
    tab = tab.. '</div>'
	tab = tab.. '</div>'
	tab = tab.. '<div title="beginning"></div>'
	tab = tab.. '<div class="text">'
	
return tab
    
    end
return p