 
 (def ^{:dynamic true} *cache-root* (:assets OVERTONE-DIRS))
 
-(defn safe-url
+(defn- safe-url
   "Replace all non a-z A-Z 0-9 - chars in stringified version of url with _"
   [url]
   (let [url  (str url)

        (throw e)))))

(defn asset-seq
  "Returns a seq of asset names for a specific url"
  [url]
  (let [dir (cache-dir url)
        dir (file dir)]
    (ls-names dir)))

(defn asset
  "Given a url will return a path to a copy of the asset on the local file
  system. Will download and persist the asset if necessary."
  ([url] (asset url (last (split url #"/"))))
  ([url name]
     (if-let [path (fetch-cached-path url name)]
       path

        (rm-rf! dest-dir)
        (throw e)))))

(defn bundled-asset-path
  "Given a url to a remote zipfile and either a / separated internal path or seq
  of strings will return a path to a copy of the internal extracted asset on the
  local file system. Will download, extract and persist all the assets of the
