Mikubot-2/otouto/plugins/urbandictionary.lua

local urbandictionary = {}

local HTTP = require('socket.http')
local URL = require('socket.url')
local JSON = require('dkjson')
local utilities = require('otouto.utilities')

urbandictionary.command = 'urbandictionary <query>'
urbandictionary.base_url = 'http://api.urbandictionary.com/v0/define?term='

function urbandictionary:init(config)
	urbandictionary.triggers = utilities.triggers(self.info.username, config.cmd_pat)
		:t('urbandictionary', true):t('ud', true):t('urban', true).table
	urbandictionary.doc = [[
/urbandictionary <query>
Returns a definition from Urban Dictionary.
Aliases: /ud, /urban
	]]
	urbandictionary.doc = urbandictionary.doc:gsub('/', config.cmd_pat)
end

function urbandictionary:action(msg, config)
	local input = utilities.input_from_msg(msg)
	if not input then
		utilities.send_reply(self, msg, urbandictionary.doc, true)
		return
	end

	local url = urbandictionary.base_url .. URL.escape(input)
	local jstr, code = HTTP.request(url)
	if code ~= 200 then
		utilities.send_reply(self, msg, config.errors.connection)
		return
	end

	local data = JSON.decode(jstr)
	local output
	if data.result_type == 'no_results' then
		output = config.errors.results
	else
		output = string.format('*%s*\n\n%s\n\n_%s_',
			data.list[1].word:gsub('*', '*\\**'),
			utilities.trim(utilities.md_escape(data.list[1].definition)),
			utilities.trim((data.list[1].example or '')):gsub('_', '_\\__')
		)
	end
	utilities.send_reply(self, msg, output, true)
end

return urbandictionary