 
 (defn public-tags
   [repository-name]
-  (let [token (:token (dac/token nil repository-name))]
-    (->> (drc/tags token repository-name)
-         :tags)))
+  (dockeruser-tags nil repository-name))
+
+(defn public-ports
+  [repository-name repository-tag]
+  (dockeruser-ports nil repository-name repository-tag))
 
 ;;; Registry API
 

    (->> (drc/tags token repository-name)
         :tags)))

(defn dockerhub-ports
  [repository-name repository-tag dockeruser-name]
  (let [user (dockeruser-by-username dockeruser-name)
        token (:token (dac/token user repository-name))]
    (-> (drc/manifest token repository-name repository-tag)
        (rmi/->repository-config)

      (-> (cc/dockeruser id)
          (dac/token name)
          :token
          (drc/distribution name tag))
      (-> (cc/registry id)
          (rc/distribution name tag))) [:config :digest]))

;;; Task API

