haskell/colonnade-old
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

stop showing rows for invalid columns

Browse Source
This commit is contained in:
Andrew Martin 2018-12-07 11:13:44 -05:00
parent 11ced47370
commit fa682cbfdc
No known key found for this signature in database
GPG Key ID: 4FEE56C538F773B4
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
reflex-dom-colonnade/src/Reflex/Dom/Colonnade.hs
View File

@ -671,7 +671,7 @@ expandablePreloaded (Bureau tableAttrs (E.Headed (theadAttrs,theadRowAttrs)) bod
vlen = V.length v
buildRow :: Dynamic t a -> Dynamic t Bool -> m (Event t e)
buildRow a visible = do
elist <- el "tr" $ E.rowMonadicWith [] (++) colonnade (fmap (\k -> [k]) . el "td") a
elist <- elDynAttr "tr" (fmap (bool hidden M.empty) visible) $ E.rowMonadicWith [] (++) colonnade (fmap (\k -> [k]) . el "td") a
let b = leftmost (map fst elist)
let e = map snd elist
shouldDisplay1 <- foldDyn const False b
@ -679,12 +679,14 @@ expandablePreloaded (Bureau tableAttrs (E.Headed (theadAttrs,theadRowAttrs)) bod
el "tr" $ do
let attrs = fmap
( bool
(M.fromList [("style","display:none;")])
hidden
(M.fromList [("colspan",T.pack (show vlen))])
) shouldDisplay2
elDynAttr "td" attrs (f a)
pure (mconcat e)
hidden :: Map Text Text
hidden = M.singleton "style" "display:none;"
-- | Table with cells that can create expanded content
-- between the rows.