Foursquare seen checkins

chatikbot.lisp

@@ -213,13 +213,18 @@
                   (telegram-send-message chat-id (format nil "Теперь палим ~A" user)))))
           (setf (gethash chat-id *fsq-send-to*) users)))))
 
+(defvar *fsq-seen-ids* nil "Ids of seen checkins")
+
 (defun process-latest-checkins ()
   (handler-case
       (dolist (checkin (fsq-fetch-new-checkins))
-        (let ((user (aget "id" (aget "user" checkin))))
-          (loop for chat-id being the hash-keys in *fsq-send-to* using (hash-value users)
-             do (when (member user users :test #'equal)
-                  (telegram-send-message chat-id (fsq-format-checkin checkin))))))
+        (let ((id (aget "id" checkin))
+              (user (aget "id" (aget "user" checkin))))
+          (unless (find id *fsq-seen-ids* :test #'equal)
+            (loop for chat-id being the hash-keys in *fsq-send-to* using (hash-value users)
+               do (when (member user users :test #'equal)
+                    (telegram-send-message chat-id (fsq-format-checkin checkin))))
+            (push id *fsq-seen-ids*))))
     (error (e) (log:error e))))