Module:Citation/CS1/COinS: Difference between revisions

--[[--------------------------< F O R W A R D  D E C L A R A T I O N S >--------------------------------------

]]

local has_accept_as_written, is_set, in_array, remove_wiki_link, strip_apostrophe_markup; -- functions in Module:Citation/CS1/Utilities

 

 

--[[--------------------------< M A K E _ C O I N S _ T I T L E >----------------------------------------------

 

Makes a title for COinS from Title and / or ScriptTitle (or any other name-script pairs)

 

 

]]

 

local function make_coins_title (title, script)

title = has_accept_as_written (title);

title = strip_apostrophe_markup (title); -- strip any apostrophe markup

title = ''; -- if not set, make sure title is an empty string

script = script:gsub ('^%l%l%s*:%s*', ''); -- remove language prefix if present (script value may now be empty string)

script = strip_apostrophe_markup (script); -- strip any apostrophe markup

script = ''; -- if not set, make sure script is an empty string

script = ' ' .. script; -- add a space before we concatenate

return title .. script; -- return the concatenation

 

 

--[[--------------------------< E S C A P E _ L U A _ M A G I C _ C H A R S >----------------------------------

 

Returns a string where all of Lua's magic characters have been escaped. This is important because functions like

string.gsub() treat their pattern and replace strings as patterns, not literal strings.

 

argument = argument:gsub("%%", "%%%%"); -- replace % with %%

argument = argument:gsub("([%^%$%(%)%.%[%]%*%+%-%?])", "%%%1"); -- replace all other Lua magic pattern characters

 

 

--[[--------------------------< G E T _ C O I N S _ P A G E S >------------------------------------------------

 

Extract page numbers from external wikilinks in any of the |page=, |pages=, or |at= parameters for use in COinS.

 

 

pattern = pages:match("%[(%w*:?//[^ ]+%s+)[%w%d].*%]"); -- pattern is the opening bracket, the URL and following space(s): "[url "

if nil == pattern then break; end -- no more URLs

pattern = escape_lua_magic_chars (pattern); -- pattern is not a literal string; escape Lua's magic pattern characters

pages = pages:gsub(pattern, ""); -- remove as many instances of pattern as possible

pages = pages:gsub("[%[%]]", ""); -- remove the brackets

pages = pages:gsub("–", "-" ); -- replace endashes with hyphens

pages = pages:gsub("&%w+;", "-" ); -- and replace HTML entities (&ndash; etc.) with hyphens; do we need to replace numerical entities like &#32; and the like?

 

 

--[=[-------------------------< C O I N S _ R E P L A C E _ M A T H _ S T R I P M A R K E R >------------------

 

settings are at [[Special:Preferences#mw-prefsection-rendering]] and are

 

All three are heavy with HTML and CSS which doesn't belong in the metadata.

 

of the last editor to save the page.

 

This function gets the rendered form of an equation according to the editor's preference before the page is saved. It

then searches the rendering for the text equivalent of the rendered equation and replaces the rendering with that so

that the page is saved without extraneous HTML/CSS markup and with a reasonably readable text form of the equation.

 

value. To replace multipe equations it is necessary to call this function from within a loop.

 

]=]

 

local stripmarker = cfg.stripmarkers['math'];

local rendering = value:match (stripmarker); -- is there a math stripmarker

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

return {

}