       tile-spec)))
 
 (defn index-entry
-   "Creates an index entry."
+   "Converts a tile-spec to an index entry."
   [tile-spec]
   (str (json/write-str {"index" {"_retry_on_conflict" 3}}) "\n"
        (json/write-str tile-spec) "\n"))
 
 (defn clear
-  "Clears the tile-spec-index"
+  "Clears the tile-spec index"
   []
   (es/clear! (url)))
 
 (defn search
-  "Submits a supplied query to the ubid index, which should conform to the
-   elasticsearch query syntax. Returns a clojure dictionary of the raw results"
+  "Submits a query to the index.  Query should conform to elasticsearch
+   querystring query syntax. Returns map of raw results"
   ([query]
    (search (search-api-url) query))
 

(ns lcmap.aardvark.tile-spec-index
  "Search index for tile-spec ubids (universal band ids)."
  (:require [lcmap.aardvark.config :refer [config]]
            [lcmap.aardvark.es :as es]
            [lcmap.aardvark.tile-spec :as tile-spec]

  (str (url) "/_search"))

(defn +tags
  "Appends additional tags to a tile-spec"
  [tile-spec]
  (let [ubid-tags (str/split (:ubid tile-spec) #"/|_")]
    (if (> (count ubid-tags) 1)
