Commit a594b2a7 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski

[graph explorer] styling for badges in sidebar

parent 66c58ed7
......@@ -193,9 +193,9 @@ onClickRemove rType props' nodesMap' e = do
badge :: R.State SigmaxT.NodeIds -> Record SigmaxT.Node -> R.Element
badge (_ /\ setNodeIds) {id, label} =
RH.a { className: "badge badge-light"
RH.a { className: "badge badge-pill badge-light"
, on: { click: onClick }
} [ RH.text label ]
} [ RH.h6 {} [ RH.text label ] ]
where
onClick e = do
setNodeIds $ const $ Set.singleton id
......
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