Properly select the first page on workspace first load after dashboard.

frontend/src/uxbox/main/data/pages.cljs

@@ -147,6 +147,9 @@
 ;; --- Pages Fetched
 
 (deftype PagesFetched [pages]
+  IDeref
+  (-deref [_] pages)
+
   ptk/UpdateEvent
   (update [_ state]
     (as-> state $

frontend/src/uxbox/main/data/projects.cljs

@@ -205,14 +205,31 @@
 
 ;; --- Go To & Go To Page
 
+(deftype GoToFirstPage [pages]
+  ptk/WatchEvent
+  (watch [_ state stream]
+    (let [[page & rest] (sort-by #(get-in % [:metadata :order]) pages)
+          params {:project (:project page)
+                  :page (:id page)}]
+      (rx/of (rt/navigate :workspace/page params)))))
+
+(defn go-to-first-page
+  [pages]
+  (GoToFirstPage. pages))
+
 (defrecord GoTo [project-id]
   ptk/WatchEvent
   (watch [_ state stream]
     (let [page-id (get-in state [:projects project-id :page-id])
           params {:project project-id
                   :page page-id}]
-      (rx/of (udp/fetch-pages project-id)
+      (rx/merge
-             (rt/navigate :workspace/page params)))))
+       (rx/of (udp/fetch-pages project-id))
+       (->> stream
+            (rx/filter udp/pages-fetched?)
+            (rx/take 1)
+            (rx/map deref)
+            (rx/map go-to-first-page))))))
 
 (defrecord GoToPage [project-id page-id]
   ptk/WatchEvent