From e819ba4ded53eb72a1abfb820117b286747226e1 Mon Sep 17 00:00:00 2001
From: Andreas Bielawski <brawl98@outlook.com>
Date: Sat, 23 Jul 2016 13:24:43 +0200
Subject: [PATCH] =?UTF-8?q?Patterns-Plugin=20von=20Otouto=20hinzugef=C3=BC?=
 =?UTF-8?q?gt?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 otouto/plugins/patterns.lua | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 otouto/plugins/patterns.lua

diff --git a/otouto/plugins/patterns.lua b/otouto/plugins/patterns.lua
new file mode 100644
index 0000000..59fb646
--- /dev/null
+++ b/otouto/plugins/patterns.lua
@@ -0,0 +1,33 @@
+local patterns = {}
+
+local utilities = require('otouto.utilities')
+
+patterns.triggers = {
+	'^/?s/.-/.-$'
+}
+
+function patterns:action(msg)
+	if not msg.reply_to_message then return true end
+	local output = msg.reply_to_message.text
+	if msg.reply_to_message.from.id == self.info.id then
+		output = output:gsub('Du meintest wohl:\n"', '')
+		output = output:gsub('"$', '')
+	end
+	local m1, m2 = msg.text:match('^/?s/(.-)/(.-)/?$')
+	if not m2 then return true end
+	local res
+	res, output = pcall(
+		function()
+			return output:gsub(m1, m2)
+		end
+	)
+	if res == false then
+		utilities.send_reply(self, msg, 'Falsches Pattern!')
+	else
+		output = output:sub(1, 4000)
+		output = 'Du meintest wohl:\n"' .. output .. '"'
+		utilities.send_reply(self, msg.reply_to_message, output)
+	end
+end
+
+return patterns