     (if (:created new-fields) new-fields
       (assoc new-fields :created now-string))))
 
+(defn- ->kebab-keys
+  [fields]
+  (transform-keys ->kebab-case-keyword fields))
+
+(defn- ->snake-keys
+  [fields]
+  (transform-keys ->snake_case_keyword fields))
+
 (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 #(transform-keys ->snake_case_keyword %))
  (transform #(transform-keys ->kebab-case-keyword %))
  (transform (fn [{html-commands :html-commands :as tentacle}]
              (if html-commands
                (assoc tentacle :html-commands (split-lines html-commands))

(defentity heads
  (pk :name)
  (prepare add-date-fields)
  (prepare ->snake-keys)
  (transform ->kebab-keys)
  (has-many tentacles {:fk :head_name}))

(defn get-tentacle
