   (write-invoice (get arguments 1)
                  (assoc options
                         "id" (get arguments 1)
+                        "payments" []
                         "due-date" (unparse-date (t/plus (parse-date (:issue-date options))
                                                          (t/days (:net options)))))))
 

   "Client" (get invoice "client")
   "Issue date" (get invoice "issue-date")
   "Due date" (get invoice "due-date")
   "Amount" (format "%d %s" (get invoice "amount") (get invoice "currency"))})

(defn options-to-filter [options]
  (fn [invoice]


(defn parse-date [date-string]
  (f/parse date-formatter date-string))

(defn format-amount [amount currency]
  (format "%d %s" amount currency))

(defn read-json [file]
  (json/read-str (slurp file)))
