Module:Forumlink - Revision history

Bobogoobo: better code for title capitalization

2025-11-25T03:54:02Z

better code for title capitalization

← Older revision		Revision as of 03:54, 25 November 2025
Line 78:		Line 78:
	sep = '-'		sep = '-'
	end		end

			local function makeSet(t)
			local set = {}
			for i, v in ipairs(t) do
			set[v] = true
			end
			return set
			end
			local keepLowercase = makeSet({'a', 'an', 'and', 'in', 'for', 'from', 'of', 'on', 'the', 'to'})
			local keepUppercase = makeSet({'npo', 'ns', 'cn', 'lt', 'nco'})
			local mixedCase = {
			['lts'] = 'LTs',
			['ncos'] = 'NCOs',
			}

	for part in mw.text.gsplit(slug, sep, true) do		for part in mw.text.gsplit(slug, sep, true) do
	local add = ''		local add = ''
	if part ~~== 'a' or part == 'an' or part == 'and' or part == 'in' or part == 'for' or part == 'of' or part == 'on' or part == 'the'~~ then		if keepLowercase[part] then
	--Words to keep lowercase, except if first		--Words to keep lowercase, except if first
	if result ~= '' then		if result ~= '' then
Line 87:		Line 102:
	add = lang:ucfirst(part)		add = lang:ucfirst(part)
	end		end
	elseif part ~~== 'npo' or part == 'ns' or part == 'cn'~~ then		elseif keepUppercase[part] then
	--Words to make all uppercase		--Words to make all uppercase
	add = mw.ustring.upper(part)		add = mw.ustring.upper(part)
			elseif mixedCase[part] then
			--Words to capitalize partially
			add = mixedCase[part]
	elseif result == '' and tonumber(part) then		elseif result == '' and tonumber(part) then
	--Do not include initial ID in parameter		--Do not include initial ID in parameter

Bobogoobo: more capitalizations

2025-11-10T10:39:36Z

more capitalizations

← Older revision		Revision as of 10:39, 10 November 2025
Line 80:		Line 80:
	for part in mw.text.gsplit(slug, sep, true) do		for part in mw.text.gsplit(slug, sep, true) do
	local add = ''		local add = ''
	if part == 'a' or part == 'an' or part == 'in' or part == 'of' or part == 'the' then		if part == 'a' or part == 'an' or part == 'and' or part == 'in' or part == 'for' or part == 'of' or part == 'on' or part == 'the' then
	--Words to keep lowercase, except if first		--Words to keep lowercase, except if first
	if result ~= '' then		if result ~= '' then
Line 87:		Line 87:
	add = lang:ucfirst(part)		add = lang:ucfirst(part)
	end		end
			elseif part == 'npo' or part == 'ns' or part == 'cn' then
			--Words to make all uppercase
			add = mw.ustring.upper(part)
	elseif result == '' and tonumber(part) then		elseif result == '' and tonumber(part) then
	--Do not include initial ID in parameter		--Do not include initial ID in parameter

Bobogoobo: Finally added intelligent default text for any parameters, and a couple new template parameters to go with it. I will not be heavily testing so please report any issues.

2025-11-10T10:26:10Z

Finally added intelligent default text for any parameters, and a couple new template parameters to go with it. I will not be heavily testing so please report any issues.

@@ Line 1: / Line 1: @@
 local err = require('Module:Error').call
 local p = {}
 local largs
