|
|
@@ -55,7 +55,7 @@
|
|
|
(defun tumblr-random-photo (&optional (roll *tumblr-roll*) (num 1))
|
|
|
(tumblr-random-post :roll roll :type :photo :num num))
|
|
|
|
|
|
-(def-message-handler handle-tumblr (message)
|
|
|
+(def-message-handler handle-tumblr (message -500)
|
|
|
(let* ((*package* (find-package :chatikbot.plugins.tumblr))
|
|
|
(resp (eliza (read-from-string-no-punct text) *tumblr-rules*)))
|
|
|
(when resp
|
