rplevy

;; 1. in checkouts dir, ln -s ../../clj-http .
;; 2. stick in clj-http.core/request:

(println
  (str "curl -X" (.toUpperCase (name request-method)) " '"
       (name scheme) "://" server-name ":" server-port uri
       (or query-string "")
       "' "
       (reduce-kv (ƒ [r k v]
		     (str r " -H '" k ": " v "'")) "" headers)

rplevy

-----BEGIN PGP PUBLIC KEY BLOCK-----
Version: GnuPG/MacGPG2 v2.0.22 (Darwin)
Comment: GPGTools - https://gpgtools.org

mQINBFM0880BEADa1RfEdG6mtWuG/0eu1Ep9waegDOLuQ6VMcZbSAkIDMzes/eWa
5VjlekM1w0Ha92CfaZ0qKFk5NJjJTZzCWAVZGJsL8NZJPBr1CcTz5xXceGh+TP3N
6qCzUacyibuupoWGYzZjdbZEL5eX4ESzH5n3S6JmAx3Ih5YkZ5AU9bvrqd4iYtZT
DSfwY7U0SE1dJIy3ufuFbySbz7SlxUmwuh7VQqv9+VFT+uXE09CAWqy0EedwjH/L
mqnJV+N7m401BWlp3ec7Jd9suEbXm2JwimXCqGaA/0isOfkJgkSopj88NNlvEr2W
JNC6rOWicN4Lw+Gjmrnb7CH6tBM2sZEC9n0MiaabE6rK0dEs21c1GcIdWiDnfi9U

rplevy

cd /path/to/dir/with/Vagrantfile
VBoxManage controlvm $(cat .vagrant | awk 'BEGIN { FS = ":" } { print $3 }' | sed 's/["\}]//g') poweroff

rplevy

curl -s -XGET 'http://localhost:9200/4af9aae4-7ec1-458d-8c50-692ddb0f2c6d/msg,file,file-info/_validate/query?explain=true' -d '{"fields":["id"],"filter":{"not":{"and":[{"numeric_range":{"msg-size":{"gte":1000}}},{"query":{"prefix":{"content-type.verbatim":"application/"}}}]}}}' | python -mjson.tool
{
    "_shards": {
        "failed": 0, 
        "successful": 1, 
        "total": 1
    }, 
    "explanations": [
        {
            "error": "org.elasticsearch.index.query.QueryParsingException: [4af9aae4-7ec1-458d-8c50-692ddb0f2c6d-0] request does not support [fields]", 

rplevy

Keybase proof

I hereby claim:

• I am rplevy on github.
• I am rplevy (https://keybase.io/rplevy) on keybase.
• I have a public key whose fingerprint is 6382 805E 6D33 870C 9A42 40B3 73C5 7C51 49A3 C990

To claim this, I am signing this object:

rplevy

Verifying that +rplevy is my Bitcoin username. You can send me #bitcoin here: https://onename.io/rplevy

rplevy

(defn split-from
  "like split-at but with an offset.
  Usage:
  (split-from 5 7 (range 10)) -->
  [(5 6 7) (8 9)]
  "
  [offset to s]
  (split-at (- to (dec offset))
            (second (split-at offset s))))

rplevy

18:35 *** rob`` JOIN
18:35 *** NAMES rob`` ckirkendall alexbaranosky cch1 SeanTAllen
                duck1123 @devn 
18:35 /part
18:35 *** rob`` PART #midje 
18:36 *** rplevy JOIN
18:36 *** NAMES rplevy ckirkendall alexbaranosky cch1 SeanTAllen
                duck1123 @devn 
18:36 <ckirkendall> alexbaranosky: I haven't thought about
                    reporting at all yet.  Still trying to get my

rplevy

(import 'java.util.UUID)

(defn uuid-gensym [& [prefix]]
  (gensym (format "%suuid%s-"
                  (str (when prefix (str prefix "-")))
                  (UUID/randomUUID))))

(defmacro mk-var [to-bind]
  `(def ~(uuid-gensym) ~to-bind))

rplevy

(ns example
  (:require [clojure-csv.core :as csv]
            [swiss-arrows.core :refer [-<<]]))

(let [[headers rows]
      ((juxt (partial take 4)
             (partial drop 4))
       (csv/parse-csv (slurp csv-file))))]
 ,,,)