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

🎉 Add backend code for viewer page.

Browse source
This commit is contained in:
Andrey Antukh 2020-04-02 17:04:00 +02:00
parent 9759cb9fd9
commit ec04bb4160
6 changed files with 109 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

20
backend/src/uxbox/services/queries/files.clj
View file

@ -192,6 +192,16 @@
inner join file as f on (p.id = f.project_id)
where f.id = $1")
(defn retrieve-file
[conn id]
(-> (db/query-one conn [sql:file id])
(p/then' su/raise-not-found-if-nil)
(p/then' decode-row)))
(defn retrieve-file-users
[conn id]
(db/query conn [sql:file-users id]))
(s/def ::file-with-users
(s/keys :req-un [::profile-id ::id]))
@ -199,10 +209,8 @@
[{:keys [profile-id id] :as params}]
(db/with-atomic [conn db/pool]
(check-edition-permissions! conn profile-id id)
(p/let [file (-> (db/query-one conn [sql:file id])
(p/then' su/raise-not-found-if-nil)
(p/then' decode-row))
users (db/query conn [sql:file-users id])]
(p/let [file (retrieve-file conn id)
users (retrieve-file-users conn id)]
(assoc file :users users))))
(s/def ::file
@ -212,9 +220,7 @@
[{:keys [profile-id id] :as params}]
(db/with-atomic [conn db/pool]
(check-edition-permissions! conn profile-id id)
(-> (db/query-one conn [sql:file id])
(p/then' su/raise-not-found-if-nil)
(p/then' decode-row))))
(retrieve-file conn id)))
;; --- Query: Project Files