   [name]
   (first (select heads
                  (where {:name name})
-                 ;; (with tentacles)
                  (limit 1))))
 
 (defn get-all-heads
   []
-  (select heads
-          ;; (with tentacles)
-          ))
+  (select heads))
+
+(defn get-heads-for-tentacle
+  [tentacle]
+  (select heads-by-tentacle
+          (where {:tentacle_name (:name tentacle)})))
 
 (defn save-head!
   [head]

;; both of the other tables you're attempting to look up. Getting from Heads to
;; Tentacles (or vice-versa) is now a set of left-joins. Easy peasy!
(defentity head-tentacle-mappings
  (prepare ->snake-keys)
  (transform ->kebab-keys)
  (belongs-to heads)
  (belongs-to tentacles))

(defn get-tentacle
  [name]


(defn get-tentacles-for-head
  [head]
  (select tentacles-by-head
          (where {:head_name (:name head)})))

(defn save-tentacle!
  [tentacle]
