Migrate tricky data between datalevin verisons

datalevin_migration.clj

(ns datalevin-migration
  "Migrate evil prn-incompatible stuff like space-containing keywords.
   Simplified from datalevin.core/dump-datalog and load-datalog"
  (:require [taoensso.nippy :as nippy]
            [datalevin.core :as dtlv]
            [datalevin.db]
            [datalevin.atom]))

(def db-path "path/to/db.old-version.dtlv")
(def new-db-path "path/to/db.new-version.dtlv")
(def dump-path "path/to/db.dump.nippy")
(def schema {})
(def con (dtlv/get-conn db-path schema))

(comment
   ;; with old dtlv dep and db-path
   (nippy/freeze-to-file dump-path
      [(dtlv/opts con)
       (dtlv/schema con)
       (map #(vector (.-e %) (.-a %) (.-v %)) (dtlv/datoms @con :eav))])
   ;; with new dtlv dep
   (let [[opts schema datoms] (nippy/thaw-from-file dump-path)]
     (datalevin.db/init-db
        (apply list (for [d datoms] (apply datalevin.datom/datom d)))
        new-db-path schema opts)))