Module:Excerpt slideshow/sandbox: Difference between revisions

Revision as of 01:01, 19 April 2019

Latest revision as of 11:09, 18 August 2024

(22 intermediate revisions by 6 users not shown)

Line 1:

local p = {}

local excerptModule = require('Module:Excerpt/portals/sandbox')

local slideshowModule = require('Module:Random slideshow/sandbox')

local randomModule = require('Module:Random')

Line 88:

end

)

end

local replacePipesWithMagicword = function(t)

return mw.ustring.gsub(t, '|', '{{!}}')

end

Line 114 ⟶ 110:

return frame:preprocess(t)

end

-- else replace pipes and remove internal linebreaks

return replacePipesWithMagicword(mw.ustring.gsub(t, '\n*', ''))

end

local cleanUpExcerpt = function(excerpt)

-- strip galleries

excerpt = mw.ustring.gsub(excerpt, "<%s*[Gg]allery.->.-<%s*/%s*[Gg]allery%s*>", "")

-- strip tables and block templates; strip newlines

excerpt = mw.ustring.gsub(excerpt..'\n', '\n?%b{}\n?', processBraces)

-- replace wikitext bulleted lists with html bulleted lists

excerpt = gsubWikitextLists(excerpt, '*', 'ul', 'li')

-- replace wikitext numbered lists with html numbered lists

excerpt = gsubWikitextLists(excerpt, '#', 'ol', 'li')

excerpt = mw.text.trim(excerpt)

return excerpt

end

Line 128 ⟶ 137:

local sortedTitles = nonRandom and titlesSequence or randomModule.main('array', {t=titlesSequence, limit=limit})

for _i, title in ipairs(sortedTitles) do

