Module:Cl-act

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 .. "';			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'.." "; elseif (split == "table") then return ""; elseif (split == "heading") then return '\n'.." "; elseif (split == "footer" and namespace(frame) ~= "Page") then return ""; elseif (split == "cont" or split == "start") then return ""; else return '\n'.." " 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 			 vs  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;