 
 (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
 

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

;;; Task API


      (rc/tags repository-name)
      :tags))

(defn registry-ports
  [registry-id repository-name repository-tag]
  (-> (registry registry-id)
      (rc/manifest repository-name repository-tag)
      (rmi/->repository-config)
      :config