@@ Line 6: / Line 7: @@
 --Can override using same key as in types
 local presets = {
-	npo = { domain = 'npowned.net', type = 'invision',
+	npo = { domain = 'npowned.net', type = 'invision', name='NPO forums',
 		forum = 'forums/forum/%s/', topic = 'forums/topic/%s/', default = 'forums/' },
-	cn = { domain = 'forums.cybernations.net', type='invision' },
+	cn = { domain = 'forums.cybernations.net', type='invision', name='Cyber Nations forums' },
-	ns = { domain = 'forum.nationstates.net', type='phpbb' },
+	ns = { domain = 'forum.nationstates.net', type='phpbb', name='NationStates forums' },
-	tsp = { domain = 'tspforums.xyz', type='mybb' },
+	tsp = { domain = 'tspforums.xyz', type='mybb', name='The South Pacific forums' },
-	tsparchive = { domain = 'archive.tspforums.xyz', type='mybbold' },
+	tsparchive = { domain = 'archive.tspforums.xyz', type='mybbold', name='The South Pacific forum archive' },
+}
@@ Line 63: / Line 64: @@
 		return largs[arg]
 	end
 end
@@ Line 125: / Line 166: @@
 function p.call(args)
 	largs = args-- lazy shortcut for local args
-	local ftype, typename, url, domain, display
+	local ftype, typename, url, domain
 	if argDefault('http') then
 		url = 'http://'
@@ Line 180: / Line 221: @@
 	end
-	display = argDefault(2)
+	local display = argDefault(2, '')
-	if not display then
+	local title = argDefault('title')
-		if component1 == 'default' then
+	local forumName = argDefault('forumname')
-			display = args[1] .. ' forums'
+	if display == '' then
 		else
-			display = args[component1]
+			if display ~= '' then
 		end
 	end

Bobogoobo: use error module

2025-10-21T11:16:23Z

use error module

← Older revision		Revision as of 11:16, 21 October 2025
Line 1:		Line 1:
			local err = require('Module:Error').call
	local p = {}		local p = {}
	local largs		local largs
Line 139:		Line 140:
	end		end
	if not domain then		if not domain then
	return '~~<span class="error">~~missing site address~~</span>~~'		return err('missing site address')
	end		end
	if not ftype then		if not ftype then
	return '~~<span class="error">~~missing forum type~~</span>~~'		return err('missing forum type')
	end		end
	ftype = mw.ustring.lower(ftype)		ftype = mw.ustring.lower(ftype)
Line 148:		Line 149:
	ftype = types[ftype]		ftype = types[ftype]
	if not ftype then		if not ftype then
	return '~~<span class="error">~~type is invalid or unrecognized~~</span>~~'		return err('type is invalid or unrecognized')
	end		end
	url = url .. domain .. '/'		url = url .. domain .. '/'
Line 163:		Line 164:
	end		end
	if component2 ~= '' and not argDefault(component2) then		if component2 ~= '' and not argDefault(component2) then
	return ~~'<span class="error">' ..~~ component2 .. ' is required to link to ' .. component1 ~~.. '</span>'~~		return err(component2 .. ' is required to link to ' .. component1)
	end		end
	if component1 == 'post' and component2 == 'topic' then		if component1 == 'post' and component2 == 'topic' then

Bobogoobo: news uses a category, guess it'll be manual

2020-08-04T23:50:54Z

news uses a category, guess it'll be manual

← Older revision		Revision as of 23:50, 4 August 2020
Line 20:		Line 20:
	announcement = 'announcement/%s/',		announcement = 'announcement/%s/',
	forum = 'forum/%s/',		forum = 'forum/%s/',
	news = 'news~~/community~~/%s/',		news = 'news/%s/',
	profile = 'profile/%s/',		profile = 'profile/%s/',
	topic = 'topic/%s/',		topic = 'topic/%s/',

Bobogoobo at 23:30, 4 August 2020

2020-08-04T23:30:02Z

← Older revision		Revision as of 23:30, 4 August 2020
Line 7:		Line 7:
	npo = { domain = 'npowned.net', type = 'invision',		npo = { domain = 'npowned.net', type = 'invision',
	forum = 'forums/forum/%s/', topic = 'forums/topic/%s/', default = 'forums/' },		forum = 'forums/forum/%s/', topic = 'forums/topic/%s/', default = 'forums/' },
	cn = { domain = '~~forum~~.cybernations.net', type='invision' },		cn = { domain = 'forums.cybernations.net', type='invision' },
	ns = { domain = 'forum.nationstates.net', type='phpbb' },		ns = { domain = 'forum.nationstates.net', type='phpbb' },
	tsp = { domain = 'tspforums.xyz', type='mybb' },		tsp = { domain = 'tspforums.xyz', type='mybb' },

Bobogoobo: wow, I can't read. Also added CN and override system to support npowned. More robust default text coming later

2020-07-16T02:58:25Z

wow, I can't read. Also added CN and override system to support npowned. More robust default text coming later

← Older revision		Revision as of 02:58, 16 July 2020
Line 3:		Line 3:

	--Keys must be lowercase		--Keys must be lowercase
			--Can override using same key as in types
	local presets = {		local presets = {
	npo = { domain = 'npowned.net', type = '~~ips~~' },		npo = { domain = 'npowned.net', type = 'invision',
			forum = 'forums/forum/%s/', topic = 'forums/topic/%s/', default = 'forums/' },
			cn = { domain = 'forum.cybernations.net', type='invision' },
	ns = { domain = 'forum.nationstates.net', type='phpbb' },		ns = { domain = 'forum.nationstates.net', type='phpbb' },
	tsp = { domain = 'tspforums.xyz', type='mybb' },		tsp = { domain = 'tspforums.xyz', type='mybb' },
Line 13:		Line 16:
	--If parameters are numerical only, set sep to ''		--If parameters are numerical only, set sep to ''
	local types = {		local types = {
	~~ips~~ = {		invision = {
	sep = '-',		sep = '-',
	announcement = 'announcement/%s/',		announcement = 'announcement/%s/',
	forum = '~~forums/~~forum/%s/',		forum = 'forum/%s/',
	news = 'news/community/%s/',		news = 'news/community/%s/',
	profile = 'profile/%s/',		profile = 'profile/%s/',
	topic = '~~forums/~~topic/%s/',		topic = 'topic/%s/',
	post = '?do=findComment&comment=%s',		post = '?do=findComment&comment=%s',
	~~default = 'forums/',~~
	~~postRequiresTopic = true~~
	},
	~~mybbold = {~~
	~~sep = '',~~
	~~forum = 'forumdisplay.php?fid=%s',~~
	~~profile = 'member.php?action=profile&uid=%s',~~
	~~topic = 'showthread.php?tid=%s',~~
	~~post = '&pid=%s#pid%s',~~
	default = 'index.php',		default = 'index.php',
	postRequiresTopic = true		postRequiresTopic = true
Line 39:		Line 33:
	topic = 'thread-%s.html',		topic = 'thread-%s.html',
	post = '-post-%s.html#pid%s',		post = '-post-%s.html#pid%s',
			default = 'index.php',
			postRequiresTopic = true
			},
			mybbold = {
			sep = '',
			forum = 'forumdisplay.php?fid=%s',
			profile = 'member.php?action=profile&uid=%s',
			topic = 'showthread.php?tid=%s',
			post = '&pid=%s#pid%s',
	default = 'index.php',		default = 'index.php',
	postRequiresTopic = true		postRequiresTopic = true
Line 61:		Line 64:
	end		end

	local function geturl(url, arg1, arg2, ftype, typename)		local function geturl(url, arg1, arg2, preset, ftype, typename)
			--Calculate overrides
			local part1, part2, sep
			if not preset then preset = {} end
			if preset[arg1] then
			part1 = preset[arg1]
			else
			part1 = ftype[arg1]
			end
			if arg2 ~= '' then
			if preset[arg2] then
			part2 = preset[arg2]
			else
			part2 = ftype[arg2]
			end
			end
			if preset.sep then
			sep = preset.sep
			else
			sep = ftype.sep
			end

	if arg1 == 'default' then		if arg1 == 'default' then
	return url .. ~~ftype[arg1]~~		return url .. part1
	end		end

	local text1, text2 = '', ''		local text1, text2 = '', ''
	text1 = mw.ustring.lower(largs[arg1])		text1 = mw.ustring.lower(largs[arg1])
Line 71:		Line 96:
	end		end

	if ~~ftype.~~sep ~= ' ' then		if sep ~= ' ' then
	--character class: %s is any space character		--character class: %s is any space character
	text1 = mw.ustring.gsub(text1, '%s', ~~ftype.~~sep)		text1 = mw.ustring.gsub(text1, '%s', sep)
	text2 = mw.ustring.gsub(text2, '%s', ~~ftype.~~sep)		text2 = mw.ustring.gsub(text2, '%s', sep)
	end		end

Line 81:		Line 106:
	-- if different params are needed the script will need a rewrite		-- if different params are needed the script will need a rewrite
	-- (Lua doesn't support specifying arg num)		-- (Lua doesn't support specifying arg num)
	url = url .. mw.ustring.format(~~ftype[arg1]~~, text1, text1)		url = url .. mw.ustring.format(part1, text1, text1)
	if text2 ~= '' then		if text2 ~= '' then
	url = url .. mw.ustring.format(~~ftype[arg2]~~, text2, text2)		url = url .. mw.ustring.format(part2, text2, text2)
	end		end

Line 119:		Line 144:
	return '<span class="error">missing forum type</span>'		return '<span class="error">missing forum type</span>'
	end		end
			ftype = mw.ustring.lower(ftype)
	typename = ftype		typename = ftype
	ftype = types[~~mw.ustring.lower(~~ftype)]		ftype = types[ftype]
	if not ftype then		if not ftype then
	return '<span class="error">type is invalid or unrecognized</span>'		return '<span class="error">type is invalid or unrecognized</span>'
Line 146:		Line 172:
	end		end
	end		end
	url = geturl(url, component1, component2, ftype, typename)
			url = geturl(url, component1, component2, preset, ftype, typename)

	if argDefault('numbered') then		if argDefault('numbered') then

Bobogoobo: added NS forum/phpbb, TSP/mybb, ability to link to post

2020-07-15T22:44:29Z

added NS forum/phpbb, TSP/mybb, ability to link to post

Show changes

Bobogoobo at 02:04, 11 July 2020

2020-07-11T02:04:04Z

← Older revision		Revision as of 02:04, 11 July 2020
Line 2:		Line 2:
	local largs		local largs

			--Keys must be lowercase
	local presets = {		local presets = {
	npo = { domain = 'npowned.net', type = 'ips' }		npo = { domain = 'npowned.net', type = 'ips' }
	}		}

			--Keys must be lowercase
	local types = {		local types = {
	ips = {		ips = {
Line 26:		Line 28:
	end		end

	local function ~~finalize~~(url, arg, ftype)		local function geturl(url, arg, ftype)
	~~paths = types[ftype]~~
	if arg == 'default' then		if arg == 'default' then
	return url .. ~~paths~~[arg]		return url .. ftype[arg]
	end		end
	local text = mw.ustring.lower(largs[arg])		local text = mw.ustring.lower(largs[arg])
	if ~~paths~~.sep ~= ' ' then		if ftype.sep ~= ' ' then
	text = mw.ustring.gsub(text, '%s', ~~paths~~.sep)		text = mw.ustring.gsub(text, '%s', ftype.sep)
	end		end
	return url .. mw.ustring.format(~~paths~~[arg], text)		return url .. mw.ustring.format(ftype[arg], text)
	end		end

Line 43:		Line 44:

	function p.call(args)		function p.call(args)
	largs = args		largs = args-- lazy shortcut for local args
	local ftype, url, domain		local ftype, url, domain, display
	if argDefault('http') then		if argDefault('http') then
	url = 'http://'		url = 'http://'
Line 52:		Line 53:
	local preset = presets[mw.ustring.lower(argDefault(1, ''))]		local preset = presets[mw.ustring.lower(argDefault(1, ''))]
	if not preset then		if not preset then
	domain = argDefault(~~'site', '{{{site}}}'~~)		domain = argDefault(1)
	ftype = argDefault('type')		ftype = argDefault('type')
	else		else
Line 58:		Line 59:
	ftype = preset.type		ftype = preset.type
	end		end
			if not domain then
			return '<span class="error">missing site address</span>'
			end
			if not ftype then
			return '<span class="error">missing forum type</span>'
			end
			ftype = types[mw.ustring.lower(ftype)]
	if not ftype then		if not ftype then
	return '<span class="error">~~missing~~ type</span>'		return '<span class="error">type is invalid or unrecognized</span>'
	end		end
	url = url .. domain .. '/'		url = url .. domain .. '/'

	~~if argDefault(~~'topic'~~) then~~		local params = {'topic', 'profile', 'forum', 'news', 'announcement'}
	~~return finalize(url~~, '~~topic~~', ~~ftype)~~		local component = 'default'
	~~elseif argDefault(~~'~~profile~~'~~) then~~		for i, para in ipairs(params) do
	~~return finalize~~(~~url, 'profile', ftype~~)		if argDefault(para) then
	~~elseif~~ argDefault(~~'forum'~~) then		component = para
	~~return finalize~~(url, ~~'forum'~~, ftype)		break
	~~elseif~~ argDefault('~~news~~') then		end
	return ~~finalize(~~url, '~~news~~'~~, ftype)~~		end
	~~elseif~~ argDefault('~~announcement~~') then		url = geturl(url, component, ftype)
	~~return finalize(url,~~ '~~announcement~~'~~, ftype)~~
	else		if argDefault('numbered') then
	~~return finalize(url, 'default', ftype)~~		return '[' .. url .. ']'
			end

			display = argDefault(2)
			if not display then
			if component == 'default' then
			display = args[1] .. ' forums'
			else
			display = args[component]
			end
	end		end
			return '[' .. url .. ' ' .. display .. ']'
	end		end

	return p		return p

Bobogoobo: create

2020-07-11T01:14:20Z

create

New page

local p = {}
local largs

local presets = {
npo = { domain = 'npowned.net', type = 'ips' }
}

local types = {
ips = {
sep = '-',
announcement = 'announcement/%s/',
forum = 'forums/forum/%s/',
news = 'news/community/%s/',
profile = 'profile/%s/',
topic = 'forums/topic/%s/',
default = 'forums/'
}
}

local function argDefault(arg, default)
if mw.text.trim(largs[arg] or '') == '' then
return default
else
return largs[arg]
end
end

local function finalize(url, arg, ftype)
paths = types[ftype]
if arg == 'default' then
return url .. paths[arg]
end
local text = mw.ustring.lower(largs[arg])
if paths.sep ~= ' ' then
text = mw.ustring.gsub(text, '%s', paths.sep)
end
return url .. mw.ustring.format(paths[arg], text)
end

function p.main(frame)
return p.call(frame:getParent().args)
end

function p.call(args)
largs = args
local ftype, url, domain
if argDefault('http') then
url = 'http://'
else
url = 'https://'
end
local preset = presets[mw.ustring.lower(argDefault(1, ''))]
if not preset then
domain = argDefault('site', '{{{site}}}')
ftype = argDefault('type')
else
domain = preset.domain
ftype = preset.type
end
if not ftype then
return '<span class="error">missing type</span>'
end
url = url .. domain .. '/'

if argDefault('topic') then
return finalize(url, 'topic', ftype)
elseif argDefault('profile') then
return finalize(url, 'profile', ftype)
elseif argDefault('forum') then
return finalize(url, 'forum', ftype)
elseif argDefault('news') then
return finalize(url, 'news', ftype)
elseif argDefault('announcement') then
return finalize(url, 'announcement', ftype)
else
return finalize(url, 'default', ftype)
end
end

return p