|
|
@@ -217,13 +217,13 @@
|
|
|
(let ((users (db/fsq-get-chat-users chat-id))
|
|
|
(friends (fsq-fetch-friends token)))
|
|
|
(bot-send-message chat-id
|
|
|
- (format
|
|
|
- nil "~{~A: ~:[~;📍 ~]~A~^~%~}"
|
|
|
- (loop for user in friends
|
|
|
- append (list
|
|
|
- (aget "id" user)
|
|
|
- (member (aget "id" user) users :test #'equal)
|
|
|
- (fsq-user-name user))))))))
|
|
|
+ (text-chunks (loop for user in friends
|
|
|
+ collect (format nil "~A: ~:[~;📍 ~]~A"
|
|
|
+ (aget "id" user)
|
|
|
+ (member (aget "id" user) users :test #'equal)
|
|
|
+ (fsq-user-name user)))
|
|
|
+ :text-sep "
|
|
|
+" :pre-pre "" :pre-post "")))))
|
|
|
|
|
|
|
|
|
(def-message-cmd-handler handle-cmd-checkins (:checkins)
|
