|
@@ -68,10 +68,6 @@
|
|
|
(%api "getOrder.php" `(("count" . ,count) ("offset" . ,offset))))
|
|
(%api "getOrder.php" `(("count" . ,count) ("offset" . ,offset))))
|
|
|
|
|
|
|
|
;; Formatting
|
|
;; Formatting
|
|
|
-(defun get-chat-card (chat-id)
|
|
|
|
|
- (with-chat-credentials (chat-id)
|
|
|
|
|
- (^get-card-info)))
|
|
|
|
|
-
|
|
|
|
|
(defvar *account-fuel* "expenses:Transport:Car:Gas")
|
|
(defvar *account-fuel* "expenses:Transport:Car:Gas")
|
|
|
(defvar *account-other* "expenses:Food:Snacks")
|
|
(defvar *account-other* "expenses:Food:Snacks")
|
|
|
(defvar *account-asset* "liabilities:Tinkoff:Platinum")
|
|
(defvar *account-asset* "liabilities:Tinkoff:Platinum")
|
|
@@ -159,6 +155,10 @@
|
|
|
(prog1 (progn ,@body)
|
|
(prog1 (progn ,@body)
|
|
|
(setf (gethash ,chat-id *sessions*) *session*))))
|
|
(setf (gethash ,chat-id *sessions*) *session*))))
|
|
|
|
|
|
|
|
|
|
+(defun get-chat-card (chat-id)
|
|
|
|
|
+ (with-chat-credentials (chat-id)
|
|
|
|
|
+ (^get-card-info)))
|
|
|
|
|
+
|
|
|
(defun get-chat-last-n-orders (chat-id &optional (count 10))
|
|
(defun get-chat-last-n-orders (chat-id &optional (count 10))
|
|
|
(with-chat-credentials (chat-id)
|
|
(with-chat-credentials (chat-id)
|
|
|
(^get-order :count count)))
|
|
(^get-order :count count)))
|