0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-26 08:45:34 -05:00

Remove state.colors namespace.

This commit is contained in:
Andrey Antukh 2016-09-22 22:25:39 +03:00
parent 0a2d774b5e
commit 130895f2c3
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95

View file

@ -1,22 +0,0 @@
(ns uxbox.main.state.colors
"A collection of functions for manage dashboard data insinde the state.")
(defn assoc-collection
"A reduce function for assoc the color collection
to the state map."
[state coll]
(let [id (:id coll)]
(assoc-in state [:colors-by-id id] coll)))
(defn dissoc-collection
"A reduce function for dissoc the color collection
to the state map."
[state id]
(update state :colors-by-id dissoc id))
(defn select-first-collection
"A reduce function for select the first color collection
to the state map."
[state]
(let [colls (sort-by :id (vals (:colors-by-id state)))]
(assoc-in state [:dashboard :collection-id] (:id (first colls)))))