Module:RemoveMiddleColumn - Revision history

imported>Ziebster at 14:53, 30 December 2025

2025-12-30T14:53:37Z

← Older revision		Revision as of 14:53, 30 December 2025
Line 4:		Line 4:
	local text = frame.args[1] or ""		local text = frame.args[1] or ""
	if text == "" then return "" end		if text == "" then return "" end

	local lines = {}		local lines = {}
	for line in text:gmatch("([^\n]*)\n?") do		for line in text:gmatch("([^\n]*)\n?") do
	table.insert(lines, line)		table.insert(lines, line)
	end		end

	local result = {}		local result = {}
	local ~~in_table~~ = ~~false~~		local i = 1
			while i <= #lines do
	~~for _, line in ipairs(~~lines) do		local trimmed = lines[i]:match("^%s(.-)%s$") or ""
	local trimmed = ~~line~~:match("^%s(.-)%s$") or ""

	if trimmed:match("^<section") or trimmed:match("^</section") then		if trimmed:match("^<section") or trimmed:match("^</section") then
	table.insert(result, ~~line~~)		table.insert(result, lines[i])
	elseif trimmed:match("^%{%\|") then		elseif trimmed:match("^%{%\|") then
	~~in_table = true~~		table.insert(result, lines[i])
	table.insert(result, ~~line~~)
	elseif trimmed:match("^\|%}") then		elseif trimmed:match("^\|%}") then
	~~in_table = false~~		table.insert(result, lines[i])
	table.insert(result, ~~line~~)		elseif trimmed:match("^\|%-") then
	elseif ~~in_table then~~		table.insert(result, lines[i])
	if trimmed == "\|-" then		elseif trimmed:match("^!") then
	table.insert(result, ~~"\|-"~~)		local headers = {}
	elseif trimmed:match("^!") then		while i <= #lines and lines[i]:match("^%s*!") do
	~~-- Header row~~		table.insert(headers, lines[i])
	local ~~cells~~ = {}		i = i + 1
	~~local temp = line~~		end
	while ~~temp:find("!!") do~~		i = i - 1
	~~local pre, post~~ = ~~temp:match("^(.-)!!(.*)$")~~		if #headers == 3 then
	~~local cell = pre~~:match("^%s!~~%s'''(.)'''%s$~~") ~~or pre:match("^%s!%s(.-)%s*$") or ""~~		table.insert(result, headers[1])
	table.insert(~~cells~~, ~~cell~~)		table.insert(result, headers[3])
	~~temp~~ = ~~post~~		end
	end		elseif trimmed:match("^\|") and not trimmed:match("^\|%-") and not trimmed:match("^\|%}") then
	~~local cell~~ = ~~temp:match("^%s!%s'''(.)'''%s$") or temp:match("^%s!%s(.~~-~~)%s*$") or ""~~		local cells = {}
	~~table.insert(cells, cell)~~		while i <= #lines and lines[i]:match("^%s\|") and not lines[i]:match("^%s\|%-") and not lines[i]:match("^%s*\|%}") do
			table.insert(cells, lines[i])
	~~local new_cells = {}~~		i = i + 1
	~~for i =~~ 1~~, #cells do~~		end
	if ~~i ~~~= 2 then		i = i - 1
	table.insert(~~new_cells~~, ~~"! '''" .. cells~~[i] ~~.. "'''"~~)		if #cells == 3 then
	~~end~~		table.insert(result, cells[1])
	~~end~~		table.insert(result, cells[3])
	~~if #new_cells > 0 then~~
	table.insert(result, ~~table.concat(new_cells, " !! ")~~)
	end
	elseif trimmed:match("^\|") ~~then~~
	~~-- Data row~~
	~~local cells = {}~~
	~~local temp = line~~
	~~while temp~~:~~find~~("\|\|") do
	~~local pre, post = temp~~:match("^~~(.-)~~\|~~\|(.*)$~~")
	local ~~cell~~ = ~~pre~~:match("^%s\|~~%s(.-)%s*$~~") ~~or ""~~
	~~table.insert(cells, cell)~~
	~~temp = post~~
	~~end~~
	~~local cell = temp~~:match("^%s\|%~~s(.~~-)%s*$") ~~or ""~~
	table.insert(cells, ~~cell~~)

	~~local new_cells~~ = {}
	~~for~~ i = 1~~, #cells do~~
	if i ~= ~~2 then~~
	~~table.insert(new_cells, "\| " .. cells[~~i])
	~~end~~
	~~end~~
	if #~~new_cells >~~= 2 then
	table.insert(result, ~~table.concat(new_cells, " \|\| ")~~)
	~~end~~
	~~else~~
	table.insert(result, ~~line~~)
	end		end
	else		else
	table.insert(result, ~~line~~)		table.insert(result, lines[i])
	end		end
			i = i + 1
	end		end

	return table.concat(result, "\n")		return table.concat(result, "\n")
	end		end

	return p		return p

