Skip to content

Instantly share code, notes, and snippets.

Francis Avila favila

Block or report user

Report or block favila

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
favila /
Created Aug 28, 2019
shell one-liner to check a datomic client connection
ENDPOINT=localhost:8998 \
ACCESS=accesskey \
SECRET=secret \
ALIAS=alias \
clj -Sdeps '{:deps {com.datomic/client-pro {:mvn/version "0.8.28"}}}' \
-e "(require '[datomic.client.api :as d])" \
-e '(defmacro E [sym] `(System/getenv ~(name sym)))' \
-e '(-> (d/client {:server-type :peer-server
favila /
Created May 25, 2019
Java map-like that lazily and atomically creates values for keys. Supports global shutdown also.
package breeze.collections;
import java.util.ArrayList;
import java.util.Map;
import java.util.concurrent.Callable;
import java.util.concurrent.CancellationException;
import java.util.concurrent.ConcurrentHashMap;
import java.util.concurrent.ExecutionException;
import java.util.concurrent.ExecutorService;
import java.util.concurrent.Future;
favila / pdftree.clj
Created Sep 27, 2018
create a clojure-data-structure representation of a pdf document (from pdfbox) just for visibility into the pdf's structure
View pdftree.clj
(with-open [pdf-document (PDDocument/load ( THE-FILE))]
(let [doc (.getDocument pdf-document)
getobj (fn [^COSObject x]
[:pdf.type/object (.getObjectNumber x) (.getGenerationNumber x)])
visit (fn [^COSBase x ^ICOSVisitor vis]
(if (.isDirect x)
(if (instance? COSObject x)
(getobj x)
(.accept x vis))
favila / keys_plus.cljc
Created Sep 26, 2018
s/keys+, an s/keys variant that allows inline respec-ing of a key to narrow the range of its type
View keys_plus.cljc
(ns com.breezeehr.specs.keys-plus
"Variants of clojure.spec/keys and keys* that allow additional inline spec-ing."
(:refer-clojure :exclude [keys])
(:require [clojure.core :as c]
[clojure.spec.alpha :as s]
[clojure.spec.gen.alpha :as gen]
[clojure.walk :as walk])
#?(:cljs (:require-macros [com.breezeehr.specs.keys-plus]))
#?(:clj (:import (java.util UUID))))
favila / last-touched-tx.clj
Created Feb 27, 2018
datomic query to return the tx at which an entity or its components were last touched
View last-touched-tx.clj
(require '[datomic.api :as d])
(defn last-touched-tx
"Return the tx of the oldest assertion on `entity` or any of its components."
[db entity]
(or (d/q '[:find (max ?tx) .
:in $ % ?root
(component-entities ?root ?ce)
(union ?root ?ce ?e)
[?e _ _ ?tx]]
favila / transit_uuid_reader.cljc
Created Feb 20, 2018
data readers to emit transit uuids in cljs with bits calculated at compile-time
View transit_uuid_reader.cljc
(ns favila.transit-uuid-reader
"Use as a data reader for cljs-in-cljs or clj-for-cljs compilation to emit a
transit uuid type from a uuid string.
For clj-for-cljs compilation you must require this namespace at the top of
your cljs code somehow so that the emitted code can call
#?(:clj (:import
(com.cognitect.transit types)
(goog.math Long))
favila / datomic-counter.clj
Created Sep 29, 2017
Demonstrate the creation and use of an auto-increment counter (with nonce) in datomic
View datomic-counter.clj
(require '[datomic.api :as d])
(d/create-database "datomic:mem://counter-example")
;=> true
(def c (d/connect "datomic:mem://counter-example"))
;=> #'user/c
;; The essential features of creating and using an auto-increment counter in datomic:
;; 1. A counter entity must store the current value and a nonce.
favila / spec-relation.clj
Last active Sep 1, 2017
Spec for a relation (tuple with named positions, optional trailing positions). Takes key + predicate pairs, and an optional final vector with key + predicate pairs. The predicates cannot be regexs. Returns a regex op that matches all values in sequence and returns a map of keys to the corresponding value, like s/cat. Unlike s/cat, values may onl…
View spec-relation.clj
(ns com.breezeehr.spec-utils
(:require [clojure.spec.alpha :as s]))
(s/def ::relation-arg-pair
:k (s/and keyword? #(not= % ::relation-tail))
:v #(not (s/regex? %))))
(defn- distinct-relation-keys? [{:keys [req opt]}]
(apply distinct? (concat (map :k req) (map :k opt))))
favila / unresponsive-immutant.clj
Created Jul 20, 2017
Minimum reproducible case where immutant connections seem to hang when using async/as-channel responses. This problem appears in immutant 2.1.7. The cause is not closing the InputStream from the request.
View unresponsive-immutant.clj
;;; immutant.web >= 2.1.7 will block subsequent requests on the same connection
;;; when using an async/as-channel response if the request body InputStream is
;;; not closed
;;; The essential difference seems to be the undertow dependency: 1.3.x
;;; does not care if the request is closed, but 1.4.x seems to care.
;;; Immutant 2.1.6 used undertow 1.3.x, but 2.1.7 switched to 1.4.x
;; leinigen Dependency: [[org.immutant/web "2.1.9"]]
favila / depth-first-path-comparator.clj
Created Jun 23, 2017
Comparator to sort path vectors (e.g. as used with get-in, assoc-in, update-in) in depth-first order instead of breath-first (which the standard comparator does)
View depth-first-path-comparator.clj
(letfn [(cmp [^objects vec-b+maxi i a]
;; INVARIANT: vec-a is longer than or equal-len vec-b
;; INVARIANT: vec-a and vec-b are len >= 1
(let [vec-b (aget vec-b+maxi 0)
maxi (aget vec-b+maxi 1)
b (nth vec-b i)
diff (compare a b)]
(if (zero? diff)
(if (== i maxi)
(reduced vec-b+maxi)
You can’t perform that action at this time.