From 43a1ca9fc07eab7e0359b9125e990834b2dce43f Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Sat, 9 Jul 2016 21:32:00 +0300
Subject: [PATCH] Cosmetic fixs on sitemap refs.

---
 src/uxbox/main/ui/workspace/sidebar/sitemap.cljs | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/src/uxbox/main/ui/workspace/sidebar/sitemap.cljs b/src/uxbox/main/ui/workspace/sidebar/sitemap.cljs
index 7c2a1a6d92..c9bb5ee096 100644
--- a/src/uxbox/main/ui/workspace/sidebar/sitemap.cljs
+++ b/src/uxbox/main/ui/workspace/sidebar/sitemap.cljs
@@ -29,12 +29,16 @@
 
 ;; --- Lenses
 
+(defn- resolve-page
+  [state]
+  (let [project (get-in state [:workspace :project])]
+    (->> (vals (:pages-by-id state))
+         (filter #(= project (:project %)))
+         (sort-by :created-at))))
+
 (def pages-l
-  (letfn [(getter [state]
-            (let [project (get-in state [:workspace :project])]
-              (stpr/project-pages state project)))]
-    (-> (l/lens getter)
-        (l/derive st/state))))
+  (-> (l/lens resolve-page)
+      (l/derive st/state)))
 
 ;; --- Component