Module:Cl-act

Documentation icon Module documentation[create]
local p={}
	local function style_internal(layout, adjust, leading, indent, style, frame)
		local ret='style="margin-left:';
		local margin
		if (p.layout(frame) == 'left')
		then
			if (adjust ~= nil and adjust ~= '')
			then
				margin=(adjust + 8.1);
			else
				margin=8.1;
			end
		else
			if (adjust ~= nil and adjust ~= '')
			then
				margin=adjust;
			else
				margin=0;
			end
		end
		ret = ret .. margin .. 'em;padding-left:';
		local tab
		if (indent ~= nil and indent ~= '')
		then
			tab=indent;
		else
			tab=0;
		end
		ret = ret .. tab .. 'em;padding-bottom:';
		local pad
		if (leading ~= nil and leading ~= '')
		then
			pad=leading;
		else
			pad=0.5;
		end
		ret = ret .. pad .. 'em;'
		if (p.layout(frame) == 'right')
		then
			ret = ret .. 'margin-right:8.1em;'
		end
		if (style ~= nil)
		then
			ret = ret .. style;
		end
		ret = ret .. '"'
		return ret;
	end
	local function namespace(frame)
		return mw.site.namespaces[mw.title.getCurrentTitle().namespace].name;
	end
	local function begin_internal(split, frame, args)
		local div;
		local title;
		local ret='';
		if (split == nil or split == '')
		then
			div=true
			title=true
		elseif (split == "table")
		then
			div=false;
			title=false;
		elseif (split == "heading")
		then
			div=true;
			title=true;
			args['style'] = "clear:both;";
		elseif (split == "footer" and namespace(frame) ~= "Page")
		then
			div=false;
			title=false;
		elseif(split == "end")
		then
			div=false;
			title=false;
		elseif (split == "cont")
		then
			if (namespace(frame) == "Page")
			then
				div=true;
			else
				div=false;
			end
			title=false;
		else
			div=true;
			title=true;
		end
		if(div)
		then
			ret=frame:extensionTag( 'templatestyles', '', { src = 'Template:Cl-act-p/styles.css' } );
			ret =ret .. "<div " .. "class='__cl-act-p'" .. p.style(frame) .. '>';
			if(title)
			then
				ret = ret .. p.h_internal(frame)
			end		
		end
		return ret .. '\n';
	end
	local function p_s_internal(split, frame, args)
		if (split == "cont" or split == "end")
		then
			args['split'] = "start";
		elseif (split == "footer")
		then
			if (namespace(frame) == "Page")
			then
				args['split'] = "start";
			else
				return "";
			end
		elseif (split == nil or split == "")
		then
			args['split'] = "start";
		end
		return p.begin(frame) .. p.body(frame);
	end
	local function p_e_internal(split, frame, args)
		if (split == "footer")
		then
			if (namespace(frame) == "Page")
			then
				args['split'] = "start";
			else
				return "";
			end
		elseif (split == "start" or split == "cont")
		then
			args['split'] = "end";
		elseif (split == nil or split == "")
		then
			args['split'] = "end";
		end
		return p.body(frame) .. p.finish(frame);
	end
	local function get_args(frame)
		local args = {}
		if (frame:getParent():getParent() ~= nil)
		then
			for a,b in pairs(frame:getParent():getParent().args)
			do
				args[a] = (b ~= nil) and b;
			end
		end
		for a,b in pairs(frame:getParent().args)
		do
			args[a] = (b ~= nil) and b;
		end
		for a,b in pairs(frame.args)
		do
			args[a] = (b ~= nil) and b;
		end
		frame.args = args;
		return frame.args;
	end
	local function finish_internal(split, frame, args)
		if (split == nil or split == '')
		then
			return '\n'.."</div>";
		elseif (split == "table")
		then
			return "";
		elseif (split == "heading")
		then
			return '\n'.."</div>";
		elseif (split == "footer" and namespace(frame) ~= "Page")
		then
			return "";
		elseif (split == "cont" or split == "start")
		then
			return "";
		else
			return '\n'.."</div>"
		end
	end
function p.style(frame)
	local args = get_args(frame);
	return style_internal(args['layout'], args['adjust'], args['leading'], args['indent'], args['style'], frame);
