metrics-clojure / metrics-clojure-core / src / metrics / gauges.clj

Diff from to


 (ns metrics.gauges
-  (:use [metrics.utils :only (metric-name)])
+  (:use [metrics.utils :only (metric-name desugared-title)])
   (:import (com.yammer.metrics Metrics))
   (:import (com.yammer.metrics.core Gauge)))
   The rest of the arguments may be a body form or function to call to
   retrieve the value of the Gauge."
   [title & [b & bs :as body]]
-  (if (and (empty? bs)
-           (symbol? b)
-           (fn? (eval b)))
-    `(def ~title (gauge-fn ~(str title) ~b))
-    `(def ~title (gauge ~(str title) ~@body))))
+  (let [[s title] (desugared-title title)]
+    (if (and (empty? bs)
+             (symbol? b)
+             (fn? (eval b)))
+      `(def ~s (gauge-fn ~title ~b))
+      `(def ~s (gauge ~title ~@body)))))
 ; Read ------------------------------------------------------------------------
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.