haskell/colonnade
1
0
Fork 1
mirror of https://github.com/byteverse/colonnade.git synced 2026-04-24 17:07:52 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

correct logic for hiding pagination

Browse Source
This commit is contained in:
Andrew Martin 2017-09-25 11:02:59 -04:00
parent 16457188fe
commit 6300c03a5f
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -600,6 +600,10 @@ paginated (Bureau tableAttrs theadAttrs bodyAttrs trAttrs) (Pagination pageSize
return (maybe (Visible False aDef) (Visible True) (v V.!? (p * pageSize + ix))) return (maybe (Visible False aDef) (Visible True) (v V.!? (p * pageSize + ix)))
totalPages :: Dynamic t Int totalPages :: Dynamic t Int
totalPages = fmap ((`div` pageSize) . V.length) vecD totalPages = fmap ((`div` pageSize) . V.length) vecD
hideWhenUnipage :: Dynamic t (Map Text Text) -> Dynamic t (Map Text Text)
hideWhenUnipage = zipDynWith
( \ct attrs -> if ct > 1 then attrs else M.insert "style" "display:none;" attrs
) totalPages
trAttrsLifted :: Dynamic t (Visible a) -> Dynamic t (Map Text Text) trAttrsLifted :: Dynamic t (Visible a) -> Dynamic t (Map Text Text)
trAttrsLifted d = do trAttrsLifted d = do
Visible isVisible a <- d Visible isVisible a <- d
@ -609,13 +613,10 @@ paginated (Bureau tableAttrs theadAttrs bodyAttrs trAttrs) (Pagination pageSize
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
ArrangementFooter tfootAttrs tfootTrAttrs tfootThAttrs -> mdo ArrangementFooter tfootAttrs tfootTrAttrs tfootThAttrs -> mdo
let tfootAttrsExtra = zipDynWith
( \sz attrs -> if sz > 0 then attrs else M.insert "style" "display:none;" attrs
) size tfootAttrs
tableHeader theadAttrs colLifted tableHeader theadAttrs colLifted
let vals = makeVals page let vals = makeVals page
tableBody bodyAttrs trAttrsLifted colLifted vals tableBody bodyAttrs trAttrsLifted colLifted vals
page <- elDynAttr "tfoot" tfootAttrsExtra $ do page <- elDynAttr "tfoot" (hideWhenUnipage tfootAttrs) $ do
elDynAttr "tr" tfootTrAttrs $ do elDynAttr "tr" tfootTrAttrs $ do
let attrs = zipDynWith insertSizeAttr size tfootThAttrs let attrs = zipDynWith insertSizeAttr size tfootThAttrs
elDynAttr "th" attrs $ do elDynAttr "th" attrs $ do