|
|
@@ -98,8 +98,8 @@
|
|
|
(if (find chat-id *admins*)
|
|
|
(case cmd
|
|
|
(:eval (telegram-send-message chat-id (rep (format nil "~{~A~^ ~}" args))))
|
|
|
- (otherwise (send-dont-understand chat-id text)))
|
|
|
- (send-dont-understand chat-id text)))
|
|
|
+ (otherwise (send-dont-understand chat-id (preprocess-input (subseq text 1)))))
|
|
|
+ (send-dont-understand chat-id (preprocess-input (subseq text 1)))))
|
|
|
|
|
|
(defparameter +akb-vk-domain+ "baneks" "VK.com username of 'B-category anekdotes'")
|
|
|
(defvar *akb-send-to* nil "List of chat-id's to send AKBs to")
|
