14.599
redaktə
Modul:Citation/CS1/Utilities: Redaktələr arasındakı fərq
22579 dəyişikliyi WikiSysop (Müzakirə) tərəfindən geri alındı.
Redaktənin izahı yoxdur |
Teq: Geri qaytarma |
||
| Sətir 1: | Sətir 1: | ||
local z = { | local z = { | ||
| Sətir 114: | Sətir 113: | ||
message, | message, | ||
' (', | ' (', | ||
make_wikilink ( | make_wikilink ( | ||
table.concat ( | table.concat ( | ||
{ | { | ||
cfg.messages['help page link'], | |||
'#', | '#', | ||
error_state.anchor | error_state.anchor | ||
}), | }), | ||
cfg.messages['help page label']), | |||
')' | ')' | ||
}); | }); | ||
z.error_ids[ error_id ] = true; | z.error_ids[ error_id ] = true; | ||
if in_array( error_id, { 'bare_url_missing_title', 'trans_missing_title' } ) | if in_array( error_id, { 'bare_url_missing_title', 'trans_missing_title' } ) | ||
| Sətir 342: | Sətir 334: | ||
local wl_type = 2; -- assume that str is a complex wikilink [[L|D]] | local wl_type = 2; -- assume that str is a complex wikilink [[L|D]] | ||
L, D = str:match ('%[%[([^|]+)|([^%]]+)%]%]'); | L, D = str:match ('^%[%[([^|]+)|([^%]]+)%]%]$'); -- get L and D from [[L|D]] | ||
if not is_set (D) then -- if no separate link | if not is_set (D) then -- if no separate link | ||
D = str:match ('%[%[([^%]]*)|*%]%]'); -- get D from [[D]] | D = str:match ('^%[%[([^%]]*)|*%]%]$'); -- get D from [[D]] | ||
wl_type = 1; | wl_type = 1; | ||
end | end | ||
| Sətir 358: | Sətir 350: | ||
return wl_type, D, L or ''; | return wl_type, D, L or ''; | ||
end | |||
--[[--------------------------< S T R I P _ A P O S T R O P H E _ M A R K U P >-------------------------------- | |||
Strip wiki italic and bold markup from argument so that it doesn't contaminate COinS metadata. | |||
This function strips common patterns of apostrophe markup. We presume that editors who have taken the time to | |||
markup a title have, as a result, provided valid markup. When they don't, some single apostrophes are left behind. | |||
Returns the argument without wiki markup and a number; the number is more-or-less meaningless except as a flag | |||
to indicate that markup was replaced; do not rely on it as an indicator of how many of any kind of markup was | |||
removed; returns the argument and nil when no markup removed | |||
]] | |||
local function strip_apostrophe_markup (argument) | |||
if not is_set (argument) then | |||
return argument, nil; -- no argument, nothing to do | |||
end | |||
if nil == argument:find ( "''", 1, true ) then -- Is there at least one double apostrophe? If not, exit. | |||
return argument, nil; | |||
end | |||
local flag; | |||
while true do | |||
if argument:find ( "'''''", 1, true ) then -- bold italic (5) | |||
argument, flag=argument:gsub("%'%'%'%'%'", ""); -- remove all instances of it | |||
elseif argument:find ( "''''", 1, true ) then -- italic start and end without content (4) | |||
argument, flag=argument:gsub("%'%'%'%'", ""); | |||
elseif argument:find ( "'''", 1, true ) then -- bold (3) | |||
argument, flag=argument:gsub("%'%'%'", ""); | |||
elseif argument:find ( "''", 1, true ) then -- italic (2) | |||
argument, flag=argument:gsub("%'%'", ""); | |||
else | |||
break; | |||
end | |||
end | |||
return argument, flag; -- done | |||
end | end | ||
| Sətir 373: | Sətir 405: | ||
--[[--------------------------< E X P O R T S >---------------------------------------------------------------- | |||
]] | |||
return { | return { | ||
is_set = is_set, | is_set = is_set, -- exported functions | ||
in_array = in_array, | in_array = in_array, | ||
substitute = substitute, | substitute = substitute, | ||
| Sətir 388: | Sətir 422: | ||
make_wikilink = make_wikilink, | make_wikilink = make_wikilink, | ||
set_selected_modules = set_selected_modules, | set_selected_modules = set_selected_modules, | ||
z = z, | strip_apostrophe_markup = strip_apostrophe_markup, | ||
z = z, -- exported table | |||
} | } | ||