         "  invadm create -c CURRENCY --from FROM --to TO -a AMOUNT -n NET [-i ISSUE_DATE] [-f FILENAME] ID"
         "    Create an invoice."
         ""
-        "  invadm list {-c CURRENCY, --from FROM, --to TO, -f FILENAME}"
+        "  invadm list {-c CURRENCY, --from FROM, --to TO, -f FILENAME, --lt|--gt DATE}"
         "    List invoices, filtered according to arguments."
         ""
         "  invadm data {-c CURRENCY, --from FROM, --to TO, -f FILENAME}"

   ["-n" "--net NET" "Net"
    :parse-fn #(Integer/parseInt %)]
   ["-a" "--amount AMOUNT" "Total amount"
    :parse-fn #(Float/parseFloat %)]])

(defn parse-today-default [value]
  (cond


(defn options-to-filter [options]
  (fn [invoice]
    (and
      (if (contains? options :gt) (t/after?
                                     (get invoice "issue-date")
                                     (:gt options)) true)
      (if (contains? options :lt) (t/before?
                                     (get invoice "issue-date")
                                     (:lt options)) true)
      (every? #(= (get options %) (get invoice (name %)))
              (filter #(not (or (= % :lt) (= % :gt))) (keys options))))))

(def cli-options
  ;; TODO: add clever currency default
