[tinkoff] move aliases to settings

plugins/tinkoff.lisp

@@ -6,6 +6,15 @@
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (ql:quickload :pta-ledger))
 
+(defsetting *account-default-prefix* "assets:Tinkoff:")
+(defsetting *account-aliases* nil "tinkoff account to ledger account")
+(defsetting *category-aliases* '((60 . "expenses:Food:Fast-food")
+                                 (36 . "expenses:Transport")
+                                 (32 . "expenses:Food:Restaurant")
+                                 (20 . "expenses:Life:Wear")
+                                 (16 . "expenses:Transport:Car:Gas")
+                                 (10 . "expenses:Food:Grocery")) "tinkoff category to expense account mapping")
+
 (defsetting *ua* "OnePlus ONE A2003/android: 6.0.1/TCSMB/3.4.2" "User agent")
 (defsetting *device-id* "1df9bdeac787e08")
 (defsetting *app-version* "3.4.2")
@@ -104,26 +113,15 @@
         (agets op "brand" "name"))))))
 
 (defun get-op-account1 (op)
-  (case (parse-integer (agets op "account"))
-    (5001173482 "assets:Tinkoff:Debit")
-    (1850735 "assets:Raiffeisen:Debit")
-    (0047479860 "liabilities:Tinkoff:Credit:Platinum")
-    (8102961813 "assets:Tinkoff:Savings:For credit")
-    (t (concatenate 'string "assets:Tinkoff:" (agets op "account")))))
+  (or (agets *account-aliases* (parse-integer (agets op "account")))
+      (concatenate 'string *account-default-prefix* (agets op "account"))))
 
 (defun get-op-account2 (op)
-  (let ((cat (parse-integer (agets op "category" "id") :junk-allowed t)))
-    (case cat
-      (60 "expenses:Food:Fast-food")
-      (36 "expenses:Transport")
-      (32 "expenses:Food:Restaurant")
-      (20 "expenses:Life:Wear")
-      (16 "expenses:Transport:Car:Gas")
-      (10 "expenses:Food:Grocery")
-      (t (concatenate 'string
-                      (if (equal "Credit" (agets op "type"))
-                          "income:" "expenses:")
-                      (agets op "category" "name"))))))
+  (or (agets *category-aliases* (parse-integer (agets op "category" "id") :junk-allowed t))
+      (concatenate 'string
+                   (if (equal "Credit" (agets op "type"))
+                       "income:" "expenses:")
+                   (agets op "category" "name"))))
 
 (defun ops->entry (ops)
   (loop for op in ops