Module:Autolink/sandbox
This is the module sandbox page for Module:Autolink (diff). See also the companion subpage for test cases. |
--
-- implements {{Autolink}} and {{Unlink}}
--
local p = {}
local text = mw.text
-- removes all special formatting from a string
local function unformat( s )
return s:gsub( '""', '' )
:gsub( "'''?", '' )
:gsub( '##', ' ' )
:gsub( ' ', ' ' )
end
function p.link( frame )
if frame == mw.getCurrentFrame() then
args = frame:getParent().args
else
args = frame
end
local linkarr, numlinks, links, listmarkup, el, link, txt
local format = { '', '', '' }
-- set default to stop errors
links = args[1] and text.trim( args[1] ) or ''
linkarr = text.split( links, '\n' )
numlinks = #linkarr
args[2] = numlinks == 1 and args[2]
for i = 1, numlinks do
el = text.trim( linkarr[i] )
-- skip empty lines
if not el:find( '^[*#;:]?%s*$' ) then
if listmarkup ~= '' then
listmarkup = ( el:match( '^([*#;:])' ) or '*' ) .. ' '
el = el:gsub( '^[*#;:]%s*', '' )
end
-- check for piped link in line or multiple links in line
if el:find( '%[%[.-|.-%]%]' ) or el:find( '%]%].-%[%[' ) then
linkarr[i] = table.concat( { listmarkup, el }, '' )
else
format[1] = el:find( '^"%[%[.-%]%]"$' ) and '"' or ''
el = el:match( '%[%[(.-)%]%]' ) or el
link = el
txt = args[2] or el
if el:find( '%[%[' ) ~= 1 then
link = unformat( link )
-- check for formatting that can be moved out of the link entirely
if txt:find( '^""' ) and txt:find( '""$' ) then
format[1] = '"'
txt = txt:gsub( '^""', '' ):gsub( '""$', '' )
end
txt = txt:gsub( '""', '"' )
if txt:find( "^'''" ) and txt:find( "'''$" ) then
format[2] = "'''"
txt = txt:gsub( "'''$", '' ):gsub( "^'''", '' )
end
if txt:find( "^''" ) and txt:find( "''$" ) then
format[3] = "''"
txt = txt:gsub( "''$", '' ):gsub( "^''", '' )
end
else
txt = txt:gsub( "'", ''' )
end
if txt:find( '##' ) then
txt = txt:gsub( '##', '#' )
elseif txt:find( '[^&]#' ) then
txt = txt:gsub( '([^&])#', '%1 § ')
end
if numlinks == 1 then
listmarkup = ''
end
if link == txt then
linkarr[i] = table.concat( { listmarkup, table.concat( format ), '[[', link, ']]', format[3], format[2], format[1] }, '' )
else
linkarr[i] = table.concat( { listmarkup, table.concat( format ), '[[', link, '|', txt, ']]', format[3], format[2], format[1] }, '' )
end
end
end
end
links = table.concat( linkarr, '\n' )
links = text.trim( links
:gsub( '%[%[[Cc]ategory:', '[[:Category:' )
:gsub( '%[%[[Ff]ile:', '[[:File:' )
:gsub( '%[%[[Ii]mage:', '[[:File:' ) )
return links
end
-- returns the target of the first link in text
-- to return the entire text without any links instead, see {{Delink}}
function p.unlink( frame )
local txt = frame:getParent().args[1]
return txt and ( txt:match( '%[%[:?(.-)[|%]]' ) or text.trim( txt ) )
end
return p