Skip to content

Instantly share code, notes, and snippets.

(update {:formula ""} :formula symbol) ;; => {:formula }
(type (:formula (update {:formula ""} :formula symbol))) ;; => clojure.lang.Symbol
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
import csv, sys
import edn_format
records = [edn_format.loads(line) for line in sys.stdin]
columns = set()
for r in records:
for k in r.keys():
columns.add(k)
[~/projects/reddit1.0 (master)]
$ find . -name "*.lisp" | xargs -I{} wc -l {}
187 ./tok-file.lisp
199 ./sites.lisp
31 ./packages.lisp
120 ./frame.lisp
51 ./cookiehash.lisp
69 ./mail.lisp
270 ./view-defs.lisp
45 ./recommend.lisp
(with-open [w (io/writer "interface.edn")]
(binding [*out* w]
(doseq [product (jdbc/with-db-connection [conn "postgres://ecomedes:not-telling-you!@localhost:55000/ecomedes"]
(jdbc/query conn ["select * from products where brand_id = 2101;"]))]
(prn product))))
(require '[clj-http.client :as http])
(defn check-images
[images]