Module:Harvc: Difference between revisions

Revision as of 03:32, 31 August 2021

Latest revision as of 16:13, 26 January 2025

(6 intermediate revisions by 4 users not shown)

Line 1:

require('Module:No globalsstrict')

local anchor_id_list = mw.loadData ('Module:Footnotes/anchor_id_list').anchor_id_list;

local code_open_tag = '<code class="cs1-code">'; -- cs1-code class defined in Module:Citation/CS1/styles.css

Line 12 ⟶ 11:

--[[--------------------------< T A R G E T _ C H E C K >------------------------------------------------------

check to see if target of harvc exists in the page somewhere. Uses the target check mechanism from Module:Footnotes

look for anchor_id (CITEREF name-list and year or text from |ref=) in anchor_id_list

setting |ignore-errors=yes in {{harvc}} will override this check

the 'no target' error may be suppressed with |ignore-err=yes when target cannot be found because target is inside

a template that wraps another template; 'multiple targets' error may not be suppressed

]]

local function target_check (anchor_id, ignore)

local whitelist_check = require('Module:Footnotes').target_check

local number = anchor_id_list[anchor_id]; -- nil when anchor_id not in list; else a number

local args = {ignore=ignore, template='Harvc', show=true}

local msg;

return whitelist_check(anchor_id, args)

local category;

if not number then

if ignore then

return ''; -- if ignore is true then no message, no category

end

msg = 'no target: ' .. anchor_id; -- anchor_id not found in this article

elseif 1 < number then

msg = 'multiple targets (' .. number .. '×): ' .. anchor_id; -- more than one anchor_id in this article

end

category = 0 == mw.title.getCurrentTitle().namespace and '[[Category:Harv and Sfn template errors]]' or ''; -- only categorize in article space

--use this version to show error messages

return msg and ' <span class="error harv-error" style="display: inline; font-size:100%">Harvc error: ' .. msg .. ' ([[:Category:Harv and Sfn template errors|help]])</span>' .. category or '';

--use this version to hide error messages

-- return msg and ' <span class="error harv-error" style="display: none; font-size:100%">Harvc error: ' .. msg .. ' ([[:Category:Harv and Sfn template errors|help]])</span>' .. category or '';

end

Line 44 ⟶ 26:

--[[--------------------------< I S _ S E T >------------------------------------------------------------------

Whether variable is set or not. A varablevariable is set when it is not nil and not empty.

]]

Line 168 ⟶ 150:

local source = ''; -- editor/author date list that forms a CITEREF link to a full citation

local in_text = ' In ';

local result; -- the assemby of the above output

-- form the CITEREF anchor

Line 211 ⟶ 192:

count = #args.last; -- set count to display all of the authors

end

while i <= count do

if is_set (contributors) then

Line 266 ⟶ 247:

target_err_msg = target_check (anchor_id, args.ignore); -- see if there is a target for this anchor_id

source = '[[#' .. anchor_id .. "|" .. source .. "]]";

-- special case for afterword, foreword, introduction, preface

local no_quotes = ({['afterword']=true, ['foreword']=true, ['introduction']=true, ['preface']=true})[args.contribution:lower()];

--combine contribution with url to make external link

Line 313 ⟶ 297:

-- and put it all together

local result = {}; -- the assemby of the above output

result = span_open_tag .. contributors .. ' "' .. args.contribution .. '"' .. args.sepc .. in_text .. source .. args.p .. args.ps .. args.err_msg .. target_err_msg .. '</span>';

table.insert (result, span_open_tag);

table.insert (result, contributors);

table.insert (result, no_quotes and ' ' or ' "'); -- foreword, afterword, introduction, preface contributions are not quoted; all other contributions are

table.insert (result, args.contribution);

table.insert (result, no_quotes and '' or '"'); -- foreword, afterword, introduction, preface contributions are not quoted; all other contributions are

table.insert (result, args.sepc);

table.insert (result, in_text);

table.insert (result, source);

table.insert (result, args.p);

table.insert (result, args.ps);

table.insert (result, args.err_msg);

if not is_set(args.err_msg) then

table.insert (result, target_err_msg)

end

table.insert (result, '</span>');

return table.concat (result); -- make a string and done

end

Line 377 ⟶ 376:

i = i + 1 -- bump the index

end

end

if 0 == #args.last then -- |last= is required

args.err_msg = args.err_msg .. ' no authors in contributor list.';

end