|
@@ -41,7 +41,7 @@
|
|
|
(otherwise (send-dont-understand chat-id id))))
|
|
(otherwise (send-dont-understand chat-id id))))
|
|
|
(telegram-send-message chat-id
|
|
(telegram-send-message chat-id
|
|
|
(format nil "Сам ~A"
|
|
(format nil "Сам ~A"
|
|
|
- (replace-all text "@chatikbot " "")))))))
|
|
|
|
|
|
|
+ (replace-all text "@chatikbot" "")))))))
|
|
|
|
|
|
|
|
(defparameter +akb-user-id+ "3021296351" "Twitter user id of 'B-category anecdotes'")
|
|
(defparameter +akb-user-id+ "3021296351" "Twitter user id of 'B-category anecdotes'")
|
|
|
(defvar *akb-max-count* 5 "Max number of tweets to return per run")
|
|
(defvar *akb-max-count* 5 "Max number of tweets to return per run")
|
|
@@ -56,7 +56,7 @@
|
|
|
*akb-send-to* (set-difference *akb-send-to*
|
|
*akb-send-to* (set-difference *akb-send-to*
|
|
|
(list chat-id)))
|
|
(list chat-id)))
|
|
|
(setf *akb-send-to* (cons chat-id *akb-send-to*)))
|
|
(setf *akb-send-to* (cons chat-id *akb-send-to*)))
|
|
|
- (telegram-send-message chat-id message :reply-to message-id)))
|
|
|
|
|
|
|
+ (telegram-send-message chat-id message)))
|
|
|
|
|
|
|
|
(defun process-latest-akb ()
|
|
(defun process-latest-akb ()
|
|
|
(log:info "Getting latest AKBs")
|
|
(log:info "Getting latest AKBs")
|