imported>Ziebster at 14:51, 30 December 2025

2025-12-30T14:51:19Z

← Older revision		Revision as of 14:51, 30 December 2025
Line 18:		Line 18:
	if trimmed:match("^<section") or trimmed:match("^</section") then		if trimmed:match("^<section") or trimmed:match("^</section") then
	table.insert(result, line)		table.insert(result, line)

	elseif trimmed:match("^%{%\|") then		elseif trimmed:match("^%{%\|") then
	in_table = true		in_table = true
	table.insert(result, line)		table.insert(result, line)

	elseif trimmed:match("^\|%}") then		elseif trimmed:match("^\|%}") then
	in_table = false		in_table = false
	table.insert(result, line)		table.insert(result, line)

	elseif in_table then		elseif in_table then
	if trimmed~~:match(~~"^\|%-") then		if trimmed == "\|-" then
	table.insert(result, ~~line~~)		table.insert(result, "\|-")

	elseif trimmed:match("^!") then		elseif trimmed:match("^!") then
	-- Header ~~line - skip 2nd column~~		-- Header row
	local cells = {}		local cells = {}
	local ~~remaining~~ = line		local temp = line
	while ~~remaining~~:find("!!") do		while temp:find("!!") do
	local pre, post = ~~remaining~~:match("^(.-)!!(.*)$")		local pre, post = temp:match("^(.-)!!(.*)$")
	local cell = pre:match("^%s!%s(.-)$") or ""		local cell = pre:match("^%s!%s'''(.)'''%s$") or pre:match("^%s!%s(.-)%s*$") or ""
	table.insert(cells, cell)		table.insert(cells, cell)
	~~remaining~~ = ~~"!!" ..~~ post		temp = post
	end		end
	~~-- last cell~~		local cell = temp:match("^%s!%s'''(.)'''%s$") or temp:match("^%s!%s(.-)%s*$") or ""
	local cell = ~~remaining~~:match("^%s!%s(.-)$") or ""
	table.insert(cells, cell)		table.insert(cells, cell)

Line 48:		Line 43:
	for i = 1, #cells do		for i = 1, #cells do
	if i ~= 2 then		if i ~= 2 then
	table.insert(new_cells, "!'''" .. cells[i])		table.insert(new_cells, "! '''" .. cells[i] .. "'''")
	end		end
	end		end
	if #new_cells > 0 then		if #new_cells > 0 then
	table.insert(result, table.concat(new_cells, " !!~~'''~~ "))		table.insert(result, table.concat(new_cells, " !! "))
	end		end

	elseif trimmed:match("^\|") then		elseif trimmed:match("^\|") then
	-- Data row ~~- skip 2nd column~~		-- Data row
	local cells = {}		local cells = {}
	local ~~remaining~~ = line		local temp = line
	while ~~remaining~~:find("\|\|") do		while temp:find("\|\|") do
	local pre, post = ~~remaining~~:match("^(.-)\|\|(.*)$")		local pre, post = temp:match("^(.-)\|\|(.*)$")
	local cell = pre:match("^%s\|%s(.-)$") or ""		local cell = pre:match("^%s\|%s(.-)%s*$") or ""
	table.insert(cells, cell)		table.insert(cells, cell)
	~~remaining~~ = ~~"\|\|" ..~~ post		temp = post
	end		end
	~~-- last cell~~		local cell = temp:match("^%s\|%s(.-)%s*$") or ""
	local cell = ~~remaining~~:match("^%s\|%s(.-)$") or ""
	table.insert(cells, cell)		table.insert(cells, cell)

Line 72:		Line 65:
	for i = 1, #cells do		for i = 1, #cells do
	if i ~= 2 then		if i ~= 2 then
	table.insert(new_cells, "\|" .. cells[i])		table.insert(new_cells, "\| " .. cells[i])
	end		end
	end		end
Line 78:		Line 71:
	table.insert(result, table.concat(new_cells, " \|\| "))		table.insert(result, table.concat(new_cells, " \|\| "))
	end		end

	else		else
	table.insert(result, line)		table.insert(result, line)

imported>Ziebster at 14:46, 30 December 2025

2025-12-30T14:46:13Z

@@ Line 1: / Line 1: @@
-local p={}
+local p = {}
 function p.slim(frame)
- local text=frame.args[1]or""
+    local text = frame.args[1] or ""
- if text==""then return""end
+    if text == "" then return "" end
- local lines={}
- for line in text:gmatch("([^\n])\n?")do
+    local lines = {}
-  table.insert(lines,line)
+    for line in text:gmatch("([^\n]*)\n?") do
- end
+        table.insert(lines, line)
      end
