design.clj

(defn undo-migration-data
  [edit-migration with-migration-db undo tx-id store-id version-id]
  (let [undo-tx (-> undo :design.undo/tx :db/id)
        original-undo-tx (or (-> undo
                                 :design.migration/original-tx
                                 :db/id)
                             undo-tx)
        undo-migration (migration-fn (d/as-of db original-undo-tx)
                                     tx-id
                                     version-id)
        old-migration (if-let [data (:design.migration/data undo)]
                        (read-string data)
                        [])
        undo-str (migration-past-str old-migration
                                     undo-migration
                                     with-migration-db
                                     undo-tx
                                     store-id
                                     version-id)]
    [{:db/id (:db/id undo)
      :design.undo/tx tx-id
      :design.migration/data undo-str
      :design.migration/original-tx original-undo-tx}]))