Memo-plugin renamed

config.lua

@@ -1,12 +1,12 @@
-nick = "LoreBot"
+nick = "Thoth"
 username = "lua"
 realname = "Solace: Star Requiem"
 
 server = "irc.freenode.net"
 
 channels
 {
-	"#lorebot";
+	"#solace-dev";
 }
 
 admins

plugins/memo.lua

@@ -0,0 +1,142 @@
+--[[
+	LoreBot
+	#solace-dev channel bot
+]]
+
+PLUGIN.Name = "LoreBot"
+
+--memo handling
+--todo: Redo time formatting to allow for an easy sorted list
+do
+	local memos = {}
+	local users = {}
+
+	local function formatMemo(m)
+		return ("[%s] \"%s\" from %s: \"%s\""):format(m.time, m.name, m.author, m.text)
+	end
+
+	Hook "OnJoin"
+	{
+		function(user, channel)
+			if user.nick == CONFIG.nick then return end
+
+			local u = users[user.nick]
+			if u then
+				self:sendChat(user.nick, ("You have %i new memo(s)."):format(#u.pending))
+				for k, m in ipairs(u.pending) do
+					self:sendChat(user.nick, formatMemo(m))
+					u.pending[k] = nil
+				end
+			else
+				self:sendChat(channel, ("Welcome to %s, %s."):format(channel, user.nick))
+			end
+		end
+	}
+
+	Command "memo_subscribe" "subscribe"
+	{
+		function()
+			local usr = users[user.nick]
+			if usr then
+				reply("You are already subscribing to memos.")
+			else
+				users[user.nick] = {pending = {}}
+				reply("Subscribed to memos. Run !memo_list to list previous memos.")
+			end
+		end
+	}
+
+	Command "memo_unsubscribe" "unsubscribe"
+	{
+		function()
+			users[user.nick] = nil
+			reply("Done.")
+		end
+	}
+
+	Command "memo_add" "memo" "add"
+	{
+		help = "Add new memo";
+
+		expectedArgs = "^(%S+) (.+)$";
+
+		function(name, text)
+			if not users[user.nick] then
+				reply("You need to be on the subscription list to add a memo.")
+				return
+			end
+
+			local m = {
+				name = name;
+				text = text;
+				time = os.date();
+				author = user.nick;
+			}
+
+			for nick, v in pairs(users) do
+				if channels[channel].users[nick] then
+					send{target = nick, message = formatMemo(m)}
+				else
+					table.insert(v.pending, m)
+				end
+			end
+
+			memos[name] = m
+			reply("Added memo.")
+		end
+	}
+
+	Command "memo_remove" "remove"
+	{
+		help = "Remove a memo";
+		admin = true;
+
+		function(name)
+			local m = memos[name]
+			if m then
+				memos[name] = nil
+				reply("Removed \"%s\".", name)
+			else
+				reply("No memo by that name.")
+			end
+		end
+	}
+
+	Command "memo_remove_user" "remove_user"
+	{
+		help = "Remove all memos added by a specific user.";
+		admin = true;
+
+		function(nick)
+			local i = 0
+			for name, m in pairs(memos) do
+				if nick == m.author then
+					memos[name] = nil
+					i = i + 1
+				end
+			end
+			reply("Removed all memos (%i) by \"%s\".", i, nick)
+		end
+	}
+
+	Command "memo_list" "list"
+	{
+		help = "List memos";
+
+		function(search)
+			search = (search or ""):lower()
+
+			local found = false
+			for name, m in pairs(memos) do
+				if name:lower():find(search) then
+					found = true
+					reply(formatMemo(m))
+				end
+			end
+
+			if not found then
+				reply("No matches.")
+			end
+		end
+	}
+end