prevayler.examples.s3 — coreagile/prevayler-clj 3.0.14

backup-wrapper clj

(backup-wrapper bucket
                &
                {:keys [key debug? err-out dbg-out sleep-time]
                 :or {key "journal"
                      sleep-time 1000
                      err-out (fn [msg & [throwable]]
                                  (.println (System/err) (time-msg msg))
                                  (when throwable (.printStackTrace throwable)))
                      dbg-out (fn [msg] (-> msg time-msg println))}})

download clj

(download s3 bucket key)

now-str clj

(now-str)

realize-msg clj

(realize-msg o)

rename-key! clj

(rename-key! s3 bucket src dest)

time-msg clj

(time-msg msg)