     a list of maps of history item
   Usage:
     (history client \"lapax/tiny-haproxy\")"
+  [client image]
   (let [{:keys [status body]} (dc/rpc-get client
-                                           (str "/images/" image "/history" ))]
-    (case status
-      200 (dc/parse-json client body)
-      404 (throw+ (:no-image exceptions))
-      500 (throw+ (:server-error exceptions))
-      (throw+ (:unspecified exceptions)))))
-
-(defn push [client image & {:keys [registry]}]
+                                          (str "/images/" image "/history" ))]
+    (case status
+      200 (dc/parse-json client body)
+      404 (throw+ (:no-image exceptions))
+      500 (throw+ (:server-error exceptions))
+      (throw+ (:unspecified exceptions)))))
+
+(defn push
   "Push the image on the registry
   Arguments:
     client  -  the initialized client for docker api

    a list with search results
  Usage:
    (search client \"sshd\")"
  (let [params {:term search-term}
        {:keys [status body]} (dc/rpc-get client
                                          (str "/images/search")

    (create client \"registry\")
    (create client \"registry\" :tag \"latest\")
  "
  [client image & {:keys [from-src repo tag registry]}]
  (let [params {:fromImage image
                :repo repo
                :tag tag
