Feeding graphite with metrics

bogus.core.clj

(ns bogus.core
  (import java.util.Date)
  (import java.net.Socket)
  (import java.io.PrintWriter))

(def metric "bogus.metric")
(defonce power (atom 0))
(defn pow! [] 
     (swap! power inc))

(defn timestamp [] 
      (int (/ (.getTime (Date.)) 1000)))

(defn graphite-socket []
  (Socket. "localhost" 2003))

(defn feed-metric []
  (with-open [sock (graphite-socket)
              out (PrintWriter. (.getOutputStream sock))]
    (binding [*out* out]
      (println metric @power (timestamp)))))