|
|
@@ -53,13 +53,13 @@
|
|
|
(when wall-diff
|
|
|
(format nil "ZSD balance: *~A*~%~%~{~A~^~%~}"
|
|
|
(aget "remainder" (car (aget "contract" new)))
|
|
|
- (loop for item in wall-diff
|
|
|
+ (loop for item in (reverse wall-diff)
|
|
|
collect (%zsd/format-wall item (aget "pan" new)))))))
|
|
|
|
|
|
(def-message-cmd-handler handle-cmd-zsd (:zsd)
|
|
|
(secret/with (token `(:zsd ,chat-id))
|
|
|
(if token
|
|
|
- (send-response chat-id (zsd/format-changes nil (zsd/load-data token)))
|
|
|
+ (bot-send-message chat-id (zsd/format-changes nil (zsd/load-data token)) :parse-mode "markdown")
|
|
|
(send-response chat-id "/zsd-auth"))))
|
|
|
|
|
|
(def-message-cmd-handler handle-cmd-zsd-auth (:zsd-auth)
|
|
|
@@ -69,6 +69,6 @@
|
|
|
(if token
|
|
|
(progn
|
|
|
(secret/set `(:zsd ,chat-id) token)
|
|
|
- (send-response chat-id (zsd/format-changes nil (zsd/load-data token))))
|
|
|
+ (bot-send-message chat-id (zsd/format-changes nil (zsd/load-data token)) :parse-mode "markdown"))
|
|
|
(send-response chat-id "Can't auth")))
|
|
|
(send-response chat-id "Usage: /zsd-auth <username> <password>"))))
|
