   (let [converter (case temporal-res
                         "32" months
                         "16" sixteens
-                        "8" eights)]
+                        "8" eights
+                        "1" ones)]
     (converter (time/epoch) date)))
 
 (defn datetime->period

;; (It's important to note that time periods are NOT measured from the
;; activation date of a specific product. The first available NDVI
;; 16-day composite, for example, has a beginning date of February
;; 18th 2001, or ordinal day 49, the 1st day of the 4th period as
;; measured from January 1st. With our reference of January 1st, This
;; dataset will receive an index of 3, and will match up with any
;; other data that falls within that 16-day period. This provides

  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
