diff options
| author | Colin Okay <cbeok@protonmail.com> | 2020-04-12 20:52:44 -0500 |
|---|---|---|
| committer | Colin Okay <cbeok@protonmail.com> | 2020-04-12 20:52:44 -0500 |
| commit | 95ddf79eaae4a3734541d5df8b98eefacad9b4a3 (patch) | |
| tree | 3589522347d08714369cef8e451a079944a30907 | |
| parent | c3895cdbd1b5550a5ce32033dc4dfa87d19af983 (diff) | |
more rearrangement
| -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)) |