KVIrc Première lettre en majuscule

alias(WindowName)
{
	switch ($window.type($0))
	{
		case (channel)
		{ return $chan.name($0);break;}
		case (query)
		{return $str.word(0,$window.caption($0));break;}
	}
}
alias(UpCaseFirst)
{
	%word = $0;
	%w_first = $str.left($str.strip($0),1);
	%w_rest = $str.mid($str.strip($0),1,$str.len($str.strip($0)));
	return $str.append($str.upcase(%w_first),%w_rest);
}
event(OnTextInput,uppercase)
{
	%splitted_str = $str.split(" ",$0);
	%splitted_str[0] = $UpCaseFirst(%splitted_str[0]);
	msg $WindowName($window) $str.join(" ",%splitted_str);
	halt;
}