Wikipedia

Module:Catalog lookup link/sandbox: Difference between revisions

Browse history interactively
← Previous edit
Content deleted Content added
tweak output
add empty content
 
(9 intermediate revisions by 4 users not shown)
Line 5:
|article-name=: Optional alternative text to be displayed for |article-link= link in front of catalog link.
If not specified, |article-link= is used for display as well. If both parameters are not specified, the prefix is omitted completely.
|article-postfixsuffix=: Optional symbol to be displayed after article name or link (f.e. ":"; omitted, if not defined).
|link-prefix=: Optional prefix portion of url to external catalog item(s).
|link-postfixsuffix=: Optional postfixsuffix portion of url to external catalog item(s).
|item-prefix=: Optional text displayed in front of each external link (omitted, if not defined)
|item-postfixsuffix=: Optional text displayed immediately after each external link (omitted, if not defined)
|list-separator=: Optional alternative separator displayed between list items (default: ", ", if not specified). Whitespace must be encoded.
|list-leadout=: Optional alternative leadout text displayed between the last two list items (f.e. "and", "or", "as well as", etc., default is the |list-separator= or ", ".)
|leadout-postfixsuffix=: Optional alternative postfixsuffix text of the leadout (see |list-leadout=) displayed between the last two list items.
This gets added in front of the last list item instead of the default whitespace which is added without this parameter.
This may be necessary if |list-separator= is used not only to define the list separator but also parts of the item prefix
(except for the first one). (At present, this is used only to cope with format oddities of the {{MR}} template.)
 
 
new parameters that support access icons:
|allowed_icons= – comma-separated list of keywords: free, limited, registration, subscription, none, all (default; 'all' implied when this parameter empty or omitted)
the icons specified in the following parameters are checked agains the list in |allowed-icons=; not in the list? not displayed
|url-access-all= – applies specified icon to all items in the list; accepted keywords: free, limited, registration, subscription;
|url-accessn= – applies specified icon to item n of the list (the nth positional parameter); accepted keywords: free, limited, registration, subscription;
 
]]
 
require('Module:No globalsstrict');
local getArgs = require ('Module:Arguments').getArgs;
local lock_icons = { --icon classes are defined in Module:Citation/CS1/styles.css
 
['free'] = {'id-lock-free', 'Freely accessible'},
local p = {};
['registration'] = {'id-lock-registration', 'Free registration required'},
['limited'] = {'id-lock-limited', 'Free access subject to limited trial, subscription normally required'},
['subscription'] = {'id-lock-subscription', 'Paid subscription required'},
}
 
 
Line 32 ⟶ 43:
 
local function is_set( var )
return not (var and== nil or mw.ustring.match(var, == '%S')) and true or false;
end
 
 
--[=[-------------------------< M A K E _ WL IA KB IE L I N K >----------------------------------------------------------
 
Makes a wikilinkwikilinked or plain text label from arguments; when both link and display text is provided, returnsmakes a wikilink in the form [[L|D]]; if only
wikilink in the form [[L|D]]; if only link is provided, returnsmakes a wikilinkwikilinked label in the form [[L]]; if neither are provided or link is omitted, returnsonly andisplay
is provided, makes a plain-text label; if neither are provided makes a label from suffix, returns an empty string else.
empty string.
 
]=]
 
local function make_wikilinkmake_label (link, display, suffix)
local label = '';
if is_set (link) then
if is_set (display) then
returnlabel = table.concat ({'[[', link, '|', display, ']]'}); -- make [[L|D]] wikilinked label
else
returnlabel = table.concat ({'[[', link, ']]'}); -- make [[L]] wikilinked label
end
elseif is_set (display) then
label = display; -- plain-text label
return display
end
 
