db-save-entity.clj

(in-txn db
      (let [saved (save (BlogEntry. {}
                          {:title "Test"
                           :content "Hello World"
                           :whenposted (new java.util.Date)} ))]
        (ppe "Saved row #1" saved)
        (let [saved-again (save (assoc saved :title "Test Updated"))]
          (ppe "Saved again (updated) row #1" saved-again))))