Repositories view improvements

* show personal repos group before other groups
* CSS tweaks

src/cljs/commiteth/repos.cljs

@@ -38,15 +38,18 @@
 
 (defn repos-list []
   (let [repos (rf/subscribe [:repos])
-        user (rf/subscribe [:user])
-        repo-groups (keys @repos)]
+        user (rf/subscribe [:user])]
     (fn []
+      (let [repo-groups (sort-by identity (fn [a _] (= a (:login @user)))
+                                 (keys @repos))]
+        (println repo-groups)
         (into [:div]
               (for [[group group-repos]
-                  (map (fn [group] [group (get @repos group)]) repo-groups)]
-              [:div [repo-group-title group (:login @user)]
+                    (map (fn [group] [group (get @repos group)])
+                         repo-groups)]
+                [:div.repo-group-title [repo-group-title group (:login @user)]
                  (into [:div.ui.cards]
-                     (map repo-card group-repos))])))))
+                       (map repo-card group-repos))]))))))
 
 
 (defn repos-page []

src/less/style.less

@@ -149,6 +149,10 @@ span.dropdown.icon {
     }
 }
 
+.repo-group-title {
+    margin-bottom: 1.5em;
+}
+
 .repo-label {
     color: #1bb5c1;
     font-family: 'postgrotesk-medium';