divs.clj

(defn parse-divs [divs]
  (loop [divs divs,
         date nil,
         time nil,
         result []]
    (if (empty? divs)
      (seq result)
      (let [{:keys [type, content], :as div} (first divs)]
        (condp = type
            :date (recur (rest divs) content time result)
            :time (recur (rest divs) date content result)
            (recur (rest divs) date time
                   (conj result (assoc div
                                  :date date
                                  :time time))))))))