3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-05-15 14:36:38 +02:00
Code Issues Projects Releases Packages Wiki Activity

feat(backend): move almost all middlewares to api.middleware ns

Browse source
This commit is contained in:
Andrey Antukh 2019-06-13 21:25:09 +02:00
parent 2e9fb97a98
commit 210fbb9535
3 changed files with 106 additions and 95 deletions
Download patch file Download diff file Expand all files Collapse all files

26
backend/src/uxbox/api/pages.clj
View file

@ -26,9 +26,9 @@
"Create page for a project"
{:parameters {:body {:data [st/required]
:metadata [st/required]
:project [st/required st/uuid-str]
:project [st/required st/uuid]
:name [st/required st/string]
:id [st/uuid-str]}}}
:id [st/uuid]}}}
[{:keys [user parameters]}]
(let [data (get parameters :body)
message (assoc data :user user :type :create-page)]
@ -42,10 +42,10 @@
{:parameters {:path {:id [st/required st/uuid-str]}
:body {:data [st/required]
:metadata [st/required]
:project [st/required st/uuid-str]
:project [st/required st/uuid]
:name [st/required st/string]
:version [st/required st/integer]
:id [st/uuid-str]}}}
:id [st/uuid]}}}
[{:keys [user parameters]}]
(let [id (get-in parameters [:path :id])
data (get parameters :body)
@ -56,9 +56,9 @@
(defn update-metadata
"Update page metadata"
{:parameters {:path {:id [st/required st/uuid-str]}
:body {:id [st/required st/uuid-str]
:body {:id [st/required st/uuid]
:metadata [st/required]
:project [st/required st/uuid-str]
:project [st/required st/uuid]
:name [st/required st/string]}}}
[{:keys [user parameters]}]
(let [id (get-in parameters [:path :id])
@ -87,3 +87,17 @@
message (assoc data :id id :type :list-page-history :user user)]
(->> (sv/query message)
(p/map #(http/ok %)))))
(defn update-history
{:parameters {:path {:id [st/required st/uuid-str]
:hid [st/required st/uuid-str]}
:body {:label [st/required st/string]
::pinned [st/required st/boolean]}}}
[{:keys [user parameters]}]
(let [{:keys [id hid]} (get parameters :path)
message (assoc (get parameters :body)
:type :update-page-history
:id hid
:user user)]
(->> (sv/novelty message)
(p/map #(http/ok %)))))