|
|
@@ -80,9 +80,10 @@
|
|
|
(def-message-cmd-handler handle-torrents (:torrents)
|
|
|
(let ((url (aget chat-id *transmission-settings*)))
|
|
|
(if url
|
|
|
- (bot-send-message chat-id
|
|
|
- (format nil "~{~A~^~%~}" (mapcar #'%format-torrent
|
|
|
- (transmission-get-torrents url))))
|
|
|
+ (let ((torrents (transmission-get-torrents url)))
|
|
|
+ (bot-send-message chat-id
|
|
|
+ (if torrents (format nil "~{~A~^~%~}" (mapcar #'%format-torrent torrents))
|
|
|
+ "Пустой список!")))
|
|
|
(bot-send-message chat-id "Бота настрой!"))))
|
|
|
|
|
|
(defun %torrent-add-and-respond (chat-id &key filename metainfo)
|
