|
|
@@ -46,6 +46,12 @@
|
|
|
"bpi" "USD" "rate_float")
|
|
|
(error (e) (log:error "~A" e))))
|
|
|
|
|
|
+(defparameter +cex-btc-usd-url+ "https://cex.io/api/last_price/BTC/USD" "cex.io api endpoint")
|
|
|
+(defun get-cex-io-btc-usd ()
|
|
|
+ (handler-case
|
|
|
+ (parse-float (agets (json-request +cex-btc-usd-url+) "lprice"))
|
|
|
+ (error (e) (log:error "~A" e))))
|
|
|
+
|
|
|
|
|
|
;; Formatting
|
|
|
(defvar *symbol-aliases*
|
|
|
@@ -170,7 +176,7 @@
|
|
|
(symbols (db/get-chat-symbols))
|
|
|
(rates (when symbols (get-rates symbols)))
|
|
|
(brent (get-brent))
|
|
|
- (btc (get-coindesk-btc-usd)))
|
|
|
+ (btc (get-cex-io-btc-usd)))
|
|
|
(loop for (symbol . price) in rates
|
|
|
do (db/add-finance ts symbol price))
|
|
|
(when brent
|
|
|
@@ -250,7 +256,7 @@
|
|
|
(def-message-cmd-handler handle-hodl (:hodl :hodlers)
|
|
|
(let ((orders (db/orders-get chat-id)))
|
|
|
(bot-send-message chat-id
|
|
|
- (if orders (format nil "{~A~^~%~}~%😇~"
|
|
|
+ (if orders (format nil "~{~A~%~} 😇"
|
|
|
(loop for order in orders for idx from 1
|
|
|
collect (print-order-info idx (get-order-info order))))
|
|
|
"Нет ходлеров :(")
|
