rplevy

(apply
   format
   "%d-%02d-%02d %02d:%02d:%02d"
   (-< (doto (Calendar/getInstance)
         (.setTime (Date. 112 4 17 14 15 0))
         (.add Calendar/MINUTE (* 15 offset)))
       (.get Calendar/YEAR)
       (.get Calendar/MONTH)
       (.get Calendar/DAY_OF_MONTH)
       (.get Calendar/HOUR)

rplevy

(defmacro qq [& body]
  `(->>
    (map (fn [s#]
           (if (string? s#)
             (format "\"%s\"" s#) (str s#)))
         (quote ~body))
    (interpose " ")
    (apply str)))

(defn myfn "docstring \"the normal way\" sort of a pain" [] )

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))))]
 ,,,)

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

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

(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

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

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

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

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