if (#galleryArgs / 2) < limit then

local success, excerpt = mw.text.trimpcall(excerptModule.main({get, title}, options))

if excerptnot and excerpt ~= '' and #excerpt > 10success then

mw.log("require('Module:Excerpt').get failed: " .. excerpt) -- probably got a redlink

-- temporarily take off the '''[[Page title|Read more...]]''' link if present

excerpt = nil

readmore_start_index, readmore_end_index, readmore_text = mw.ustring.find(excerpt, "(%s*'''%b[]''')$", -350) --- Starting from end should improve efficiency. 350 characters allows for long page titles and/or a long custom label for the link

if readmore_start_index then

excerpt = mw.ustring.sub(excerpt, 1, readmore_start_index-1)

end

end

if excerpt and excerpt ~= '' and #excerpt > 10 then -- check again in case we had a few characters plus Read(Full morearticle...)

excerpt = cleanUpExcerpt(excerpt)

-- strip galleries

if options.more then

excerpt = mw.ustring.gsub(excerpt, "<%s*[Gg]allery.->.-<%s*/%s*[Gg]allery%s*>", "")

excerpt = excerpt .. " ('''[[" .. title .. "|" .. options.more .. "]]''')"

-- strip tables and block templates; strip newlines and replace pipes within inline templates

excerpt = mw.ustring.gsub(excerpt..'\n', '\n?%b{}\n?', processBraces)

-- replace pipes within links

excerpt = mw.ustring.gsub(excerpt, '%b[]', replacePipesWithMagicword)

-- replace other pipes with html entity

excerpt = mw.ustring.gsub(excerpt, '|', '&#124;')

-- replace wikitext bulleted lists with html bulleted lists

excerpt = gsubWikitextLists(excerpt, '*', 'ul', 'li')

-- replace wikitext numbered lists with html numbered lists

excerpt = gsubWikitextLists(excerpt, '#', 'ol', 'li')

excerpt = mw.text.trim(excerpt)

-- add back the "Read more..." link if it was present

if readmore_text then

excerpt = excerpt .. readmore_text

end

local text = '<div style{{=}}"text-align:left;">' .. mw.ustring.gsub(excerpt, '%c', '<br>') .. '</div>'

table.insert(galleryArgs, 'File:Blank.png')

table.insert(galleryArgs, text)

Line 175 ⟶ 168:

local makeOptions = function(args)

local options = args -- pick up miscellaneous options: more, errors, fileargs

options.paraflags = excerptModule.numberflagsnumberFlags(args.paragraphs or "") -- parse paragraphs, e.g. "1,3-5" → {"1","3-5"}

options.fileflags = excerptModule.numberflagsnumberFlags(args.files or "") -- parse file numbers

options.ignoreOnlyincludes = options.ignoreOnlyincludes == nil and true or options.ignoreOnlyincludes -- default to true

if args.nostubs and isDeclined(args.nostubs) then

options.nostubs = false

Line 201 ⟶ 195:

local text = pageContent

if pageSection then -- check relevant section only

textlocal success, result = pcall(excerptModule.getsection(getSection, pageContent, pageSection, sectionOnly) or pageContent

if not success then

-- begin BHG addition for tracking source pages

mw.log("require('Module:Excerpt').getSection failed on the content of " .. args[ii] .. ": " .. result)

local thispage = mw.title.getCurrentTitle().nsText .. ":" .. mw.title.getCurrentTitle().text

if (thispage result == args[ii]) thennil

usesEmbeddedList = true;

end

text = result or pageContent

-- end BHG addition for tracking source pages

end

-- begin BHG addition for tracking source pages

local thisPage = mw.title.getCurrentTitle().nsText .. ":" .. mw.title.getCurrentTitle().text

thisPage = thisPage:gsub('_', ' ') -- fix the nsText part, until [[phab:T369784]] is resolved

local thisBareParam = mw.ustring.gsub(args[ii], "^([^#]+).*$", "%1", 1) -- strip any section anchor from the parameter's page name

thisBareParam = thisBareParam:gsub('_', ' ') -- support underscores in parameter's page name

if (thisPage == thisBareParam) then

usesEmbeddedList = true;

end

-- end BHG addition for tracking source pages

-- replace annotated links with real links

text = mw.ustring.gsub(text, "{{%s*[Aa]nnotated[ _]link%s*|%s*(.-)%s*}}", "[[%1]]")

Line 247 ⟶ 249:

local parent = frame.getParent(frame)

local output = p._excerpt(parent.args, 'random')

return frame:extensionTag{ name='templatestyles', args = { src='Module:Random slideshow/sandbox/styles.css'} }

return frame:preprocess(output)

.. frame:preprocess(output)

end

Line 254 ⟶ 257:

local parent = frame.getParent(frame)

local output = p._excerpt(parent.args, 'linked')

return frame:extensionTag{ name='templatestyles', args = { src='Module:Random slideshow/sandbox/styles.css'} }

return frame:preprocess(output)

.. frame:preprocess(output)

end

Line 261 ⟶ 265:

local parent = frame.getParent(frame)

local output = p._excerpt(parent.args, 'listitem')

return frame:extensionTag{ name='templatestyles', args = { src='Module:Random slideshow/sandbox/styles.css'} }

return frame:preprocess(output)

.. frame:preprocess(output)

end

Line 269 ⟶ 274:

p._excerpt = function(_args, method)

local args = cleanupArgs(_args)

args.more = excerptModule.getMoreLinkText(_args.more)

-- check for blank value in more parameter

if _args.more and not args.more then

args.more = "Read more..." -- default text for blank more=

end

local galleryArgs = {}

local options = makeOptions(args)

local limit = args.limit and tonumber(args.limit) or DEFAULT_LIMIT

Line 285 ⟶ 286:

return slideshowModule._main(galleryArgs, false, 'excerptSlideshow-container') .. checksourcepages()

end

p._cleanUpExcerpt = cleanUpExcerpt

-- begin BHG addition for tracking source pages

function checksourcepages()

-- no tracking unless we are in Portal namespace

if (mw.title.getCurrentTitle().nsText ~= "Portal") then

return ""

end

local pagecounter = 0;

local templatecount = 0;

local retvaloutlinecount ="" 0;

local debuggingretval = false"";

local usesEponymousArticle = false;

if debugging then

local debugging = false;

retval = '<div style="display:block; border:10px solid green; background-color:#efe; padding:1em; margin:1em">\n----\n'

local thisPageBareName = mw.title.getCurrentTitle().text;

retval = retval .. "sourcepgagesusedcounter: " .. sourcepgagesusedcounter .. "\n----\n"

if debugging then

retval = retval .. "pages used:"

retval = '<div style="display:block; border:10px solid green; background-color:#efe; padding:1em; margin:1em">\n----\n'

end

retval = retval .. "sourcepgagesusedcounter: " .. sourcepgagesusedcounter .. "\n----\n"

local apage

retval = retval .. "pages used:"

for apage in arrayvalues(sourcepgagesused) do

end

if debugging then

local apage

retval = retval .. "\n# [[:" .. apage .. "]]"

for apage in arrayvalues(sourcepgagesused) do

retval = retval .. " — " .. "First 999 = /" .. string.sub(apage, 1, 999) .. "/"

if debugging then

end

retval = retval .. "\n# [[:" .. apage .. "]]"

if (string.find(apage, "^[tT]emplate ?:") == 1) then

retval = retval .. " — " .. "First 999 = /" .. string.sub(apage, 1, 999) .. "/"

templatecount = templatecount + 1;

end

if (string.find(apage, "^[tT]emplate ?:") == 1) then

pagecounter = pagecounter + 1

templatecount = templatecount + 1;

end

end

if debugging then

if (string.find(apage, "^[oO]utline +of ") == 1) then

retval = retval .. "\nTotal pages: " .. pagecounter

outlinecount = outlinecount + 1;

retval = retval .. "\ntemplatecount: " .. templatecount

end

retval = retval .. "</div>"

if (apage == thisPageBareName) then

end

usesEponymousArticle = true;

-- first do a sanity check that both counting methods have produced the same result

end

if (sourcepgagesusedcounter == pagecounter) then

pagecounter = pagecounter + 1

-- if all pages are templates, then populate tracking categories

end

if (pagecounter == templatecount) then

if (templatecount == 1)debugging then

retval = retval .. "[[Category\nTotal pages:Automated portals" with.. article list built solely from one template]]"pagecounter

