|
|
@@ -263,11 +263,11 @@
|
|
|
(alexandria:when-let (changes (set-difference new old :test #'equalp))
|
|
|
(log:info changes)
|
|
|
(if ledger-package
|
|
|
- (let (new-chat-entry (symbol-function
|
|
|
- (intern "LEDGER/NEW-CHAT-ENTRIES" ledger-package)))
|
|
|
+ (let ((new-chat-entry (symbol-function
|
|
|
+ (intern "LEDGER/NEW-CHAT-ENTRY" ledger-package))))
|
|
|
(dolist (entry changes)
|
|
|
(funcall new-chat-entry chat-id entry)))
|
|
|
- (bot-send-message chat-id (format-entries changes) :parse-mode "markdown"))))
|
|
|
+ (bot-send-message chat-id (format-changes changes) :parse-mode "markdown"))))
|
|
|
(setf (gethash chat-id *last-entries*) new)))))
|
|
|
|
|
|
(def-message-cmd-handler handler-raif (:raif)
|
