From 1cee1f4b01298a287a674148072ec9fde30d3218 Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Tue, 15 Dec 2015 11:22:04 +0200
Subject: [PATCH] Add new pages.

---
 frontend/uxbox/router.cljs      |  3 ++
 frontend/uxbox/ui.cljs          | 15 +++++-----
 frontend/uxbox/ui/elements.cljs | 52 +++++++++++++++++++++++++++++++++
 frontend/uxbox/ui/header.cljs   |  3 ++
 4 files changed, 66 insertions(+), 7 deletions(-)
 create mode 100644 frontend/uxbox/ui/elements.cljs

diff --git a/frontend/uxbox/router.cljs b/frontend/uxbox/router.cljs
index 290dcca76..76393a8ff 100644
--- a/frontend/uxbox/router.cljs
+++ b/frontend/uxbox/router.cljs
@@ -60,6 +60,9 @@
                ["auth/register" :auth/register]
                ["auth/recover" :auth/recover-password]
                ["dashboard" :main/dashboard]
+               ["elements" :main/elements]
+               ["icons" :main/icons]
+               ["colors" :main/colors]
                ["workspace/" [[project-route :main/project]
                               [page-route :main/page]]]]])
 
diff --git a/frontend/uxbox/ui.cljs b/frontend/uxbox/ui.cljs
index c3eb007a3..5f363c737 100644
--- a/frontend/uxbox/ui.cljs
+++ b/frontend/uxbox/ui.cljs
@@ -7,9 +7,10 @@
             [uxbox.util :as util]
             [uxbox.data.projects :as dp]
             [uxbox.ui.lightbox :as ui.lb]
-            [uxbox.ui.users :as ui.u]
+            [uxbox.ui.users :as ui.users]
+            [uxbox.ui.elements :as ui.elements]
             [uxbox.ui.workspace :as ui.w]
-            [uxbox.ui.dashboard :as ui.d]))
+            [uxbox.ui.dashboard :as ui.dashboard]))
 
 (def ^:static state
   (as-> (l/select-keys [:location :location-params]) $
@@ -22,11 +23,11 @@
      [:section
       (ui.lb/lightbox)
       (case location
-        :auth/login (ui.u/login)
-        ;; :auth/register (u/register)
-        ;; :auth/recover (u/recover-password)
-        :main/dashboard (ui.d/dashboard)
-        ;; :main/project (ui.w/workspace (:project-uuid location-params))
+        :auth/login (ui.users/login)
+        :main/dashboard (ui.dashboard/dashboard)
+        :main/elements (ui.elements/elements)
+        :main/icons (ui.elements/icons)
+        :main/colors (ui.elements/colors)
         :main/page (let [projectid (:project-uuid location-params)
                          pageid (:page-uuid location-params)]
                      (rs/emit! (dp/initialize-workspace projectid pageid))
diff --git a/frontend/uxbox/ui/elements.cljs b/frontend/uxbox/ui/elements.cljs
new file mode 100644
index 000000000..5bc1c9f05
--- /dev/null
+++ b/frontend/uxbox/ui/elements.cljs
@@ -0,0 +1,52 @@
+(ns uxbox.ui.elements
+  (:require [sablono.core :as html :refer-macros [html]]
+            [rum.core :as rum]
+            [uxbox.ui.header :as ui.header]
+            [uxbox.util :as util]))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Elements
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(defn elements-render
+  [own]
+  (html
+   [:main.dashboard-main
+    (ui.header/header)
+    [:p "FOOO"]]))
+
+(def elements
+  (util/component
+   {:render elements-render
+    :name "elements"
+    :mixins [rum/static]}))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Icons
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(defn icons-render
+  [own]
+  (html
+   [:p "hello icons"]))
+
+(def icons
+  (util/component
+   {:render icons-render
+    :name "icons"
+    :mixins [rum/static]}))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Colors
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(defn colors-render
+  [own]
+  (html
+   [:p "hello colors"]))
+
+(def colors
+  (util/component
+   {:render colors-render
+    :name "colors"
+    :mixins [rum/static]}))
diff --git a/frontend/uxbox/ui/header.cljs b/frontend/uxbox/ui/header.cljs
index 4f22b5692..3a285b0cb 100644
--- a/frontend/uxbox/ui/header.cljs
+++ b/frontend/uxbox/ui/header.cljs
@@ -13,6 +13,9 @@
    [:header#main-bar.main-bar
     [:div.main-logo
      (nav/link "/" i/logo)]
+    [:ul
+     [:li "foo"]
+     [:li "bar"]]
     (ui.u/user)]))
 
 (def ^:static header