Commit 15446925 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski

[sidebar] tag cloud show more/less link in blue

parent 437dae32
...@@ -259,7 +259,8 @@ neighborhoodCpt = here.component "neighborhood" cpt ...@@ -259,7 +259,8 @@ neighborhoodCpt = here.component "neighborhood" cpt
, role: "tabpanel" , role: "tabpanel"
} }
((\node -> badge { maxSize, minSize, node, selectedNodeIds }) <$> displayBadges) <> ((\node -> badge { maxSize, minSize, node, selectedNodeIds }) <$> displayBadges) <>
RH.a { on: { click: toggleUnfold state} } [ RH.text stateText ] RH.a { className: "" -- with empty class name, bootstrap renders this blue
, on: { click: toggleUnfold state} } [ RH.text stateText ]
] ]
where where
toggleUnfold state = T.modify_ flipFold state toggleUnfold state = T.modify_ flipFold state
......
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