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

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

      rs/EffectEvent

;; Copyright (c) 2015-2016 Juan de la Cruz <delacruzgarciajuan@gmail.com>

(ns uxbox.data.projects
  (:require [cuerdas.core :as str]
            [promesa.core :as p]
            [beicon.core :as rx]
            [uxbox.rstore :as rs]
            [uxbox.router :as r]
            [uxbox.state :as st]
            [uxbox.schema :as sc]
            [uxbox.repo :as rp]
            [uxbox.util.datetime :as dt]
            [uxbox.state.project :as stpr]
            [uxbox.util.data :refer (without-keys)]))