-   else
-    table.insert(result,line)
+    local result = {}
-   end
+    local in_table = false
-  else
-   table.insert(result,line)
+    for _, line in ipairs(lines) do
-  end
+        local trimmed = line:match("^%s*(.-)%s*$") or ""
- end
- return table.concat(result,"\n")
+        if trimmed:match("^<section") or trimmed:match("^</section") then
 end
 return p

imported>Ziebster at 14:43, 30 December 2025

2025-12-30T14:43:11Z

← Older revision		Revision as of 14:43, 30 December 2025
Line 1:		Line 1:
	local p={}		local p={}

	function p.slim(f)		function p.slim(frame)
	local t=f.args[1]or""		local text=frame.args[1]or""
	if t==""then return""end		if text==""then return""end
	local l={}		local lines={}
	for s in t:gmatch("(.-)\n?")do table.insert(l,s)end		for line in text:gmatch("([^\n])\n?")do
	local r={}		table.insert(lines,line)
	local ~~intable~~=false		end
	for _,~~orig~~ in ipairs(l)do		local result={}
	if ~~orig~~:match("^<section")or ~~orig~~:match("^</section")then ~~r[#r+1]=orig~~		local col_count=0
	elseif ~~orig~~:match("^%s*%{%\|")then ~~intable~~=true ~~r[#r+1]~~=~~orig~~		local in_table=false
	elseif ~~orig~~:match("^%s*\|}%}")then ~~intable~~=false ~~r[#r+1]~~=~~orig~~		local is_header=false
	elseif ~~intable~~ then		for _,line in ipairs(lines)do
	if ~~orig~~:match("^%~~s*!")then~~		local trimmed=line:match("^%s(.-)%s*$")or""
	~~local heads={}~~		if trimmed:match("^<section")or trimmed:match("^</section")then
	~~for head in orig:gmatch("!%s(.-)%s!!")do heads[#heads+1]=head end~~		table.insert(result,line)
	~~local last=orig:match("!!%s(.~~-~~)%s$~~")~~or""~~		elseif trimmed:match("^%{%\|")then
	~~if heads[1]~~then ~~heads[#heads+1]=last end~~		in_table=true
	~~local newh~~={}		is_header=true
	~~for i~~=~~1,#heads do if i~=2 then newh[#newh+1]="!'''"..heads[i] end end~~		col_count=0
	~~if#newh>0 then r[#r+1]=~~table.~~concat~~(~~newh~~,~~" !!''' "~~)~~end~~		table.insert(result,line)
	elseif ~~orig~~:match("^~~%s*\|%-~~")~~then r[#r+1]="\|-"~~		elseif trimmed:match("^\|%}")then
	~~elseif orig~~:match("^%s*\|")then		in_table=false
	~~local cells~~={}		is_header=false
	~~local temp~~=~~orig~~		col_count=0
	~~while temp:match("\|\|")do~~		table.insert(result,line)
	~~local pos=temp:find~~(~~"\|\|")~~		elseif in_table then
	~~local cell=temp:sub(1~~,~~pos-1):match("\|%s(.-)%s$")or""~~		if trimmed:match("^\|%-")then
	~~cells[#cells+1]=cell~~		is_header=false
	~~temp=temp:sub(pos+2~~)		col_count=0
			table.insert(result,line)
			elseif(is_header and trimmed:match("^!"))or(not is_header and trimmed:match("^\|"))then
			col_count=col_count+1
			if col_count~=2 then
			table.insert(result,line)
	end		end
	~~local lastcell=temp:match("\|%s(.-)%s$")or""~~		else
	~~cells[#cells+1]=lastcell~~		table.insert(result,line)
	~~local newc={}~~
	~~for i=1,#cells do if i~=2 then newc[#newc+1]="\|"..cells[i] end end~~
	~~if#newc>=2 then r[#r+1]=~~table.~~concat~~(~~newc~~,~~" \|\| "~~)~~end~~
	~~else r[#r+1]=orig~~
	end		end
	else ~~r[#r+1]=orig~~		else
			table.insert(result,line)
	end		end
	end		end
	return table.concat(r,"\n")		return table.concat(result,"\n")
	end		end

	return p		return p

imported>Ziebster at 14:36, 30 December 2025

2025-12-30T14:36:11Z

← Older revision		Revision as of 14:36, 30 December 2025
Line 5:		Line 5:
	if t==""then return""end		if t==""then return""end
	local l={}		local l={}
	for s in t:gmatch("([^\n]*)\n?")do table.insert(l,s)end		for s in t:gmatch("(.-)\n?")do table.insert(l,s)end
	local r={}		local r={}
	for _,s in ipairs(l)do		local intable=false
	~~local u=s~~:match("^%s(~~.-)%s$~~")		for _,orig in ipairs(l)do
	~~if u~~:match("^%{%\|")~~or u~~:match("^\|%}")then ~~table.insert(~~r~~,s)~~		if orig:match("^<section")or orig:match("^</section")then r[#r+1]=orig
	elseif u:match("^!")then		elseif orig:match("^%s*%{%\|")then intable=true r[#r+1]=orig
	local h={}		elseif orig:match("^%s*\|}%}")then intable=false r[#r+1]=orig
	~~local i=0~~		elseif intable then
	for v in u:gmatch("!%s*([^!~~\|]+~~)")do i=i+1;if i~=2 then ~~table.insert(h,~~"!"..~~v:gsub("%s+$",""))~~end end		if orig:match("^%s*!")then
	if#h>0 then ~~table.insert(~~r~~," "..~~table.concat(h," !! "))end		local heads={}
	elseif u:match("^\|%-")then ~~table.insert(~~r,"\|-")		for head in orig:gmatch("!%s(.-)%s!!")do heads[#heads+1]=head end
	elseif u:match("^\|")then		local last=orig:match("!!%s(.-)%s$")or""
	local c={}		if heads[1]then heads[#heads+1]=last end
	local i=0		local newh={}
	~~for v in u~~:~~gmatch~~("\|%s*([^\|]+)")do i=i+1;if i~=2 then ~~table.insert(c,~~"\|"..~~v:gsub("%s+$",""))~~end end		for i=1,#heads do if i~=2 then newh[#newh+1]="!'''"..heads[i] end end
	if#c>=2 then		if#newh>0 then r[#r+1]=table.concat(newh," !!''' ")end
	~~local b~~=table.concat(c," \|\| ")		elseif orig:match("^%s*\|%-")then r[#r+1]="\|-"
	b=~~b:gsub("^%s*\|\|","\|")~~		elseif orig:match("^%s*\|")then
	~~table.insert(r,b)~~		local cells={}
			local temp=orig
			while temp:match("\|\|")do
			local pos=temp:find("\|\|")
			local cell=temp:sub(1,pos-1):match("\|%s(.-)%s$")or""
			cells[#cells+1]=cell
			temp=temp:sub(pos+2)
			end
			local lastcell=temp:match("\|%s(.-)%s$")or""
			cells[#cells+1]=lastcell
			local newc={}
			for i=1,#cells do if i~=2 then newc[#newc+1]="\|"..cells[i] end end
			if#newc>=2 then r[#r+1]=table.concat(newc," \|\| ")end
			else r[#r+1]=orig
	end		end
			else r[#r+1]=orig
	end		end
	end		end

imported>Ziebster: Created page with "local p={} function p.slim(f) local t=f.args[1]or"" if t==""then return""end local l={} for s in t:gmatch("([^\n])\n?")do table.insert(l,s)end local r={} for _,s in ipairs(l)do local u=s:match("^%s(.-)%s$") if u:match("^%{%|")or u:match("^|%}")then table.insert(r,s) elseif u:match("^!")then local h={} local i=0 for v in u:gmatch("!%s([^!|]+)")do i=i+1;if i~=2 then table.insert(h,"!"..v:gsub("%s+$",""))end end if#h>0 then table.insert(r," "..t..."

2025-12-30T14:12:51Z

Created page with "local p={} function p.slim(f) local t=f.args[1]or"" if t==""then return""end local l={} for s in t:gmatch("([^\n]*)\n?")do table.insert(l,s)end local r={} for _,s in ipairs(l)do local u=s:match("^%s*(.-)%s*$") if u:match("^%{%|")or u:match("^|%}")then table.insert(r,s) elseif u:match("^!")then local h={} local i=0 for v in u:gmatch("!%s*([^!|]+)")do i=i+1;if i~=2 then table.insert(h,"!"..v:gsub("%s+$",""))end end if#h>0 then table.insert(r," "..t..."

New page

local p={}

function p.slim(f)
local t=f.args[1]or""
if t==""then return""end
local l={}
for s in t:gmatch("([^\n]*)\n?")do table.insert(l,s)end
local r={}
for _,s in ipairs(l)do
local u=s:match("^%s*(.-)%s*$")
if u:match("^%{%|")or u:match("^|%}")then table.insert(r,s)
elseif u:match("^!")then
local h={}
local i=0
for v in u:gmatch("!%s*([^!|]+)")do i=i+1;if i~=2 then table.insert(h,"!"..v:gsub("%s+$",""))end end
if#h>0 then table.insert(r," "..table.concat(h," !! "))end
elseif u:match("^|%-")then table.insert(r,"|-")
elseif u:match("^|")then
local c={}
local i=0
for v in u:gmatch("|%s*([^|]+)")do i=i+1;if i~=2 then table.insert(c,"|"..v:gsub("%s+$",""))end end
if#c>=2 then
local b=table.concat(c," || ")
b=b:gsub("^%s*||","|")
table.insert(r,b)
end
end
end
return table.concat(r,"\n")
end

return p