Commit 3e8ac0e1 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[DESIGN] backend manager (closing).

parent 2389034c
...@@ -35,6 +35,7 @@ plus :: R2.Setter Boolean -> R.Element ...@@ -35,6 +35,7 @@ plus :: R2.Setter Boolean -> R.Element
plus showLogin = plus showLogin =
H.button {on: {click}} H.button {on: {click}}
[ H.i { className: "glyphicon glyphicon-plus"} [] ] [ H.i { className: "glyphicon glyphicon-plus"} [] ]
-- TODO [ H.i { className: "material-icons md-36"} [] ]
where where
click _ = do click _ = do
showLogin (const true) showLogin (const true)
...@@ -63,7 +63,11 @@ modalCpt = R.hooksComponent "G.C.Login.modal" cpt where ...@@ -63,7 +63,11 @@ modalCpt = R.hooksComponent "G.C.Login.modal" cpt where
closing = H.button { "type": "button", className: "close" closing = H.button { "type": "button", className: "close"
, "data": { dismiss: "modal" } } , "data": { dismiss: "modal" } }
[ H.span { on: {click} } [ H.text "X" ] ] [ H.a { on: {click}
, className: "btn glyphicon glyphicon-remove-circle"
-- TODO , font-size : "50px"
} []
]
......
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