   with a call to `(clj-time.format/show-formatters)`."
   [dt format]
   (->> dt (f/unparse (f/formatters format))))
+
+(defn todays-date
+  "Returns current date as \"YYYY-MM-dd\".
+
+   Usage:
+     (todays-date)
+     ;=> \"2013-04-16\""
+  []
+  (unparse (now) :year-month-day))
 
 (defn convert
   "Converts the supplied string `s` between the two supplied

  (let [converter (case temporal-res
                        "32" months
                        "16" sixteens
                        "8" eights)]
    (converter (time/epoch) date)))

(defn datetime->period

;; proper temporal comparison of two unrelated datasets.

(ns forma.date-time
  (:use [clj-time.core :only (now date-time plus month year days)]
        [forma.matrix.utils :only (sparse-expander)]
        [forma.utils :only (inc-eq? all-unique? contains-nils?)])
  (:require [clj-time.core :as time]
