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

; that can be reached by logic and by joins. These things are pretty much chocolate and
; peanut butter, and the mixing of the two is the way to go!

(d/q '[:find (pull ?p [:part/name])
       :in $ ?template-name
       :where
       [?e :template/title ?template-name]

;;;;; data queries ;;;;;;

; find all categories a movement belongs to
#_(d/q '[:find ?category-name
       :in $ ?movement-name
       :where
       [?e :movement/name ?movement-name]
