Module:Sandbox/Andreyyshore/Vertical header

local p = {}

function p.cell(frame)
	local text = frame.args.text
	local sortPadding = frame.args.sortPadding
	local vertAlign = frame.args.vertAlign
	local maxWidth = frame.args.maxWidth
	local noBold = frame.args.noBold
	local wikiText = "class = \"nowrap"
	local rows = 1
	local sortPaddingLen = #sortPadding
	local width = 0
	if maxWidth ~= "" then
		width = maxWidth
	else
		for eachMatch in text:gmatch("<br>") do
			rows = rows + 1
			width = rows * 0.875
		end
	end
	if sortPaddingLen == 0 then
		wikiText = wikiText + " unsortable"
	end
	wikiText = wikiText + "\" style=\"line-height:99%;vertical-align:" + vertAlign + ";padding:"
	if sortPaddingLen == 0 then
		wikiText = wikiText + "21px"
	else
		wikiText = wikiText + ".4em"
	end
	wikiText = wikiText + " .4em .2em;background-position:50% .4em;"
	wikiText = wikiText + "max-width:" + width + "em;width:" + width + "em;overflow-x:hidden\""
	wikiText = wikiText + " | <div style=\"{{writing-mode|v1}}{{Transform-rotate|180}}padding-left:1px;text-align:"
	if vertAlign == "top" then
		wikiText = wikiText + "right"
	elseif vertAlign == "middle" then
		wikiText = wikiText + "center"
	else
		wikiText = wikiText + "left"
	end
	wikiText = wikiText + ";{{{style|}}}\">"
	if noBold == "" then
		wikiText = wikiText + "{{{1|}}}"
	else
		wikiText = wikiText + "{{nobold|1={{{1|}}}}}"
	end
	wikiText = wikiText + "</div>"
	return wikiText
end

return p