MFlow-0.3.2.0: Demos/ListEdit.hs

{-# LANGUAGE OverloadedStrings #-}
module ListEdit ( wlistEd) where

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



wlistEd= do
   r <-  askm   $   addLink
              ++> br
              ++> (wEditList El.div getString1   ["hi", "how are you"] "wEditListAdd")
              <++ br
              <** submitButton "send"

   askm  $   p << (show r ++ " returned")
       ++> wlink () (p " back to menu")


   where
   addLink = a ! At.id  "wEditListAdd"
               ! href  "#"
               $ b "add"
   delBox  =  input ! type_    "checkbox"
                    ! checked  ""
                    ! onclick  "this.parentNode.parentNode.removeChild(this.parentNode)"
   getString1 mx= El.div  <<< delBox ++> getString  mx <++ br

-- to run it alone, change askm by ask and uncomment this:
--main= runNavigation "" $ transientNav wListEd