 (defentity heads
   (pk :name)
   (prepare add-date-fields)
-  (prepare #(transform-keys ->snake_case_keyword %))
-  (transform #(transform-keys ->kebab-case-keyword %))
+  (prepare ->snake-keys)
+  (transform ->kebab-keys)
   (has-many tentacles {:fk :head_name}))
 
 (defn get-tentacle

    (if (:created new-fields) new-fields
      (assoc new-fields :created now-string))))

(defdb db (sqlite3
           (select-keys (:database (server-config)) [:db :user :password])))


            (if html-commands
              (assoc tentacle :html-commands (string/join "\n" html-commands))
              tentacle)))
  (prepare ->snake-keys)
  (transform ->kebab-keys)
  (transform (fn [{html-commands :html-commands :as tentacle}]
              (if html-commands
                (assoc tentacle :html-commands (split-lines html-commands))
