MFlow-0.3.1.0: Demos/AjaxSample.hs

module AjaxSample ( ajaxsample) where
import MFlow.Wai.Blaze.Html.All
import Data.Monoid
import Data.ByteString.Lazy.Char8 as B
ajaxsample= do
   r <- ask $   p << b <<  "Ajax example that increment the value in a box"
            ++> do
                 let elemval= "document.getElementById('text1').value"
                 ajaxc <- ajax $ \n -> return . B.pack $ elemval <> "='" <> show(read  n +1) <>  "'"
                 b <<  "click the box "
                   ++> getInt (Just 0) <! [("id","text1"),("onclick", ajaxc  elemval)] <** submitButton "submit"
   ask $ p << ( show r ++ " returned")  ++> wlink ()  << p <<  " menu"


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