   Usage:
     (tag client \"base\" :repo \"default\")
     (tag client \"base\" :repo \"default\" :force true)"
+  [client image & {:keys [repo force]
+                   :or {repo "default", force false}}]
   (let [params {:repo repo, :force force}
         {:keys [status body]} (dc/rpc-get client
                                           (str "/images/" image "/tag")

    a list of maps of history item
  Usage:
    (history client \"lapax/tiny-haproxy\")"
  (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]}]
  "Push the image on the registry
  Arguments:
    client  -  the initialized client for docker api

      (throw+ (merge (:unspecified exceptions)
                     {:response resp})))))

(defn delete
  "Remove image from filesystem
  Arguments:
    client - initialized docker client
