From d40ed45a705c6d8cfc9f3dc37f9de13481298fe6 Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Thu, 10 Nov 2016 18:35:23 +0100
Subject: [PATCH] Add additional helper function for render page as svg.

---
 src/uxbox/main/exports.cljs | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/uxbox/main/exports.cljs b/src/uxbox/main/exports.cljs
index 261b51e830..4cf774fde2 100644
--- a/src/uxbox/main/exports.cljs
+++ b/src/uxbox/main/exports.cljs
@@ -64,3 +64,9 @@
   [id]
   (let [page (get-in @st/state [:pages id])]
     (mx/render-static-html (page-svg page))))
+
+(defn render-page*
+  [id]
+  (let [page (get-in @st/state [:pages id])]
+    (when (:shapes page)
+      (mx/render-static-html (page-svg page)))))