ChrisBlom

;; fontlock logic vars (for datomic and cascalog)
    (font-lock-add-keywords
     'clojure-mode
     `((,(concat "\\<"
		 "\\?[a-z0-9-]+"
		 "\\>")
	0
	font-lock-keyword-face)))

ChrisBlom

(defn non-caching-riemann-client
  [{:keys [host port] :as riemann-config}]
  (assert host)
  (assert port)
  (let [c  (riemann.client/tcp-client :host host :port port)]
    ;; disable dns caching
    ;; If we let riemann cache dns lookups, it can't reconnect to the riemann server after that restarts
    (-> c
        .transport
        .transport