| -- adapted from https://wiki.postgresql.org/wiki/Disk_Usage | |
| SELECT * | |
| , pg_size_pretty(total_bytes) AS total | |
| , pg_size_pretty(index_bytes) AS INDEX | |
| , pg_size_pretty(toast_bytes) AS toast | |
| , pg_size_pretty(table_bytes) AS TABLE | |
| FROM ( | |
| SELECT *, total_bytes-index_bytes-COALESCE(toast_bytes,0) AS table_bytes FROM ( | |
| SELECT c.oid,nspname AS table_schema, relname AS TABLE_NAME | |
| , c.reltuples AS row_estimate |
| (ns heroku-to-jdbc | |
| "untested and brittle parser - use at your own peril") | |
| (defn colon? | |
| [_ c] | |
| (= c \:)) | |
| (defn label-result [result label] | |
| (update result 0 (fn [x] [label x]))) |
| (ns httpkit-ssl | |
| "recipe for SSL configuration with httpkit if you get javax.net.ssl.SSLException on Java 8 | |
| more info: https://github.com/http-kit/http-kit/issues/334" | |
| (:require [org.httpkit.client :as http]) | |
| (:import (java.net URI) | |
| (javax.net.ssl SSLEngine | |
| SSLParameters | |
| SNIHostName))) | |
| (defn sni-configure |
| (ns socket-test.core) | |
| (defn foo | |
| "I don't do a whole lot." | |
| [x] | |
| (println x "Hello, World!")) |
| (ns capture | |
| "This is useful if you are debugging a dependency, for example") | |
| (defmacro capture [fname atm] | |
| `(alter-var-root | |
| (var ~fname) | |
| (fn [f#] | |
| (fn [& args#] | |
| (let [result# (apply f# args#)] | |
| (swap! ~atm conj {:args args# |