From c937f0335938106de28b7a001ac094ffafbf62d3 Mon Sep 17 00:00:00 2001
From: Scott Ostler <scottbot9000@gmail.com>
Date: Fri, 18 Jun 2010 22:47:11 -0400
Subject: Added comma formats

---
 src/utils.clj | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'src/utils.clj')

diff --git a/src/utils.clj b/src/utils.clj
index 779bb7b..8bd8291 100755
--- a/src/utils.clj
+++ b/src/utils.clj
@@ -108,6 +108,17 @@
 
 ;; Formatters
 
+(defn- comma-helper [s]
+  (let [f (take 3 s)
+	r (drop 3 s)]
+    (if (= (count r) 0)
+      f
+      (append (comma-helper r) [\,] (reverse f)))))
+
+(defn comma-format [i]
+  (apply str
+	 (reverse (comma-helper (reverse (str i))))))
+
 (def yyyy-mm-dd-formatter (new SimpleDateFormat "yyyy-MM-dd"))
 
 (defn format-yyyy-mm-dd [d]
-- 
cgit v1.2.3-70-g09d2