Repositories view improvements
* show personal repos group before other groups * CSS tweaks
This commit is contained in:
parent
32392a4405
commit
1d49767da9
|
@ -38,15 +38,18 @@
|
||||||
|
|
||||||
(defn repos-list []
|
(defn repos-list []
|
||||||
(let [repos (rf/subscribe [:repos])
|
(let [repos (rf/subscribe [:repos])
|
||||||
user (rf/subscribe [:user])
|
user (rf/subscribe [:user])]
|
||||||
repo-groups (keys @repos)]
|
|
||||||
(fn []
|
(fn []
|
||||||
|
(let [repo-groups (sort-by identity (fn [a _] (= a (:login @user)))
|
||||||
|
(keys @repos))]
|
||||||
|
(println repo-groups)
|
||||||
(into [:div]
|
(into [:div]
|
||||||
(for [[group group-repos]
|
(for [[group group-repos]
|
||||||
(map (fn [group] [group (get @repos group)]) repo-groups)]
|
(map (fn [group] [group (get @repos group)])
|
||||||
[:div [repo-group-title group (:login @user)]
|
repo-groups)]
|
||||||
|
[:div.repo-group-title [repo-group-title group (:login @user)]
|
||||||
(into [:div.ui.cards]
|
(into [:div.ui.cards]
|
||||||
(map repo-card group-repos))])))))
|
(map repo-card group-repos))]))))))
|
||||||
|
|
||||||
|
|
||||||
(defn repos-page []
|
(defn repos-page []
|
||||||
|
|
|
@ -149,6 +149,10 @@ span.dropdown.icon {
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
.repo-group-title {
|
||||||
|
margin-bottom: 1.5em;
|
||||||
|
}
|
||||||
|
|
||||||
.repo-label {
|
.repo-label {
|
||||||
color: #1bb5c1;
|
color: #1bb5c1;
|
||||||
font-family: 'postgrotesk-medium';
|
font-family: 'postgrotesk-medium';
|
||||||
|
|
Loading…
Reference in New Issue