       "create" (create options arguments)
       "data" (data options)
       "list" (list_ options)
+      "record-payment" (record-payment options arguments)
       (exit 1 (usage summary)))))

        "    Lists invoices."
        ""
        "  invadm data {-c CURRENCY, -r CLIENT, -f FILENAME}"
        "    Dump all the data in a JSON array."]
       (string/join \newline)))

(defn error-msg [errors]

   ["-f" "--filename FILENAME" "Attached file"]
   ["-i" "--issue-date ISSUE_DATE" "Issue date"
    :default (unparse-date (t/now))]
   ["-p" "--paid-on" "Paid on"
    :default (unparse-date (t/now))]
   ["-n" "--net NET" "Net"
    :parse-fn #(Integer/parseInt %)]
   ["-a" "--amount AMOUNT" "Total amount"
