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

allow a table footer to be passed to cappedResizable

Browse Source
This commit is contained in:
Andrew Martin 2017-09-17 08:55:59 -04:00
parent f62d10b75c
commit 3f4d0fb5cd
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -238,20 +238,24 @@ capped tableAttrs headAttrs bodyAttrs trAttrs fascia cornice collection =
b <- body bodyAttrs trAttrs (E.discard cornice) collection b <- body bodyAttrs trAttrs (E.discard cornice) collection
return (h `mappend` b) return (h `mappend` b)
-- | This is useful when you want to be able to toggle the visibility
-- of columns after the table has been built.
cappedResizable :: cappedResizable ::
(DomBuilder t m, PostBuild t m, MonadHold t m, Foldable f, Monoid e) (DomBuilder t m, PostBuild t m, MonadHold t m, Foldable f, Monoid e)
=> Map Text Text -- ^ @\<table\>@ tag attributes => Map Text Text -- ^ @\<table\>@ tag attributes
-> Map Text Text -- ^ @\<thead\>@ tag attributes -> Map Text Text -- ^ @\<thead\>@ tag attributes
-> Map Text Text -- ^ @\<tbody\>@ tag attributes -> Map Text Text -- ^ @\<tbody\>@ tag attributes
-> m () -- ^ Content beneath @\<tbody\>@. Should either be empty or a @\<tfoot\>@.
-> (a -> Map Text Text) -- ^ @\<tr\>@ tag attributes -> (a -> Map Text Text) -- ^ @\<tr\>@ tag attributes
-> Fascia p (Map Text Text) -- ^ Attributes for @\<tr\>@ elements in the @\<thead\>@ -> Fascia p (Map Text Text) -- ^ Attributes for @\<tr\>@ elements in the @\<thead\>@
-> Cornice (Resizable t Headed) p a (Cell t m e) -- ^ Data encoding strategy -> Cornice (Resizable t Headed) p a (Cell t m e) -- ^ Data encoding strategy
-> f a -- ^ Collection of data -> f a -- ^ Collection of data
-> m e -> m e
cappedResizable tableAttrs headAttrs bodyAttrs trAttrs fascia cornice collection = do cappedResizable tableAttrs headAttrs bodyAttrs beneathBody trAttrs fascia cornice collection = do
elAttr "table" tableAttrs $ do elAttr "table" tableAttrs $ do
h <- encodeCorniceResizableHead headAttrs fascia (dynamicAnnotate cornice) h <- encodeCorniceResizableHead headAttrs fascia (dynamicAnnotate cornice)
b <- bodyResizable bodyAttrs trAttrs (E.discard cornice) collection b <- bodyResizable bodyAttrs trAttrs (E.discard cornice) collection
beneathBody
return (h `mappend` b) return (h `mappend` b)
dynamicAnnotate :: Reflex t dynamicAnnotate :: Reflex t