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

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

;; 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

(require '[cemerick.pomegranate :refer [add-dependencies]])
(add-dependencies
 :coordinates '[[clj-http "0.6.3"]
                [swiss-arrows "0.5.1"]]
 :repositories {"clojars" "http://clojars.org/repo"})

(require '[clj-http.client :as client]
         '[swiss-arrows.core :refer [-<>]]
         '[clojure.string :as str]
         '[clojure.java.shell :refer [sh]])

rplevy

(defmacro with
  "do things with the first expression passed,
   and produce the result"
  [expr & body]
  `(let [~'% ~expr] ~@body))

(defmacro within
  "do things with the first expression passed (for side effects),
   but produce the value of the first expression"
  [expr & body]

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