klauswuestefeld / prevayler-clj Goto Github PK

Hi Klaus, first of all: thanks for Prevayler!
I've made this little test

(ns prevayler.core
  (:require
    [org.prevayler :refer :all])
  (:import
    [java.io File]))

(defn tmp-file [l]
  (doto
    (File/createTempFile (str "test-" l "-") ".tmp")
    (.delete)))

(let [handler-fn (fn [m [k v]] (assoc m k v))
      prev! #(prevayler! handler-fn %1 (tmp-file %2))
      initial-state (atom {})]
  (with-open [p (prev! @initial-state "a")]
    (doseq [kv (range 1000000)]
      (handle! p [(keyword (str "a" kv)) kv]))
    (reset! initial-state @p))
  (with-open [p (prev! @initial-state "b")]
    ))

the first temp file created contains a map and one milion two element clojure vectors and is 1GB in size. Clojure data structures are not so compact when persisted through Java serialization. I'd sugget to improve this using a clojure serialization library with fallback to java serialization, like ptaoussanis/nippy.

Cheers,
Luca

@klauswuestefeld I loved this concept and I also was searching for something easy to start and avoid complex database communications, however, trying to start an app using prevayler/prevayler-clj I felt some difficulties since didn't found documentation or articles about this.
Could you make a demo app or show something opensource that uses prevayler? maybe a screencast? 🙏