   (transform-keys ->snake_case_keyword fields))
 
 (defdb main (postgres
-             (select-keys (:database (server-config))
+             (select-keys (get-in (server-config) [:database :dev])
                           [:db :user :password :host :port])))
 
 (declare head-tentacle-mappings)

  [name]
  (first (select heads
                 (where {:name name})
                 ;; (with tentacles)
                 (limit 1))))

(defn get-all-heads
  []
  (select heads
          ;; (with tentacles)
          ))

(defn save-head!
  [head]


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

(defn save-tentacle!
  [tentacle]
