From 245226bfd7b28bd979dda7356ee859d4dd880205 Mon Sep 17 00:00:00 2001 From: Scott Ostler Date: Wed, 17 Mar 2010 22:50:25 -0400 Subject: Refactoring --- src/utils.clj | 18 +++++++++++++++++- 1 file changed, 17 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/utils.clj b/src/utils.clj index ea0176a..92fdad6 100755 --- a/src/utils.clj +++ b/src/utils.clj @@ -16,11 +16,27 @@ ;; Misc +(defn ms-in-future [ms] + (+ ms (System/currentTimeMillis))) + +(defn swap [f] + (fn [& more] (apply f (reverse more)))) + +(def YYYYMMDD-format (new SimpleDateFormat "yyyyMMdd")) + +(defn today [] + (.format YYYYMMDD-format (new Date))) + +(def formatter (new SimpleDateFormat "h:mm a EEE M/d")) + +(defn non-empty-string? [s] + (cond (string? s) (> (count s) 0) + :else s)) + (defn seconds [t] (* t 1000)) (defn minutes [t] (* t 60 1000)) (defn kbytes [b] (* b 1024)) - (defn mbytes [b] (* b 1024 1024)) ;; JSON responses -- cgit v1.2.3-70-g09d2