Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-04-16 08:51:32 -05:00
Code Issues Activity

Move state related helpers out of data.* namespaces.

Browse source
This commit is contained in:
Andrey Antukh 2016-02-21 20:29:10 +02:00
parent 15bd7b0939
commit 190aced819
2 changed files with 44 additions and 32 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

44
src/uxbox/data/projects.cljs
View file

@ -6,58 +6,38 @@
[uxbox.state :as st]
[uxbox.schema :as sc]
[uxbox.time :as time]
[uxbox.state.project :as stpr]
[uxbox.util.data :refer (without-keys)]))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Schemas
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; FIXME use only one ns for validators
(def ^:static +project-schema+
{:name [v/required v/string]
:width [v/required v/integer]
:height [v/required v/integer]
:layout [v/required sc/keyword]})
:layout [sc/keyword]})
(def ^:static +page-schema+
(def ^:static +create-page-schema+
{:name [v/required v/string]
:layout [sc/keyword]
:width [v/required v/integer]
:height [v/required v/integer]
:project [v/required sc/uuid]})
(def ^:static +update-page-schema+
{:name [v/required v/string]
:width [v/required v/integer]
:height [v/required v/integer]
:layout [sc/keyword]})
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Helpers
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defn assoc-project
"A reduce function for assoc the project
to the state map."
[state proj]
(let [uuid (:id proj)]
(update-in state [:projects-by-id] assoc uuid proj)))
(defn dissoc-project
"A reduce function for dissoc the project
from the state map."
[state proj]
(let [uuid (:id proj)]
(update-in state [:projects-by-id] dissoc uuid)))
(defn assoc-page
"A reduce function for assoc the page
to the state map."
[state page]
(let [uuid (:id page)]
(update-in state [:pages-by-id] assoc uuid page)))
(defn project-pages
"Get a ordered list of pages that
belongs to a specified project."
[state projectid]
(->> (vals (:pages-by-id state))
(filter #(= projectid (:project %)))
(sort-by :created)
(into [])))
(defn sort-projects-by
[ordering projs]
(case ordering

32
src/uxbox/state/project.cljs Normal file
View file

@ -0,0 +1,32 @@
(ns uxbox.state.project
"A collection of functions for manage shapes insinde the state.")
(defn assoc-project
"A reduce function for assoc the project
to the state map."
[state proj]
(let [uuid (:id proj)]
(update-in state [:projects-by-id] assoc uuid proj)))
(defn dissoc-project
"A reduce function for dissoc the project
from the state map."
[state proj]
(let [uuid (:id proj)]
(update-in state [:projects-by-id] dissoc uuid)))
(defn assoc-page
"A reduce function for assoc the page
to the state map."
[state page]
(let [uuid (:id page)]
(update-in state [:pages-by-id] assoc uuid page)))
(defn project-pages
"Get a ordered list of pages that
belongs to a specified project."
[state projectid]
(->> (vals (:pages-by-id state))
(filter #(= projectid (:project %)))
(sort-by :created)))