Fix and improvement in shout

otouto/plugins/shout.lua

@@ -24,26 +24,30 @@ function shout:action(msg)
 		end
 	end
 	input = utilities.trim(input)
-
-	if input:len() > 20 then
-		input = input:sub(1,20)
-	end
-
 	input = input:upper()
+
 	local output = ''
 	local inc = 0
-	for match in input:gmatch('([%z\1-\127\194-\244][\128-\191]*)') do
+	local ilen = 0
+	for match in input:gmatch(utilities.char.utf_8) do
+		if ilen < 18 then
+			ilen = ilen + 1
 			output = output .. match .. ' '
 		end
+	end
+	ilen = 0
 	output = output .. '\n'
-	for match in input:sub(2):gmatch('([%z\1-\127\194-\244][\128-\191]*)') do
+	for match in input:sub(2):gmatch(utilities.char.utf_8) do
+		if ilen < 18 then
 			local spacing = ''
 			for _ = 1, inc do
 				spacing = spacing .. '  '
 			end
 			inc = inc + 1
+			ilen = ilen + 1
 			output = output .. match .. ' ' .. spacing .. match .. '\n'
 		end
+	end
 	output = '```\n' .. utilities.trim(output) .. '\n```'
 	utilities.send_message(self, msg.chat.id, output, true, false, true)
 

otouto/utilities.lua

@@ -370,7 +370,8 @@ utilities.char = {
 	arabic = '[\216-\219][\128-\191]',
 	rtl_override = '‮',
 	rtl_mark = '‏',
-	em_dash = '—'
+	em_dash = '—',
+	utf_8 = '([%z\1-\127\194-\244][\128-\191]*)',
 }
 
 return utilities