saver: better status

plugins/saver.lisp

@@ -263,16 +263,16 @@
              for idx from (1+ (length expenses))
              for info = (saver/get-income-info payment payments moment)
              when info
-             collect (format nil "~D) ~A по [[~A]]: отложить _~$_ *~A*"
+             collect (format nil "~D) ~A по [[~A]]: *~A*, отложить _~$_"
                              idx
                              (saver/payment-name payment)
                              (saver/payment-schedule payment)
-                             (/ (getf info :next-save) 100)
-                             (%saver/format-time (saver/payment-next-time payment moment)))))
+                             (%saver/format-time (saver/payment-next-time payment moment))
+                             (/ (getf info :next-save) 100))))
          (closest-income (saver/find-next-payment incomes moment))
          (closest-income-info (and closest-income (saver/get-income-info closest-income payments moment))))
     (if (or expenses-info incomes-info)
-        (format nil "*Платежи*~%~{~A~^~%~}~%*Следующий платёж*~%'~A' *~A*, заплатить _~$_~%~%*Накопления*~%~{~A~^~%~}~%*Следующее накопление*~%'~A' *~A*, отложить _~$_~%~%*Накоплено должно быть* _~$_"
+        (format nil "*Платежи*~%~{~A~^~%~}~%*Следующий платёж*~%'~A': *~A*, заплатить _~$_~%~%*Накопления*~%~{~A~^~%~}~%*Следующее накопление*~%'~A': *~A*, отложить _~$_~%~%*Накоплено должно быть* _~$_"
                 expenses-info
                 (and closest-expense (saver/payment-name closest-expense))
                 (and closest-expense (%saver/format-time (saver/payment-next-time closest-expense moment)))