|
@@ -92,21 +92,6 @@
|
|
|
("start" . ,start)
|
|
("start" . ,start)
|
|
|
("end" . ,end))))
|
|
("end" . ,end))))
|
|
|
|
|
|
|
|
-(defun get-account-name (account)
|
|
|
|
|
- (let ((num (aget account :number)))
|
|
|
|
|
- (concatenate 'string "assets:Raiffeisen:"
|
|
|
|
|
- (cond
|
|
|
|
|
- ((string= num "40817810503000266700") "Debit")
|
|
|
|
|
- ((string= num "40817978803000110883") "Savings:EUR")
|
|
|
|
|
- ((string= num "40817810203001534278") "Savings:Renov")
|
|
|
|
|
- ((string= num "40817810103001667025") "Savings:For credit")
|
|
|
|
|
- (:overwise (concatenate 'string
|
|
|
|
|
- (aget account :account-type)
|
|
|
|
|
- ":"
|
|
|
|
|
- num
|
|
|
|
|
- ":"
|
|
|
|
|
- (aget account :currency)))))))
|
|
|
|
|
-
|
|
|
|
|
(defvar *unix-epoch-difference*
|
|
(defvar *unix-epoch-difference*
|
|
|
(encode-universal-time 0 0 0 1 1 1970 0))
|
|
(encode-universal-time 0 0 0 1 1 1970 0))
|
|
|
|
|
|
