IWRobot / Da un rango de fecha de entre 2 semanas y hoy

getDosSemanas.clj

(fn [ctx] 
  (letfn [(two-weeks []
            (let [now (java.util.Calendar/getInstance)
                  dis -15]
              (-> (doto now
                    (.add java.util.Calendar/DATE dis))
                  .getTime)))] 
    (let [fmt (java.text.SimpleDateFormat. "yyyy-MM-dd")]
      (str (-> fmt (.format (two-weeks)))
         ","
         (-> fmt (.format (java.util.Date.)))))))