|
|
@@ -230,7 +230,10 @@
|
|
|
(let ((crons (get-chat-crons :ledger-report chat-id)))
|
|
|
(if crons
|
|
|
(bot-send-message
|
|
|
- chat-id "Отчёты"
|
|
|
+ chat-id (format nil "Отчёты~%~%~{~A) ~A _~A_: ~A~^~%~}"
|
|
|
+ (loop for (schedule name query) in crons
|
|
|
+ for idx from 1
|
|
|
+ append (list idx name schedule query)))
|
|
|
:parse-mode "markdown"
|
|
|
:reply-markup
|
|
|
(get-inline-keyboard
|
|
|
@@ -243,6 +246,8 @@
|
|
|
(cron-name name))
|
|
|
(list (inline-button ((format nil "Удалить '~A'" cron-name))
|
|
|
(delete-chat-cron :ledger-report chat-id cron-index)
|
|
|
+ (telegram-edit-message-reply-markup
|
|
|
+ nil :chat-id source-chat-id :message-id source-message-id)
|
|
|
(bot-send-message chat-id (format nil "Удалил *~A*" cron-name)
|
|
|
:parse-mode "markdown")))))
|
|
|
(list (list (inline-button ("Отмена")
|
