From aae868dba89032a637414ab4d6b93ac601222fa1 Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Sat, 9 Jul 2016 16:38:24 +0300
Subject: [PATCH] Define a viewer-page component using new defc syntax.

---
 src/uxbox/view/ui/viewer.cljs | 26 ++++++++++----------------
 1 file changed, 10 insertions(+), 16 deletions(-)

diff --git a/src/uxbox/view/ui/viewer.cljs b/src/uxbox/view/ui/viewer.cljs
index d99fad19e..df73497e4 100644
--- a/src/uxbox/view/ui/viewer.cljs
+++ b/src/uxbox/view/ui/viewer.cljs
@@ -14,7 +14,7 @@
             [uxbox.util.i18n :refer (tr)]
             [uxbox.util.rstore :as rs]
             [uxbox.util.router :as rt]
-            [uxbox.util.mixins :as mx]
+            [uxbox.util.mixins :as mx :include-macros true]
             [uxbox.main.ui.icons :as i]
             [uxbox.main.state :as st]
             [uxbox.view.data.viewer :as dv]
@@ -47,21 +47,15 @@
   (remove-watch token-ref ::wkey)
   own)
 
-(defn viewer-page-render
+(mx/defc viewer-page
+  {:mixins [mx/static rum/reactive]
+   :will-unmount viewer-page-will-unmount
+   :will-mount viewer-page-will-mount}
   [own]
   (let [flags (rum/react flags-ref)
         sitemap? (contains? flags :sitemap)]
-    (html
-     [:section.view-content
-      (when sitemap?
-        (sitemap))
-      (nav flags)
-      (canvas)])))
-
-(def viewer-page
-  (mx/component
-   {:render viewer-page-render
-    :will-mount viewer-page-will-mount
-    :will-unmount viewer-page-will-unmount
-    :name "viewer-page"
-    :mixins [mx/static rum/reactive]}))
+    [:section.view-content
+     (when sitemap?
+       (sitemap))
+     (nav flags)
+     (canvas)]))