Difference between revisions of "Module:List"
Jump to navigation
Jump to search
no edit summary
en>Raylton P. Sousa |
en>Raylton P. Sousa |
||
| Line 1: | Line 1: | ||
local p = {} | local p = {} | ||
function | |||
-- Based on parseCollectionLine from https://gerrit.wikimedia.org/r/gitweb?p=mediawiki/extensions/Collection.git;a=blob;f=Collection.body.php;hb=f2bd4ee2be12ab3df5f2dcb3bd56ff17247fff66#l793) | |||
-- Get "Book/Title" from a line in any of these formats: | |||
-- :[[Book/Title]] | |||
-- :[[Book/Title|Text]] | |||
-- :[{{fullurl:Book/Title|oldid=12345}} Text] | |||
function getChapterFromLine( line ) | |||
title = string.match( line, "^%s*:%s*%[%[:?(.-)|(.-)%]%]%s*$" ) or | |||
string.match( line, "^%s*:%s*%[%[:?(.-)%]%]%s*$" ) or | |||
string.match( line, "^%s*:%s*%[{{fullurl:(.-)|oldid=.-}}%s+.-]%s*$" ) or | |||
"" | |||
return title:gsub('_',' ') | |||
end | end | ||
return p | |||
-- Adapted from http://lua-users.org/wiki/SplitJoin | |||
function getListOfChaptersFromText(str) | |||
local delim = "\r?\n+" | |||
if string.find(str, delim) == nil then | |||
-- This book doesn't have a collection page | |||
return "" | |||
end | |||
local result = {} | |||
local pat = "(.-)" .. delim .. "()" | |||
local nb = 0 | |||
local lastPos | |||
for line, pos in string.gfind(str, pat) do | |||
nb = nb + 1 | |||
result[nb] = getChapterFromLine( line ) | |||
lastPos = pos | |||
end | |||
result[nb + 1] = getChapterFromLine( string.sub(str, lastPos) ) | |||
return result | |||
end | |||
function p.getListOfChapters( frame ) | |||
local pageName = frame:preprocess( "{{PAGENAME}}" ) | |||
local colPageText = frame:preprocess( '{{:User:Raylton P. Sousa/Livro/Xadrez}}' ) | |||
return getListOfChaptersFromText( colPageText ) | |||
end | |||
return p | |||