MFlow-0.3.1.0: Demos/Grid.hs

module Grid ( grid) where

import MFlow.Wai.Blaze.Html.All
import Data.String
import Text.Blaze.Html5.Attributes as At hiding (step)

attr= fromString

grid = do
  r <- ask $   addLink
           ++> wEditList table  row ["",""] "wEditListAdd"
           <** submitButton "submit"
           
  ask $   p << (show r ++ " returned")
      ++> wlink () (p <<  " back to menu")
      
  where
  row _= tr <<< ( (,) <$> tdborder <<< getInt (Just 0)
                          <*> tdborder <<< getTextBox (Just "")
                          <++ tdborder << delLink)
                          
  addLink= a ! href (attr "#")
             ! At.id (attr "wEditListAdd")
             <<  "add"
             
  delLink= a ! href (attr "#")
             ! onclick (attr "this.parentNode.parentNode.parentNode.removeChild(this.parentNode.parentNode)")
             <<  "delete"
             
  tdborder= td ! At.style  (attr "border: solid 1px")

-- to run it alone:
--main= runNavigation "" $ transientNav grid