From f65536693019b7cea8ee29533aa2f3a270f0dd74 Mon Sep 17 00:00:00 2001
From: Chris Sexton <chrissexton@users.noreply.github.com>
Date: Thu, 4 Jul 2013 18:39:18 -0400
Subject: [PATCH] Fixes #39: Added lisp plugin

---
 plugins/lisp.go | 85 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 85 insertions(+)
 create mode 100644 plugins/lisp.go

diff --git a/plugins/lisp.go b/plugins/lisp.go
new file mode 100644
index 0000000..b35db48
--- /dev/null
+++ b/plugins/lisp.go
@@ -0,0 +1,85 @@
+package plugins
+
+import (
+	"fmt"
+	"github.com/chrissexton/alepale/bot"
+	"github.com/chrissexton/kakapo/lisp"
+	"labix.org/v2/mgo"
+	"log"
+	"strings"
+	"time"
+)
+
+type LispPlugin struct {
+	Bot  *bot.Bot
+	Coll *mgo.Collection
+}
+
+type Program struct {
+	Author   string
+	Contents string
+	Created  time.Time
+}
+
+// NewLispPlugin creates a new LispPlugin with the Plugin interface
+func NewLispPlugin(bot *bot.Bot) *LispPlugin {
+	return &LispPlugin{
+		Bot:  bot,
+		Coll: bot.Db.C("lisp"),
+	}
+}
+
+// Message responds to the bot hook on recieving messages.
+// This function returns true if the plugin responds in a meaningful way to the
+// users message. Otherwise, the function returns false and the bot continues
+// execution of other plugins.
+func (p *LispPlugin) Message(message bot.Message) bool {
+	ch := message.Channel
+	if strings.HasPrefix(message.Body, "lisp:") {
+		prog := Program{
+			Author:   message.User.Name,
+			Contents: strings.Replace(message.Body, "lisp:", "", 1),
+		}
+		log.Println("Evaluating:", prog)
+		p.Coll.Insert(prog)
+
+		defer func() {
+			if r := recover(); r != nil {
+				p.Bot.SendMessage(ch, fmt.Sprintf("%s", r))
+			}
+		}()
+
+		results := lisp.EvalStr(prog.Contents)
+
+		p.Bot.SendMessage(ch, fmt.Sprintf("%v", results))
+		return true
+	}
+	return false
+}
+
+// LoadData imports any configuration data into the plugin. This is not
+// strictly necessary other than the fact that the Plugin interface demands it
+// exist. This may be deprecated at a later date.
+func (p *LispPlugin) LoadData() {
+	// This bot has no data to load
+}
+
+// Help responds to help requests. Every plugin must implement a help function.
+func (p *LispPlugin) Help(channel string, parts []string) {
+	p.Bot.SendMessage(channel, "Type some lisp and see what happens...")
+}
+
+// Empty event handler because this plugin does not do anything on event recv
+func (p *LispPlugin) Event(kind string, message bot.Message) bool {
+	return false
+}
+
+// Handler for bot's own messages
+func (p *LispPlugin) BotMessage(message bot.Message) bool {
+	return false
+}
+
+// Register any web URLs desired
+func (p *LispPlugin) RegisterWeb() *string {
+	return nil
+}