Refactoring

1 files changed, 17 insertions, 1 deletions

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