Mikubot-2/otouto/plugins/patterns.lua

local utilities = require('otouto.utilities')

local patterns = {}

patterns.command = 's/<pattern>/<substitution>'
patterns.help_word = 'sed'
patterns.doc = [[
s/<pattern>/<substitution>
Replace all matches for the given pattern.
Uses Lua patterns.
    ]]

function patterns:init(config)
    patterns.triggers = { config.cmd_pat .. '?s/.-/.-$' }
end

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('Did you mean:\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(msg, 'Malformed pattern!')
    else
        output = utilities.trim(output:sub(1, 4000))
        output = utilities.style.enquote('Did you mean', output)
        utilities.send_reply(msg.reply_to_message, output, true)
    end
end

return patterns