diff options
-rw-r--r-- | posterbot.lisp | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/posterbot.lisp b/posterbot.lisp index 4e830c9..181b9b3 100644 --- a/posterbot.lisp +++ b/posterbot.lisp @@ -4,13 +4,14 @@ (defclass posterbot (client auto-joiner) ()) -;; THE MAIN METHOD FOR RESPONDING TO USER TEXT EVENTS -(defmethod handle-event :after ((*posterbot* posterbot) (event text-message-event)) - (mapc #'handle-link-candiate (ppcre:split " " (msg-body event)))) (defvar *posterbot* nil "Dynamic variable holding the bot instance. Bound by HANDLE-EVENT.") +;; THE MAIN METHOD FOR RESPONDING TO USER TEXT EVENTS +(defmethod handle-event :after ((*posterbot* posterbot) (event text-message-event)) + (mapc #'handle-link-candiate (ppcre:split " " (msg-body event)))) + (defparameter +image-link-regex+ (ppcre:create-scanner "http.+\.(png|gif|jpeg|bmp|jpg)" :case-insensitive-mode t)) |