           clean
           (assoc :uuid (db-common/unique-id))
           (assoc :secure-uuid (db-common/unique-id))
-          (assoc :status "draft")
+          (update :status #(or % "draft"))
           (assoc :topic-slug topic-slug)
           (update :topic-name #(or % nil))
           (update :headline #(or % ""))

  "Remove any ignored properties from the entry."
  [entry]
  (apply dissoc entry ignored-properties))

;; ----- Entry CRUD -----


          (assoc :board-uuid board-uuid)
          (assoc :author [(assoc author :updated-at ts)])
          (assoc :created-at ts)
          (assoc :updated-at ts)
          (publish-props ts author)))
    (throw (ex-info "Invalid board uuid." {:board-uuid board-uuid})))) ; no board

(schema/defn ^:always-validate create-entry! :- (schema/maybe common/Entry)
