    ["-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"

  (apply println (map pretty-print-invoice (filter (options-to-filter options)
                                                   (read-all-invoices)))))

(defn -main [& args]
  (let [{:keys [options arguments errors summary]} (parse-opts args cli-options)]
    ;; Handle help and error conditions

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