end
function p.layout(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-layout', args=args};
end
function p.p(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-p', args=args};
end
function p.begin(frame)
	local args = get_args(frame);
	
	if args['1'] then 
		args['text']=args['1'];
		args['1']=nil;
	end
	return begin_internal(args['split'], frame, args);
end
function p.h_internal(frame)
			--[[  Not entirly sure this works as intended yet.
			
			It reprocess certain arguments so that un-named paramaters are 
			correctly passed into cl-act-h.
			
			Previously  cl-act-h was passed the frame args directly which meant 
			that 1= which meant different things in the two different templates 
			{{cl-act-p}} vs {{cl-act-h}} was not correctly handled.
			
			Here the arguments are sperated out into a seperate set of argument calls 
			so that the right values are passed on.
	]]--
	
	local args = get_args(frame);
    local args2 = {}
	args2['title']=args['title']
	args2['anchor']=args['anchor']
	args2['layout']=args['layout']
	return frame:expandTemplate{title='cl-act-h', args=args2};
end

function p.h(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-h', args=args};
end



function p.body(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-body', args=args};
end
function p.finish(frame)
	local args = get_args(frame);
	return finish_internal(args['split'], frame, args);
end
function p.p_s(frame)
	local args = get_args(frame);
	return p_s_internal(args['split'], frame, args);
end
function p.p_e(frame)
	local args = get_args(frame);
	return p_e_internal(args['split'], frame, args);
end
function p.p_c(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-p/c', args=args};
end
function p.p_a(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-p/a', args=args};
end
function p.h_1(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-h/1', args=args};
end
function p.h_2(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-h/2', args=args};
end
function p.h_1_style(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-h/1-style', args=args};
end
function p.h_1_body(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-h/1-body', args=args};
end
function p.preamb(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-preamb', args=args};
end
function p.preamb_s(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-preamb/s', args=args};
end
function p.preamb_c(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-preamb/c', args=args};
end
function p.preamb_e(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-preamb/e', args=args};
end
function p.p_x(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-p/x', args=args};
end
function p.p_x_s(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-p/x/s', args=args};
end
function p.p_x_c(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-p/x/c', args=args};
end
function p.p_x_e(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-p/x/e', args=args};
end
function p.p_indexstyle(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-p/indexstyle', args=args};
end
function p.p_1(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-p/1', args=args};
end
function p.p_1_2(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-p/1-2', args=args};
end
function p.p_2(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-p/2', args=args};
end
function p.p_2a(frame)
	local args = get_args(frame);
	if (args['index-style'] ~= nil and args['index-style'] ~= '')
		then
		args['index-style'] = "lower-alphab";
	end
	return p.p_2(frame);
end
function p.p_3(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-p/3', args=args};
end
function p.p_4(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-p/4', args=args};
end
function p.p_1_s(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-p/1/s', args=args};
end
function p.p_1_c(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-p/1/c', args=args};
end
function p.p_1_e(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-p/1/e', args=args};
end
function p.p_1_2_s(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-p/1-2/s', args=args};
end
function p.p_1_2_c(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-p/1-2/c', args=args};
end
function p.p_1_2_e(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-p/1-2/e', args=args};
end
function p.p_2_s(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-p/2/s', args=args};
end
function p.p_2_c(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-p/2/c', args=args};
end
function p.p_2_e(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-p/2/e', args=args};
end
function p.p_3_s(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-p/3/s', args=args};
end
function p.p_3_c(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-p/3/c', args=args};
end
function p.p_3_e(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-p/3/e', args=args};
end
function p.p_4_s(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-p/4/s', args=args};
end
function p.p_4_c(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-p/4/c', args=args};
end
function p.p_4_e(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-p/4/e', args=args};
end
function p.p_2a_s(frame)
	local args = get_args(frame);
		if (args['index-style'] ~= nil and args['index-style'] ~= '')
		then
		args['index-style'] = "lower-alphab";
	end
	return p.p_2_s(frame);
end
function p.p_2a_c(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-p/2a/c', args=args};
end
function p.p_2a_e(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-p/2a/e', args=args};
end
function p.t(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-t', args=args};
end
function p.cl_act(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act', args=args};
end
function p.s(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-s', args=args};
end
function p.s1(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-s1', args=args};
end
function p.s1_2(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-s1/2', args=args};
end
function p.s2(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-s2', args=args};
end
function p.s3(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-s3', args=args};
end
function p.s4(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-s4', args=args};
end
function p.h1(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-h1', args=args};
end
function p.h2(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-h2', args=args};
end
function p.pre(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-pre', args=args};
end
function p.pre_nt(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-pre-nt', args=args};
end
function p.t_int(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-t-int', args=args};
end
function p.t_int1(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-t-int1', args=args};
end
function p.missing(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-missing', args=args};
end
function p.amend(frame)
	local args = get_args(frame);
	return frame:expandTemplate{title='cl-act-amend', args=args};
end
function p.call(func, args)
	return func(mw.getCurrentFrame():newChild{ title = "Module:Cl-act", args = args });
end
return p;