apropos-cast/Jan-18-2019-Show-Notes.md

Last active January 18, 2019 05:03

Star () You must be signed in to star a gist
Fork () You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/apropos-cast/abf8b64452ae0ae56cafa333c1eaf4e8.js"></script>
Save apropos-cast/abf8b64452ae0ae56cafa333c1eaf4e8 to your computer and use it in GitHub Desktop.

Download ZIP

Show notes for Apropos on January 18, 2019.

Raw

Jan-18-2019-Show-Notes.md

Topics

Clojure 1.10 Release

2018 Retrospective

2019 Prospective

State of Clojure Community Survey 2019

Audience question: Google Closure vs Webpack vs Rollup

At the REPL

Implement a key-value database that stores to a file for durability.

Complications

How can this be made transactional?

How to make it thread-safe?

How to make it safe across processes?

Author

apropos-cast commented Jan 17, 2019 •

edited

Loading

Solution 2

We wanted the writes to be thread-safe.

(def db (atom {}))

(def die? false)

(def t (doto (Thread. (fn []
                        (loop [old-state @db]
                          (when (not die?)
                            (Thread/sleep 1000)
                            (let [new-state @db]
                              (when (not= old-state new-state)
                                (spit "dbsave.edn" (pr-str new-state)))
                              (recur new-state))))))
         (.start)))

(defn read-db []
  (clojure.edn/read-string (slurp "dbsave.edn")))

(defn restore-db []
  (reset! db (read-db)))