Skip to content

Instantly share code, notes, and snippets.

View comnik's full-sized avatar

Nikolas Göbel comnik

128 followers · 19 following
View GitHub Profile
@comnik
comnik / relational-thingies.js
Last active May 4, 2018 20:25
Clojure core.set thingies in JS
const selectKeys = (m, keys) => {
return keys.reduce((acc, k) => {
acc[k] = m[k];
return acc;
}, {});
}
const invertMap = (m) =>
Object.keys(m).reduce((acc, k) => {
acc[m[k]] = k;
@comnik
comnik / spit-url.cljs
Created January 21, 2018 14:15
Helper to export lots of data from a CLJS web-app, as a downloadable file.
(defn spit-url [content]
(let [blob (js/Blob. (js/Array. content) {:type "text/plain;charset=utf-8"})]
(.createObjectURL js/URL blob)))
@comnik
comnik / relational-helpers.clj
Created January 18, 2018 17:33
Code accompanying https://www.nikolasgoebel.com/2018/01/18/relational-helpers.html
(defn relate [& pairs]
(assert (even? (count pairs)) "relate requires an even number of arguments")
(->> pairs
(partition 2)
(map (fn [[k vs]] (map #(hash-map k %) vs)))
(apply map merge)))
(defn matches-specmap? [specmap m]
(reduce-kv
@comnik
comnik / with-timeout.clj
Created November 30, 2017 13:00
with-timeout (based on https://stackoverflow.com/questions/1683680/clojure-with-timeout-macro)
(defmacro with-timeout [seconds & body]
`(let [f# (future ~@body)]
(try
(.get f# ~seconds java.util.concurrent.TimeUnit/SECONDS)
(catch java.util.concurrent.TimeoutException e#
(do (future-cancel f#) nil)))))