This repository has been archived on 2021-04-24. You can view files and clone it, but cannot push or open issues or pull requests.
Mikubot-2/plugins/reddit.lua

68 lines
1.4 KiB
Lua
Raw Normal View History

local doc = [[
2015-07-08 09:38:04 +02:00
/reddit [r/subreddit | query]
Returns the four (if group) or eight (if private message) top posts for the given subreddit or query, or from the frontpage.
2015-07-03 00:15:52 +02:00
]]
local triggers = {
'^/reddit[@'..bot.username..']*',
'^/r[@'..bot.username..']*$',
'^/r[@'..bot.username..']* ',
'^/r/'
2015-07-03 00:15:52 +02:00
}
local action = function(msg)
2015-07-03 00:15:52 +02:00
msg.text_lower = msg.text_lower:gsub('/r/', '/r r/')
local input = msg.text_lower:input()
local url
2015-07-03 00:15:52 +02:00
local limit = 4
if msg.chat.id == msg.from.id then
limit = 8
end
2015-07-03 00:15:52 +02:00
if input then
if input:match('^r/') then
url = 'http://www.reddit.com/' .. input .. '/.json?limit=' .. limit
2015-07-03 00:15:52 +02:00
else
url = 'http://www.reddit.com/search.json?q=' .. input .. '&limit=' .. limit
2015-07-03 00:15:52 +02:00
end
else
url = 'http://www.reddit.com/.json?limit=' .. limit
2015-07-03 00:15:52 +02:00
end
local jstr, res = HTTP.request(url)
if res ~= 200 then
sendReply(msg, config.errors.connection)
return
2015-07-03 00:15:52 +02:00
end
local jdat = JSON.decode(jstr)
if #jdat.data.children == 0 then
sendReply(msg, config.errors.results)
return
end
2015-07-03 00:15:52 +02:00
local message = ''
for i,v in ipairs(jdat.data.children) do
if v.data.over_18 then
2015-07-03 00:15:52 +02:00
message = message .. '[NSFW] '
end
local long_url = '\n'
if not v.data.is_self then
long_url = '\n' .. v.data.url .. '\n'
2015-07-03 00:15:52 +02:00
end
local short_url = '[redd.it/' .. v.data.id .. '] '
message = message .. short_url .. v.data.title .. long_url
2015-07-03 00:15:52 +02:00
end
sendReply(msg, message)
2015-07-03 00:15:52 +02:00
end
return {
action = action,
triggers = triggers,
doc = doc
}