Commit 911f5778 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[Forest][Box] CSS fix.

parent 0ec239cd
...@@ -179,8 +179,19 @@ li:hover a#rename-leaf { ...@@ -179,8 +179,19 @@ li:hover a#rename-leaf {
padding-right: 6px; padding-right: 6px;
} }
.tagDoc { .flex {
display: flex; display: flex;
} }
.flex-end {
display: flex;
justify-content: flex-end;
}
.flex-center {
display: flex;
flew-wrap: wrap;
justify-content: center;
}
/*# sourceMappingURL=Login.css.map */ /*# sourceMappingURL=Login.css.map */
...@@ -171,5 +171,15 @@ li ...@@ -171,5 +171,15 @@ li
.reload-btn .reload-btn
padding-right: 6px padding-right: 6px
.tagDoc .flex
display: flex display: flex
.flex-end
display: flex
justify-content: flex-end
.flex-center
display: flex
flew-wrap: wrap
justify-content: center
...@@ -74,7 +74,7 @@ cat2score Topic = 3 ...@@ -74,7 +74,7 @@ cat2score Topic = 3
cat2score Favorite = 4 cat2score Favorite = 4
-- caroussel :: Category -> R.Element -- caroussel :: Category -> R.Element
caroussel session nodeId setLocalCategories r cat = H.div {className:"tagDoc"} divs caroussel session nodeId setLocalCategories r cat = H.div {className:"flex"} divs
where where
divs = map (\c -> if cat == c divs = map (\c -> if cat == c
then then
......
...@@ -236,13 +236,15 @@ nodePopupView d p mPop@(Just NodePopup /\ setPopupOpen) = R.createElement el p [ ...@@ -236,13 +236,15 @@ nodePopupView d p mPop@(Just NodePopup /\ setPopupOpen) = R.createElement el p [
H.div {className: "row" } H.div {className: "row" }
[ [
H.div {className: "col-md-8"} [ renameBox d {id, name, nodeType} renameBoxOpen ] H.div {className: "col-md-8"} [ renameBox d {id, name, nodeType} renameBoxOpen ]
, if edit then editIcon renameBoxOpen else H.div {} [] , H.div {className: "flex-end"} [
if edit then editIcon renameBoxOpen else H.div {} []
, H.div {className: "col-md-1"} , H.div {className: "col-md-1"}
[ H.a { "type" : "button" [ H.a { "type" : "button"
, className: glyphicon "remove-circle" , className: glyphicon "remove-circle"
, onClick: mkEffectFn1 $ \_ -> setPopupOpen $ const Nothing , onClick: mkEffectFn1 $ \_ -> setPopupOpen $ const Nothing
, title: "Close"} [] , title: "Close"} []
] ]
]
] ]
] ]
where where
...@@ -267,9 +269,9 @@ nodePopupView d p mPop@(Just NodePopup /\ setPopupOpen) = R.createElement el p [ ...@@ -267,9 +269,9 @@ nodePopupView d p mPop@(Just NodePopup /\ setPopupOpen) = R.createElement el p [
} }
} }
$ $
[H.div {className: "col-md-1"} []] -- [H.div {className: "col-md-1"} []]
<> -- <>
(map (buttonClick nodePopupState d) buttons) [H.div {className: "flex-center"} (map (buttonClick nodePopupState d) buttons)]
searchPanel id session = searchPanel id session =
H.div { className: "panel panel-default" H.div { className: "panel panel-default"
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment