Module:Hatnote and Module:Hatnote/sandbox: Difference between pages

end

function p.defaultClasses(inline)

-- Provides the default hatnote classes as a space-separated string; useful

-- for hatnote-manipulation modules like [[Module:Hatnote group]].

return

(inline == 1 and 'hatnote-inline' or 'hatnote') .. ' ' ..

'navigation-not-searchable'

end

function p.disambiguate(page, disambiguator)

-- Formats a page title with a disambiguation parenthetical,

-- i.e. "Example" → "Example (disambiguation)".

checkType('disambiguate', 1, page, 'string')

checkType('disambiguate', 2, disambiguator, 'string', true)

disambiguator = disambiguator or 'disambiguation'

return mw.ustring.format('%s (%s)', page, disambiguator)

local curNs = mw.title.getCurrentTitle().namespace

p.missingTargetCat =

--Default missing target category, exported for use in related modules

((curNs == 0) or (curNs == 14)) and

'Articles with hatnote templates targeting a nonexistent page' or nil

function p.quote(title)

--Wraps titles in quotation marks. If the title starts/ends with a quotation

--mark, kerns that side as with {{-'}}

local quotationMarks = {

["'"]=true, ['"']=true, ['“']=true, ["‘"]=true, ['”']=true, ["’"]=true

}

local quoteLeft, quoteRight = -- Test if start/end are quotation marks

quotationMarks[string.sub(title, 1, 1)],

quotationMarks[string.sub(title, -1, -1)]

if quoteLeft or quoteRight then

title = mw.html.create("span"):wikitext(title)

end

if quoteLeft then title:css("padding-left", "0.15em") end

if quoteRight then title:css("padding-right", "0.15em") end

return '"' .. tostring(title) .. '"'

p[''] = function (frame) return p.hatnote(frame:newChild{ title = "Template:Hatnote" }) end