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

make cappedResizable provide the dynamic colspan

Browse Source
This commit is contained in:
Andrew Martin 2017-09-17 10:54:39 -04:00
parent 3f4d0fb5cd
commit 3529a72950
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

@ -239,7 +239,11 @@ capped tableAttrs headAttrs bodyAttrs trAttrs fascia cornice collection =
return (h `mappend` b) return (h `mappend` b)
-- | This is useful when you want to be able to toggle the visibility -- | This is useful when you want to be able to toggle the visibility
-- of columns after the table has been built. -- of columns after the table has been built. In additon to the
-- usual monoidal result, the return value also includes a 'Dynamic'
-- that gives the current number of visible columns. This is seldom
-- useful, but it can be helpful if the table footer needs to be
-- given a @colspan@ that matches the number of visible columns.
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
@ -250,13 +254,14 @@ cappedResizable ::
-> 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, Dynamic t Int)
cappedResizable tableAttrs headAttrs bodyAttrs beneathBody 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) let annCornice = dynamicAnnotate cornice
h <- encodeCorniceResizableHead headAttrs fascia annCornice
b <- bodyResizable bodyAttrs trAttrs (E.discard cornice) collection b <- bodyResizable bodyAttrs trAttrs (E.discard cornice) collection
beneathBody beneathBody
return (h `mappend` b) return (h `mappend` b, E.size annCornice)
dynamicAnnotate :: Reflex t dynamicAnnotate :: Reflex t
=> Cornice (Resizable t Headed) p a c => Cornice (Resizable t Headed) p a c