local p = {}

local excerptModule = require('Module:Excerpt')

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

local randomModule = require('Module:Random')

local DEFAULT_LIMIT = 25 -- max number of excerpts to be shown in the slideshow

local SOURCE_PAGES_LIMIT = 10 -- max number of pages to check for links / list items

function cleanupArgs(argsTable)

local cleanArgs = {}

for key, val in pairs(argsTable) do

if type(val) == 'string' then

val = val:match('^%s*(.-)%s*$')

if val ~= then

cleanArgs[key] = val

end

else

cleanArgs[key] = val

end

end

return cleanArgs

end

function isDeclined(val)

if not val then return false end

local declinedWords = " decline declined exclude excluded false none not no n off omit omitted remove removed "

return string.find(declinedWords , ' '..val..' ', 1, true ) and true or false

end

@param {String} wikitext: Wikitext of just the list (i.e. each line is a list item)

@param {String} symbol: Special character used in the wikitext markup for the list, e.g. '*' or '#'

@param {String} outerTag: Text portion of the tag for each list or sublist, e.g. 'ul' or 'ol'

@param {String} innerTag: Text portion of the tag for each list item, e.g. 'li'

]]

local wikitextToHtmlList = function(wikitext, symbol, outerTag, innerTag)

local listParts = {}

