use second time; bump 0.1.1-a4

README.md

@@ -9,12 +9,16 @@ Cumulo Util (WIP)
 [![Clojars Project](https://img.shields.io/clojars/v/cumulo/util.svg)](https://clojars.org/cumulo/util)
 
 ```edn
-[cumulo/util "0.1.1-a3"]
+[cumulo/util "0.1.1-a4"]
 ```
 
 ```clojure
 (cumulo-util.core/find-first "x" ["x" "y"])
 (cumulo-util.core/get-env! x) ; reading process.env[x]
+(cumulo-util.core/id!)
+(cumulo-util.core/unix-time!)
+(cumulo-util.core/repeat! 1 #(println "doing")!) ; in seconds
+(cumulo-util.core/delay! 1 #(println "done")!) ; in seconds
 
 (cumulo-util.file/write-mildly! "a.text" "content")
 (cumulo-util.file/get-backup-path!)

meyvn.edn

@@ -1,7 +1,7 @@
 
 {:pom {:group-id "cumulo",
        :artifact-id "util",
-       :version "0.1.1-a3",
+       :version "0.1.1-a4",
        :name "Util functions for Cumulo projects"}
  :packaging {:jar {:enabled true
                    :remote-repository {:id "clojars"

src/cumulo_util/core.cljs

@@ -1,14 +1,14 @@
 
 (ns cumulo-util.core (:require ["shortid" :as shortid]))
 
-(defn delay! [duration task] (js/setTimeout task duration))
+(defn delay! [duration task] (js/setTimeout task (* 1000 duration)))
 
 (defn find-first [f xs] (reduce (fn [_ x] (when (f x) (reduced x))) nil xs))
 
 (defn get-env! [property] (aget (.-env js/process) property))
 
 (defn id! [] (.generate shortid))
 
-(defn repeat! [duration task] (js/setInterval task duration))
+(defn repeat! [duration task] (js/setInterval task (* 1000 duration)))
 
 (defn unix-time! [] (.valueOf (js/Date.)))