Commit a983df66 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[FOREST] CSS.

parent bbadc949
...@@ -55,7 +55,7 @@ renameBox d p (true /\ setRenameBoxOpen) = R.createElement el p [] ...@@ -55,7 +55,7 @@ renameBox d p (true /\ setRenameBoxOpen) = R.createElement el p []
renameBox _ p (false /\ _) = R.createElement el p [] renameBox _ p (false /\ _) = R.createElement el p []
where where
el = R.hooksComponent "RenameBox" cpt el = R.hooksComponent "RenameBox" cpt
cpt {name} _ = pure $ H.div {} [ H.text name ] cpt {name} _ = pure $ H.div {} []
-- END Rename Box -- END Rename Box
......
...@@ -195,8 +195,8 @@ nodePopupView d p mPop@(Just NodePopup /\ setPopupOpen) = R.createElement el p [ ...@@ -195,8 +195,8 @@ nodePopupView d p mPop@(Just NodePopup /\ setPopupOpen) = R.createElement el p [
[ H.div { className: "panel panel-default" } [ H.div { className: "panel panel-default" }
[ H.div {className: ""} [ H.div {className: ""}
[ H.div { className : "col-md-11"} [ H.div { className : "col-md-11"}
[ H.h3 { className: fldr nodeType true} [] [ H.h3 { className: fldr nodeType true} [H.text $ show nodeType]
, H.div {} [ H.text $ show nodeType ] , H.p {className: "text-primary center"} [H.text name]
] ]
] ]
, panelHeading renameBoxOpen , panelHeading renameBoxOpen
...@@ -231,28 +231,30 @@ nodePopupView d p mPop@(Just NodePopup /\ setPopupOpen) = R.createElement el p [ ...@@ -231,28 +231,30 @@ nodePopupView d p mPop@(Just NodePopup /\ setPopupOpen) = R.createElement el p [
panelHeading renameBoxOpen@(open /\ _) = panelHeading renameBoxOpen@(open /\ _) =
H.div {className: "panel-heading"} H.div {className: "panel-heading"}
[ -- H.h1 {className : "col-md-12"} [H.text "Settings Box"] [ 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 ]
, H.div {className: "flex-end"} [ , H.div {className: "flex-end"}
if edit then editIcon renameBoxOpen else H.div {} [] [ 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
, title: "Close"} [] $ \_ -> setPopupOpen $ const Nothing
] , title : "Close"} []
] ]
] ]
] ]
]
where where
editIcon (false /\ setRenameBoxOpen) = editIcon (false /\ setRenameBoxOpen) =
H.div {className: "col-md-1"} H.div {className : "col-md-1"}
[ H.a { className: glyphicon "pencil" [ H.a { className: glyphicon "pencil"
, id: "rename1" , id : "rename1"
, title: "Rename" , title : "Rename"
, onClick: mkEffectFn1 $ \_ -> setRenameBoxOpen $ const true , onClick : mkEffectFn1
$ \_ -> setRenameBoxOpen $ const true
} }
[] []
] ]
......
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