From 69e9247fb68e275833898b34a21a3d3f197b45c0 Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Wed, 27 Nov 2019 15:32:29 +0100
Subject: [PATCH] :tada: Add a query impl for retrieve a single page by id.

---
 backend/src/uxbox/services/pages.clj | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/backend/src/uxbox/services/pages.clj b/backend/src/uxbox/services/pages.clj
index 30b64c7db..d15d99f2c 100644
--- a/backend/src/uxbox/services/pages.clj
+++ b/backend/src/uxbox/services/pages.clj
@@ -53,6 +53,24 @@
     (-> (db/query db/pool [sql project-id user])
         (p/then #(mapv decode-row %)))))
 
+;; --- Query: Page by Id
+
+(s/def ::page
+  (s/keys :req-un [::user ::id]))
+
+(sv/defquery :page
+  {:doc "Retrieve page by id."
+   :spec ::page}
+  [{:keys [user id] :as params}]
+  (let [sql "select pg.*,
+                    pg.data,
+                    pg.metadata
+               from pages as pg
+              where pg.user_id = $2
+                and pg.id = $1
+                and pg.deleted_at is null"]
+    (-> (db/query-one db/pool [sql id user])
+        (p/then' decode-row))))
 
 ;; --- Query: Page History