Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-11 01:28:30 -05:00
Code Issues Activity

Remove IPrintWritter impl from dashboard events.

Browse source
This commit is contained in:
Andrey Antukh 2016-03-15 20:55:02 +02:00
parent 7a6bcb5d47
commit e631d2a3ef
1 changed files with 11 additions and 55 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

66
src/uxbox/data/dashboard.cljs
View file

@ -63,44 +63,28 @@
(assoc-in $ [:dashboard :section] section)
(update $ :dashboard merge-if-not-exists
{:collection-type :builtin
:collection-id 1})))
IPrintWithWriter
(-pr-writer [mv writer _]
(-write writer "#<event:u.d.d/initialize>"))))
:collection-id 1})))))
(defn set-project-ordering
[order]
(reify
rs/UpdateEvent
(-apply-update [_ state]
(assoc-in state [:dashboard :project-order] order))
IPrintWithWriter
(-pr-writer [mv writer _]
(-write writer "#<event:u.d.d/set-project-ordering>"))))
(assoc-in state [:dashboard :project-order] order))))
(defn set-project-filtering
[term]
(reify
rs/UpdateEvent
(-apply-update [_ state]
(assoc-in state [:dashboard :project-filter] term))
IPrintWithWriter
(-pr-writer [mv writer _]
(-write writer "#<event:u.d.d/set-project-filtering>"))))
(assoc-in state [:dashboard :project-filter] term))))
(defn clear-project-filtering
[]
(reify
rs/UpdateEvent
(-apply-update [_ state]
(assoc-in state [:dashboard :project-filter] ""))
IPrintWithWriter
(-pr-writer [mv writer _]
(-write writer "#<event:u.d.d/clear-project-filtering>"))))
(assoc-in state [:dashboard :project-filter] ""))))
(defn set-collection-type
[type]
@ -115,22 +99,14 @@
(-apply-update [_ state]
(as-> state $
(assoc-in $ [:dashboard :collection-type] type)
(select-first $)))
IPrintWithWriter
(-pr-writer [mv writer _]
(-write writer "#<event:u.d.d/set-collection-type>")))))
(select-first $))))))
(defn set-collection
[id]
(reify
rs/UpdateEvent
(-apply-update [_ state]
(assoc-in state [:dashboard :collection-id] id))
IPrintWithWriter
(-pr-writer [mv writer _]
(-write writer "#<event:u.d.d/set-collection>"))))
(assoc-in state [:dashboard :collection-id] id))))
(defn mk-color-collection
[]
@ -143,22 +119,14 @@
(-> state
(assoc-in [:colors-by-id id] coll)
(assoc-in [:dashboard :collection-id] id)
(assoc-in [:dashboard :collection-type] :own))))
IPrintWithWriter
(-pr-writer [mv writer _]
(-write writer "#<event:u.d.d/mk-color-collection>"))))
(assoc-in [:dashboard :collection-type] :own))))))
(defn rename-color-collection
[id name]
(reify
rs/UpdateEvent
(-apply-update [_ state]
(assoc-in state [:colors-by-id id :name] name))
IPrintWithWriter
(-pr-writer [mv writer _]
(-write writer "#<event:u.d.d/rename-color-collection>"))))
(assoc-in state [:colors-by-id id :name] name))))
(defn delete-color-collection
[id]
@ -167,11 +135,7 @@
(-apply-update [_ state]
(let [state (update state :colors-by-id dissoc id)
colls (sort-by :id (vals (:colors-by-id state)))]
(assoc-in state [:dashboard :collection-id] (:id (first colls)))))
IPrintWithWriter
(-pr-writer [mv writer _]
(-write writer "#<event:u.d.d/rename-color-collection>"))))
(assoc-in state [:dashboard :collection-id] (:id (first colls)))))))
(defn replace-color
"Add or replace color in a collection."
@ -185,11 +149,7 @@
(disj $ from)
(conj $ to)
(assoc-in state [:colors-by-id id :colors] $))
state))
IPrintWithWriter
(-pr-writer [mv writer _]
(-write writer "#<event:u.d.d/replace-color>"))))
state))))
(defn remove-color
"Remove color in a collection."
@ -202,9 +162,5 @@
(as-> colors $
(disj $ color)
(assoc-in state [:colors-by-id id :colors] $))
state))
IPrintWithWriter
(-pr-writer [mv writer _]
(-write writer "#<event:u.d.d/remove-color>"))))
state))))