gistfile1.clj

(defn display-date [d]
  "takes a db date and turns it into a format easily entered/read"
  (str-join " " [(str-join "-" (map pad-to-2
                                    [(+ 1900 (.getYear d))
                                     (+ 1 (.getMonth d))
                                     (.getDate d)]))
                 (str-join ":" (map pad-to-2
                                    [(.getHours d)
                                     (.getMinutes d)
                                     (.getSeconds d)]))]))