浏览代码

[ledger] add CZK to manual entry

Innokentiy Enikeev 7 年之前
父节点
当前提交
372dd663f6
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      plugins/ledger.lisp

+ 1 - 1
plugins/ledger.lisp

@@ -327,7 +327,7 @@
                   (pta-ledger:posting-account budget) (pta-ledger:posting-account last-budget))))))
     entry))
 
-(def-message-cmd-handler handler-create (:rub :usd :eur :thb :btc)
+(def-message-cmd-handler handler-create (:rub :usd :eur :thb :btc :czk)
   (cond
     ((>= (length args) 2)
      (ledger/new-chat-entry chat-id (create-entry chat-id