   "Remove any ignored properties from the entry."
   [entry]
   (apply dissoc entry ignored-properties))
+
+(defn- publish-props
+  "Provide properties for an initially published entry."
+  [entry timestamp author]
+  (if (= (:status entry) "published")
+    (-> entry
+      (assoc :published-at timestamp)
+      (assoc :publisher author))
+    entry))
 
 ;; ----- Entry CRUD -----
 

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


(def ignored-properties
  "Properties of a resource that are ignored during an update."
  (disj reserved-properties :board-uuid :status))

;; ----- Utility functions -----