if is_set (label) then
return table.concat ({label, suffix, '&nbsp;'}); -- assemble the complete label
else
return suffix; -- no space after suffix if no label
return ''
end
end
 
 
--[[--------------------------< I C O N _ I N D E X _ G E T >--------------------------------------------------
 
returns index into lock_icons[] if value assigned to |url-access= or |url-access-all= is a valid icon selector
--[[--------------------------< M A I N >----------------------------------------------------------------------
(free, limited, registration, subscription)
 
icon selection may be limited to a subset of the icons with:
|allow_icons=<comma-separated list of allowed icons>
<comma-separated list of allowed icons> may be any of the keywords: free, limited, registration, subscription, none, all
 
keyword 'all' is default condition; 'all' is implied when |allowed=icons= is empty or omitted
 
keyword 'none' for use with identifiers where icons are inappropriate (isbn, issn, oclc)
 
Templates using this module should set:
|allow_icons=free for most identifiers;
|allow_icons=none for isbn, issn, oclc, etc
 
|url-access= is alias of |url-access1=
 
]]
 
local function p.mainicon_index_get (frameargs, k)
local args = getArgs (frame)icon;
local param_name = (1 == k and is_set (args['url-access']) and 'url-access') or table.concat ({'url-access', k}); -- make an enumerated parameter name
if is_set(args[1]) then
 
local result = {};
if is_set (args['url-access-all']) and lock_icons[args['url-access-all']] then -- if set and valid
icon = args['url-access-all']; -- tentatively
local article;
 
elseif is_set (args[param_name]) and lock_icons[args[param_name]] then -- if set and valid
local article_postfix = args['article-postfix'] or '';
icon = args[param_name]; -- tentatively
local link_prefix = args['link-prefix'] or '';
 
local link_postfix = args['link-postfix'] or '';
local item_prefix = args['item-prefix'] or '';
local item_postfix = args['item-postfix'] or '';
local list_separator = args['list-separator'] or ', ';
local leadout_postfix = args['leadout-postfix'] or ' ';
local list_leadout;
if is_set (args['list-leadout']) then
list_leadout = table.concat ({
mw.ustring.match(mw.ustring.sub(args['list-leadout'],1,1), '[%a]') and ' ' or '',
args['list-leadout'],
leadout_postfix,
});
else
return nil; -- neither |url-access-all= nor |url-accessn= set so return nil
list_leadout = '';
end
 
if args['article-linkallow_icons'] orand args['article-nameallow_icons']:find ('none') then -- if 'none' keyword is endpresent
return nil; -- icons display not allowed
article = make_wikilink (args['article-link'], args['article-name']);
end
if is_set (article) then
 
article = table.concat ({article, article_postfix, '&nbsp;'});
if not is_set (args['allow_icons']) or args['allow_icons']:find ('all') or args['allow_icons']:find (icon) then --if all allowed or specified icon is allowed
elseif is_set (article_postfix) then
return icon; -- return selected icon as index into icon table
article = article_postfix
end
end
 
 
--[[--------------------------< M A I N >----------------------------------------------------------------------
 
Template entrypoint to this module; arguments come primarily from the parent frame though in templates that use
this module, |allowed-icons= is typically set, if needed, in the {{#invoke:}}.
 
]]
 
local function main (frame)
local args = getArgs (frame);
local out_text = '';
 
if is_set(args[1]) then
local result = {};
local label;
local article_suffix = args['article-suffix'] or args['article-postfix'] or '';
local link_prefix = args['link-prefix'] or '';
local link_suffix = args['link-suffix'] or args['link-postfix'] or '';
local item_prefix = args['item-prefix'] or '';
local item_suffix = args['item-suffix'] or args['item-postfix'] or '';
local list_separator = args['list-separator'] or ', ';
local leadout_suffix = args['leadout-suffix'] or args['leadout-postfix'] or ' ';
local list_leadout;
 
local icon_index;
if is_set (args['list-leadout']) then
list_leadout = table.concat ({
mw.ustring.gsub (args['list-leadout'], '^(%a)', ' %1'), -- insert leading space if first character is a letter
leadout_suffix,
});
else
list_leadout = '';
end
label = make_label (args['article-link'], args['article-name'], article_suffix);
for k, item in ipairs (args) do -- for each of the positional parameters
 
item = mw.text.trim (item); -- remove extraneous whitespace
iffor is_setk, item in ipairs (link_prefixargs) thendo -- iffor each thereof isthe linkpositional prefix...parameters
item = tablemw.concattext.trim ({ item); -- createremove anextraneous external link itemwhitespace
'[', if is_set (link_prefix) then -- openif there extis link markupprefix...
link_prefix, item = table.concat ({ -- urlcreate an external link prefixitem
mw.uri.encode (item)'[', -- item isopen partext oflink urlmarkup
link_postfixlink_prefix, -- url postfixprefix
'mw.uri.encode '(item), -- requireditem spaceis betweenpart of url and label
item_prefixlink_suffix, -- labelurl prefixsuffix
item' ', -- itemrequired space between url asand label
item_postfixitem_prefix, -- itemlabel postfixprefix
']' item, -- close extitem linkas markuplabel
item_suffix, -- item suffix
']' -- close ext link markup
});
 
icon_index = icon_index_get (args, k); -- set if icon specified and allowed for this item; nil else
if icon_index then
item = table.concat ({ -- add access icon markup to this item
'<span class="', -- open the opening span tag; icon classes are defined in Module:Citation/CS1/styles.css
lock_icons[icon_index][1], -- add the appropriate lock icon class
'" title="', -- and the title attribute
lock_icons[icon_index][2], -- for an appropriate tool tip
'">', -- close the opening span tag
item,
'</span>', -- and close the span
});
end
else
item = table.concat ({ -- create an unlinked item
item_prefix, -- label prefix
item, -- item as label
item_postfixitem_suffix, -- item postfixsuffix
});
end
table.insert (result, item); -- add the item to the result list
end
out_text = frame:callParserFunction('#tag', {'templatestyles', '', src=table.concat({
'Module:Citation/CS1',
mw.ustring.match(frame:getTitle(), '/sandbox$') or '',
'/styles.css',
})});
if is_set (args['list-leadout']) then
returnout_text = table.concat ({articleout_text, label, mw.text.listToText (result, list_separator, list_leadout)});
else
returnout_text = table.concat ({articleout_text, label, table.concat (result, list_separator)});
end
 
else
end --is_set (args[1])
return ''
 
end
return out_text
end
 
return p{main = main};
Retrieved from "https://en.wikipedia.org/wiki/Module:Catalog_lookup_link/sandbox"