for level, item in mw.ustring.gmatch('\'..wikitext..'\', '\(%'..symbol..'+)(.-)%f[\]') do

table.insert(listParts, {level=level, item=item})

end

table.insert(listParts, {level=, item=})

local htmlList = {}

for i, this in ipairs( listParts ) do

local isFirstItem = (i == 1)

local isLastItem = (i == #listParts)

local lastLevel = isFirstItem and or listParts[i-1]['level']

local tags

if #lastLevel == #this.level then

tags = '<'..innerTag..'>'

elseif #this.level > #lastLevel then

tags = string.rep('<'..outerTag..'><'..innerTag..'>', #this.level - #lastLevel)

elseif isLastItem then

tags = string.rep('', #lastLevel)

else -- ( #this.level < #lastLevel ) and not last item

tags = string.rep('', #lastLevel - #this.level ) .. '<'..innerTag..'>'

end

table.insert(htmlList, tags .. this.item)

end

return table.concat(htmlList)

end

@param {String} wikitext: Wikitext excertp containg zero or more lists

@param {String} symbol: Special character used in the wikitext markup for the list, e.g. '*' or '#'

@param {String} outerTag: Text portion of the tag for each list or sublist, e.g. 'ul' or 'ol'

@param {String} innerTag: Text portion of the tag for each list item, e.g. 'li'

]]

local gsubWikitextLists = function(wikitext, symbol, outerTag, innerTag)

-- temporarily remove list linebreaks...

wikitext = mw.ustring.gsub(wikitext..'\', '\%'..symbol, '¿¿¿'..symbol)

-- ...so we can grab the whole list (and just the list)...

return mw.ustring.gsub(

wikitext,

'¿¿¿%'..symbol..'[^\]+',

function(listWikitext)

-- ...and then reinstate linebreaks...

listWikitext = mw.ustring.gsub(listWikitext, '¿¿¿%'..symbol, '\'..symbol)

-- ...and finally do the conversion

return wikitextToHtmlList(listWikitext, symbol, outerTag, innerTag)

end

)

end

local replacePipesWithMagicword = function(t)

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

end

     and remove linebreaks from within other templates,     and preprocess parser functions ]]

local processBraces = function(t)

local isTable = mw.ustring.sub(mw.text.trim(t), 2, 2) == '|'

if isTable then

return

end

-- else it's a template or parser function

local first = mw.ustring.sub(t, 1, 1)

local last = mw.ustring.sub(t, -1)

local isNotPartOfProse = first == '\' and last == '\'

if isNotPartOfProse then

return

end

local isParserFunction = mw.ustring.sub(mw.text.trim(t), 3, 3) == '#'

if isParserFunction then

local frame = mw.getCurrentFrame()

return frame:preprocess(t)

end

-- else replace pipes and remove internal linebreaks

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

end

function makeGalleryArgs(titles, options, limit, nonRandom)

local galleryArgs = {}

local titlesSequence = {}

local i = 1

while titles[i] do

titlesSequence[i] = titles[i]

i = i + 1

end

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 excerpt = mw.text.trim(excerptModule.main({title}, options))

if excerpt and excerpt ~= and #excerpt > 10 then

-- temporarily take off the Read more... link if present

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 more...

-- strip galleries

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

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

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

-- replace pipes within links

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

-- replace other pipes with html entity

excerpt = mw.ustring.gsub(excerpt, '|', '|')

-- 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 = '

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

table.insert(galleryArgs, text)

end

end

end

if nonRandom then

galleryArgs.random = 'false'

end

if #galleryArgs == 0 and options.nostubs then

-- try again, this time including stubs

options.nostubs = false

return makeGalleryArgs(titles, options, limit, nonRandom)

else

return galleryArgs

end

end

local makeOptions = function(args)

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

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

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

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

options.nostubs = false

else

options.nostubs = true

end

return options

end

local isArticle = function(pagetitle)

local titleObject = mw.title.new(pagetitle)

return ( titleObject and titleObject.namespace == 0 ) and true or false

end

local getLinkedTitles = function(args, method, limit)

local pagenames = {}

local ii = 1

local isNotCategory

while args[ii] and ii < limit do

local pageContent = excerptModule.getContent(args[ii])

if pageContent then

local pageSection = args["section"..ii] or args["section"]

local sectionOnly = args["sectiononly"..ii] or args["sectiononly"]

local text = pageContent

if pageSection then -- check relevant section only

text = excerptModule.getsection(pageContent, pageSection, sectionOnly) or pageContent

end

-- replace annotated links with real links

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

if method == "linked" then

for p in mw.ustring.gmatch(text, "%[%[%s*([^%]|\]*)") do

if isArticle(p) then

table.insert(pagenames, p)

end

end

else

-- listitem: first wikilink on a line beginning *, :#, etc. except in "See also" or later section

text = mw.ustring.gsub(text, "\== *See also.*", "")

for p in mw.ustring.gmatch(text, "\*[%*#][^\]-%[%[%s*([^%]|\]*)") do

if isArticle(p) then

table.insert(pagenames, p)

end

end

end

end

ii = ii + 1

end

return pagenames

end

p.randomExcerpt = function(frame)

local parent = frame.getParent(frame)

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

return frame:preprocess(output)

end

p.linkedExcerpt = function(frame)

local parent = frame.getParent(frame)

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

return frame:preprocess(output)

end

p.listItemExcerpt = function(frame)

local parent = frame.getParent(frame)

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

return frame:preprocess(output)

end

p._excerpt = function(_args, method)

local args = cleanupArgs(_args)

-- 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

local titles

if method == 'linked' or method == 'listitem' then

titles = getLinkedTitles(args, method, SOURCE_PAGES_LIMIT)

else

titles = args

end

local galleryArgs = makeGalleryArgs(titles, options, limit, isDeclined(_args.random))

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

end

return p

• Mill Creek Entertainment
• Millcreek Expressway
• Mill Creek Expressway
• Mill Creek High School
• Mill Creek Island
• Mill Creek Island (West Virginia)
• Mill Creek (Jackson County, Iowa)
• Mill Creek (Loyalsock Creek tributary)
• Millcreek Mall
• Mill Creek (Michigan)
• Millcreek, Missouri
• Mill Creek Mountain
• Mill Creek (Northern California)
• Mill Creek (North Fork South Branch Potomac River)
• Mill Creek (Ohio River)
• Mill Creek (Ohio River tributary)
• Mill Creek (Opequon Creek tributary)
• Mill Creek Park
• Mill Creek (Patterson Creek)
• Mill Creek (Patterson Creek tributary)
• Mill Creek (Philadelphia)
• Mill Creek, Philadelphia
• Mill Creek Ravine
• Mill Creek Recreational Park
• Mill Creek (San Bernardino County)