user=> (defn the-past-midnight-2 []
                (-> (Calendar/getInstance)
                        (.set Calendar/AM_PM Calendar/AM)
                        (.set Calendar/HOUR 0)
                        (.set Calendar/MINUTE 0)
                        (.set Calendar/SECOND 0)
                        (.set Calendar/MILLISECOND 0)
                        (.getTime)))
#'user/the-past-midnight-2