/charts params

chatikbot.lisp

@@ -191,11 +191,21 @@
 (defun handle-cmd-charts (chat-id message-id args)
   (log:info "handle-cmd-charts" chat-id message-id args)
   (telegram-send-chat-action chat-id "upload_photo")
-  (let ((chart (make-chart *per-minute-rates*))
-        (rates (rest (peek-circular *per-minute-rates*))))
-    (telegram-send-photo chat-id chart
-                         :caption (format nil "Зеленый ~A, гейро ~A, британец ~A"
-                                          (cdar rates) (cdadr rates) (cdaddr rates)))))
+  (handler-case
+      (let* ((usd (or (null args) (find "usd" args :test #'equal)))
+             (eur (or (null args) (find "eur" args :test #'equal)))
+             (gbp (or (null args) (find "gbp" args :test #'equal)))
+             (rates (rest (peek-circular *per-minute-rates*))))
+        (if (or usd eur gbp)
+          (telegram-send-photo chat-id
+                               (make-chart *per-minute-rates*
+                                           :usd usd :eur eur :gbp gbp)
+                               :caption (format nil "Зеленый ~A, гейро ~A, британец ~A"
+                                                (cdar rates) (cdadr rates) (cdaddr rates)))
+          (telegram-send-message chat-id "Хуй тебе")))
+    (error (e)
+      (log:error e)
+      (telegram-send-message chat-id "Хуйня какая-то"))))
 
 ;; Weather
 (defun handle-cmd-weather (chat-id message-id args)