haskell/colonnade
1
0
Fork 1
mirror of https://github.com/byteverse/colonnade.git synced 2026-09-08 04:43:50 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

make paginatedExpandable actually hide stuff

Browse Source
This commit is contained in:
Andrew Martin 2017-09-28 16:55:16 -04:00
parent 2d5ae3851a
commit 8c0faf9ae2
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -659,8 +659,13 @@ paginatedExpandable (Bureau tableAttrs theadAttrs bodyAttrs trAttrs) (Pagination
hideWhenUnipage = zipDynWith hideWhenUnipage = zipDynWith
( \ct attrs -> if ct > 1 then attrs else M.insert "style" "display:none;" attrs ( \ct attrs -> if ct > 1 then attrs else M.insert "style" "display:none;" attrs
) totalPages ) totalPages
trAttrsLifted :: Visible a -> Dynamic t (Map Text Text) -- trAttrsLifted :: Visible a -> Dynamic t (Map Text Text)
trAttrsLifted (Visible _ a) = trAttrs a -- trAttrsLifted (Visible _ a) = trAttrs a
trAttrsLifted :: Dynamic t (Visible a) -> Dynamic t (Map Text Text)
trAttrsLifted d = do
Visible isVisible a <- d
attrs <- trAttrs a
return (if isVisible then attrs else M.insertWith T.append "style" "display:none;" attrs)
size :: Dynamic t Int size :: Dynamic t Int
size = coerceDynamic (foldMap (\x -> coerceDynamic (sizableSize (E.oneColonnadeHead x)) :: Dynamic t (Sum Int)) (E.getColonnade col)) size = coerceDynamic (foldMap (\x -> coerceDynamic (sizableSize (E.oneColonnadeHead x)) :: Dynamic t (Sum Int)) (E.getColonnade col))
elDynAttr "table" tableAttrs $ case arrange of elDynAttr "table" tableAttrs $ case arrange of
@ -716,14 +721,14 @@ tableBodyExpandable :: forall t m c b a h. (DomBuilder t m, MonadHold t m, PostB
=> Dynamic t Int -- ^ number of visible columns in the table => Dynamic t Int -- ^ number of visible columns in the table
-> (Dynamic t a -> m ()) -> (Dynamic t a -> m ())
-> Dynamic t (M.Map T.Text T.Text) -> Dynamic t (M.Map T.Text T.Text)
-> (a -> Dynamic t (M.Map T.Text T.Text)) -> (Dynamic t a -> Dynamic t (M.Map T.Text T.Text))
-> Colonnade h (Dynamic t a) (c (Dynamic t Bool)) -> Colonnade h (Dynamic t a) (c (Dynamic t Bool))
-> Vector (Dynamic t a) -> Vector (Dynamic t a)
-> a -- ^ initial value, a hack -> a -- ^ initial value, a hack
-> m () -> m ()
tableBodyExpandable colCount renderExpansion bodyAttrs trAttrs col collection a0 = tableBodyExpandable colCount renderExpansion bodyAttrs trAttrs col collection a0 =
elDynAttr "tbody" bodyAttrs $ mapM_ (\a -> do elDynAttr "tbody" bodyAttrs $ mapM_ (\a -> do
let attrs = trAttrs =<< a let attrs = trAttrs a
expanded <- elDynAttr "tr" attrs (rowSizableReified (return False) (zipDynWith (||)) col a) expanded <- elDynAttr "tr" attrs (rowSizableReified (return False) (zipDynWith (||)) col a)
visibleVal <- gateDynamic expanded a0 a visibleVal <- gateDynamic expanded a0 a
elDynAttr "tr" attrs $ do elDynAttr "tr" attrs $ do