|
@@ -226,7 +226,7 @@
|
|
|
(duration (- close-at open-at))
|
|
(duration (- close-at open-at))
|
|
|
(income (when close-amount (- close-amount open-amount)))
|
|
(income (when close-amount (- close-amount open-amount)))
|
|
|
(roi (when income (/ income open-amount)))
|
|
(roi (when income (/ income open-amount)))
|
|
|
- (annual (when roi (* (/ roi duration) (* +day+ 365.25)))))
|
|
|
|
|
|
|
+ (annual (when (and roi (not (zerop duration))) (* (/ roi duration) (* +day+ 365.25)))))
|
|
|
`((:row-id . ,row-id)
|
|
`((:row-id . ,row-id)
|
|
|
(:user-id . ,user-id)
|
|
(:user-id . ,user-id)
|
|
|
(:user-name . ,user-name)
|
|
(:user-name . ,user-name)
|
|
@@ -245,7 +245,7 @@
|
|
|
(:annual . ,annual)))))
|
|
(:annual . ,annual)))))
|
|
|
|
|
|
|
|
(defun print-order-info (idx info)
|
|
(defun print-order-info (idx info)
|
|
|
- (format nil "~A) @~A: *~A* ~A _~A_ @ *~$* ~A _~A_ @ *~$*, заработал *~$*, ROI *~$*%"
|
|
|
|
|
|
|
+ (format nil "~A) ~A: *~A* ~A _~A_ @ *~$* ~A _~A_ @ *~$*, заработал *~$*, ROI *~$*%"
|
|
|
idx
|
|
idx
|
|
|
(agets info :user-name)
|
|
(agets info :user-name)
|
|
|
(agets info :amount)
|
|
(agets info :amount)
|
|
@@ -267,7 +267,8 @@
|
|
|
(loop for order in orders for idx from 1
|
|
(loop for order in orders for idx from 1
|
|
|
collect (print-order-info idx (get-order-info order))))
|
|
collect (print-order-info idx (get-order-info order))))
|
|
|
"Нет ходлеров :(")
|
|
"Нет ходлеров :(")
|
|
|
- :parse-mode "markdown")))
|
|
|
|
|
|
|
+ :parse-mode "markdown"
|
|
|
|
|
+ :disable-notifications 1)))
|
|
|
|
|
|
|
|
(defun handle-hodl-buy ()
|
|
(defun handle-hodl-buy ()
|
|
|
(handler-case
|
|
(handler-case
|