retval = retval .. "\ntemplatecount: " elseif.. (templatecount == 2) then

retval = retval .. "[[Category:Automated portals with article list built solely from two templates]]</div>"

end

elseif (templatecount == 3) then

-- first do a sanity check that both counting methods have produced the same result

retval = retval .. "[[Category:Automated portals with article list built solely from three templates]]"

if (sourcepgagesusedcounter == pagecounter) then

end

-- if all pages are templates, then populate tracking categories

if (pagecounter == templatecount) then

if (templatecount == 1) then

retval = retval .. "[[Category:Automated article-slideshow portals with article list built solely from one template]]"

elseif (templatecount == 2) then

retval = retval .. "[[Category:Automated article-slideshow portals with article list built solely from two templates]]"

elseif (templatecount == 3) then

retval = retval .. "[[Category:Automated article-slideshow portals with article list built solely from three templates]]"

elseif (templatecount > 3) then

retval = retval .. "[[Category:Automated article-slideshow portals with article list built solely from four or more templates]]"

end

elseif (templatecount > 0) then

retval = retval .. "[[Category:Automated article-slideshow portals with article list built using one or more templates, and other sources]]"

end

end

if (outlinecount >= 1) then

retval = retval .. "[[Category:Automated article-slideshow portals with article list built using one or more outline pages]]"

end

end

if (articlelistcount < 2) then

retval = retval .. "[[Category:Automated article-slideshow portals with less than 2 articles in article list]]"

elseif (articlelistcount <= 5) then

retval = retval .. "[[Category:Automated article-slideshow portals with 2–5 articles in article list]]"

elseif (articlelistcount <= 10) then

retval = retval .. "[[Category:Automated article-slideshow portals with 6–10 articles in article list]]"

elseif (articlelistcount <= 15) then

retval = retval .. "[[Category:Automated article-slideshow portals with 11–15 articles in article list]]"

elseif (articlelistcount <= 20) then

retval = retval .. "[[Category:Automated article-slideshow portals with 16–20 articles in article list]]"

elseif (articlelistcount <= 25) then

retval = retval .. "[[Category:Automated article-slideshow portals with 21–25 articles in article list]]"

elseif (articlelistcount <= 30) then

retval = retval .. "[[Category:Automated article-slideshow portals with 26–30 articles in article list]]"

elseif (articlelistcount <= 40) then

retval = retval .. "[[Category:Automated article-slideshow portals with 31–40 articles in article list]]"

elseif (articlelistcount <= 50) then

retval = retval .. "[[Category:Automated article-slideshow portals with 41–50 articles in article list]]"

elseif (articlelistcount <= 100) then

retval = retval .. "[[Category:Automated article-slideshow portals with 51–100 articles in article list]]"

elseif (articlelistcount <= 200) then

retval = retval .. "[[Category:Automated article-slideshow portals with 101–200 articles in article list]]"

elseif (articlelistcount <= 500) then

retval = retval .. "[[Category:Automated article-slideshow portals with 201–500 articles in article list]]"

elseif (articlelistcount <= 1000) then

retval = retval .. "[[Category:Automated article-slideshow portals with 501–1000 articles in article list]]"

elseif (articlelistcount > 1000) then

retval = retval .. "[[Category:Automated article-slideshow portals with over 1000 articles in article list]]"

end

if usesEmbeddedList then

retval = retval .. "[[Category:Automated article-slideshow portals with embedded list]]"

end

if usesEponymousArticle then

retval = retval .. "[[Category:Automated article-slideshow portals with article list built using eponymous article]]"

end

return retval