 (def toolserver-bbox-format-url
   "http://toolserver.org/~erfgoed/api/api.php?action=search&format=json&limit=5000&props=lat|lon|name|registrant_url|id|image|lang|monument_article&bbox=%s")
 (def wm-thumbnail-format-url
-  "<img src=\"https://commons.wikimedia.org/w/index.php?title=Special%3AFilePath&file=%s&width=250\" />")
+  "<img src=\"https://commons.wikimedia.org/w/index.php?title=Special%%3AFilePath&file=%s&width=250\" />")
 (def wm-img-format-url
   "<a href=\"http://commons.wikimedia.org/wiki/File:%s\" target=\"_blank\">%s</a>")
 (def wp-link-format-url

  "Source: <a href=\"%s\" target=\"_blank\">%s</a>")

(defn- make-monuments-list [monuments]
  (map #(when (and (not (nil? (:lat %)))
                   (not (nil? (:lon %)))
                   (not (or (nil? (:name %)) (= "" (:name %)))))
          (let [reg (:registrant_url %)
                id (:id %)
                nam (cleanup-name (:name %))
                imc (:image %)
                img (codec/url-encode imc)
                lng (:lang %)
                emb (format wm-thumbnail-format-url img)
                ilk (format wm-img-format-url img emb)
                art (:monument_article %)
                arl (format wp-link-format-url lng (codec/url-encode art) art)
                src (format src-format-url reg id)
                all (str "<h3>" nam "</h3>"
                         (when (not (= "" imc)) (str ilk "<br/>"))
                         (when (not (= "" art)) (str arl "<br/>"))
                         (when (not (= "" reg)) src))]
            (list %2 (list (:lat %) (:lon %)) (= "" imc) all)))
       monuments
       (range 100000)))


        rset (str cntry srlang)
        res (json/read-str (slurp req) :key-fn keyword)
        next (or (:srcontinue (:continue res)) "")]
    (doseq [l (make-monuments-list (:monuments res))]
      (wcar* (car/hset rset (first l) (rest l))))
    (let [all (wcar* (car/hvals rset))
          size (count all)
          rep (first all)
