       (-apply-update [_ state]
         (let [proj {:id uuid
                     :name name
-                    :created (time/now :unix)}]
+                    :created (dt/now)}]
           (stpr/assoc-project state proj)))
 
       rs/EffectEvent

;; Events
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defn create-page
  [{:keys [name width height project layout] :as data}]
  (sc/validate! +create-page-schema+ data)

    (-apply-update [_ state]
      (let [page {:id (random-uuid)
                  :project project
                  :created (dt/now)
                  :layout layout
                  :shapes []
                  :name name
