      17592186045637)
 
 ; all exercises not using the input equipment parameter.
-(d/q '[:find ?name
+#_(d/q '[:find ?name
        :in $ ?equipment
        :where
        (not-join [?e]

                 (str/join))]
    name))

(defn has-no-data? [url]
  (let [name (url->name url)
        x (d/q '[:find ?e
                 :in $ ?name

    (d/transact conn walking-tx))

;; Get the database value.
#_(def db (d/db conn))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

#_(defn image-url [name]
  (str "public/images/" (str/replace (str/lower-case name) " " "-") ".png"))

#_(defn has-no-image? [m]
  (if-not (io/resource (image-url m)) true false))

#_(defn url->name [url]
  (let [name (-> url
                 (str/split (re-pattern ".png"))
                 (first)
