[finance] fixes

plugins/finance.lisp

@@ -240,15 +240,15 @@
 
 (defun print-order-info (idx info)
   (format nil "~A) @~A: *~A* ~A _~A_ @ *~$* ~A _~A_ @ *~$*, заработал *~$*, ROI *~$*%"
-	  idx
+          idx
           (agets info :user-name)
           (agets info :amount)
           (get-symbol-label (agets info :symbol))
           (format-ts (local-time:unix-to-timestamp (agets info :open-at)))
           (agets info :open)
-	  (if (> (or (agets info :income) 0) 0) "📈" "📉")
+          (if (> (or (agets info :income) 0) 0) "📈" "📉")
           (if (agets info :open-p) "now"
-	      (format-ts (local-time:unix-to-timestamp (agets info :close-at))))
+              (format-ts (local-time:unix-to-timestamp (agets info :close-at))))
           (or (agets info :close) 0)
           (or (agets info :income) 0)
           (* 100 (or (agets info :roi) 0))))
@@ -256,22 +256,22 @@
 (defun handle-hodl-show (chat-id)
   (let ((orders (db/orders-get chat-id)))
     (bot-send-message chat-id
-		      (if orders (format nil "~{~A~%~} 😇"
-					 (loop for order in orders for idx from 1
-					    collect (print-order-info idx (get-order-info order))))
-			  "Нет ходлеров :(")
-		                            :parse-mode "markdown")))
+                      (if orders (format nil "~{~A~%~} 😇"
+                                         (loop for order in orders for idx from 1
+                                            collect (print-order-info idx (get-order-info order))))
+                          "Нет ходлеров :(")
+                      :parse-mode "markdown")))
 
 (defun handle-hodl-buy (chat-id from args)
   (handler-case
       (let ((symbol (get-label-symbol (nth 1 args)))
-	    (amount (parse-float (nth 2 args)))
-	    (open (parse-float (nth 3 args)))
-	    (open-at (if (nth 4 args) (local-time:parse-timestring (nth 4 args)) (local-time:now))))
-	(db/order-buy chat-id (agets from "id") (agets from "username")
-		      symbol (princ-to-string amount) (princ-to-string open)
-		      (local-time:timestamp-to-unix open-at))
-	(handle-hodl-show chat-id))
+            (amount (parse-float (nth 2 args)))
+            (open (parse-float (nth 3 args)))
+            (open-at (if (nth 4 args) (local-time:parse-timestring (nth 4 args)) (local-time:now))))
+        (db/order-buy chat-id (agets from "id") (agets from "username")
+                      symbol (princ-to-string amount) (princ-to-string open)
+                      (local-time:timestamp-to-unix open-at))
+        (handle-hodl-show chat-id))
     (error (e)
       (log:error "~A" e)
       (bot-send-message chat-id "/hodl buy <SYM> <AMT> <PRICE> [YYYY-MM-DD]"))))
@@ -281,14 +281,6 @@
     ((equal (car args) "buy") (handle-hodl-buy chat-id (agets message "from") args))
     (:otherwise (handle-hodl-show chat-id))))
 
-(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~%~} 😇"
-                                         (loop for order in orders for idx from 1
-                                            collect (print-order-info idx (get-order-info order))))
-                          "Нет ходлеров :(")
-		      :parse-mode "markdown")))
 
 (def-message-cmd-handler handler-charts (:charts)
   (telegram-send-chat-action chat-id "upload_photo")