db-ppe.clj

(defn ppe ;; pretty-print-entities
  ([e]
    (print-entities e))
  ([label e]
    (println label)
    (print-entities e)))

(let [e1 (BlogEntry. {}
           {:title "Test"
            :content "Hello World"
            :whenposted (new java.util.Date)} )
      e2 (BlogEntry. {}
           {:title "Second post"
            :content "Amarnath Trip"
            :whenposted (new java.util.Date)} )]
  (ppe "Entity 1:" e1)
  (ppe "Entity 2:" e2)
  (ppe "Entities 1 and 2:" [e1 e2]))