[removed cruft
Jeremy Shaw <jeremy@seereason.com>**20091105234911
 Ignore-this: d7087d5cea687382ff2bbc0afe376c8e
] hunk ./Web.hs 268
-{-
-web facebookConfig W_Homepage =
-    msum [ do methodM GET
-              withFacebookConnect facebookConfig $ msum
-                 [ do createURL <- showURL W_CreateArgument
-                      fbml $ appTemplate "Homepage" () 
-                            <div>
-                              <p>Seereason.com: Yo mama so reasonable...</p>
-       p                       <p><a href=createURL>Build Your Argument</a></p>
-                              <fb:fan connections="10" stream="1" profile_id="154778898070" />
-                            </div>
-                 ]
-         ]
-web facebookConfig here@W_CreateArgument = 
-   withFacebookConnect facebookConfig $ requireSession here $ editArgumentPage here Nothing
-web facebookConfig here@(W_EditProposition revision) =
-   withFacebookConnect facebookConfig $ requireSession here $ msum
-      [ do eProp <- invoke (PropositionByRev revision)
-           case eProp of
-             (Left db_error) ->
-                 fbml $ appTemplate "Invalid Proposition" ()
-                          <div>
-                           <h1>Error Retrieving Proposition Revision <% show revision %></h1>
-                           <p><% show db_error %></p>
-                          </div>
-             (Right proposition) -> editArgumentPage here (Just proposition)
-      ]
-
-
-editArgumentPage ::
-    ( Functor m
-    , MonadPlus m
-    , MonadIO m
-    , XMLGenerator m
-    , EmbedAsChild m ()
-    , EmbedAsChild m XML
-    , EmbedAsAttr m (Attr (String, String) String)
-    , ServerMonad m
-    , FilterMonad Response m
-    , WebMonad Response m
-    , ShowURL m
-    , HasFacebookConfig m
-    , HasUser m
-    , URL m ~ WebURL
-    , HSX.XML m ~ XML
-    )
-    => WebURL -> Maybe Proposition -> m Response
-editArgumentPage here {-@W_CreateArgument-} mProposition =
-    msum $
-      [ do hereURL <- showURL here
-           let expr = maybe (A (Private "unspecified") Empty) expression mProposition
-           fbml $ appTemplate "Build Your Argument" ()
-                          <div>
-                           <h1>Build Your Argument</h1>
-                           <p><% formletPart "create" hereURL handleSuccess handleFailure' $ 
-                                     (plug (\markup -> toXML (markupXForm [] markup)) (formlet [] expr)) %></p>
-                          </div>
-      ]
-    where
-      handleSuccess expr =
-          case mProposition of
-            Nothing ->
-              do user <- askUser
-                 eProposition <- invoke (CreateProposition (FB_User user) expr)
-                 case eProposition of
-                   (Left e) -> appTemplate "Error creating Proposition" () <p><% show e %></p>
-                   (Right proposition) ->
-                       do editURL <- showURL (W_EditProposition (revision $ getRevisionInfo proposition))
-                          seeOtherXML editURL
-            (Just oldProposition) ->
-              do user <- askUser
-                 eProposition <- invoke (UpdateProposition (FB_User user) (revision (getRevisionInfo oldProposition)) (oldProposition {expression = expr}))
-                 case eProposition of
-                   (Left e) -> appTemplate "Error Updating Proposition" () <p><% show e %></p>
-                   (Right proposition) ->
-                       do editURL <- showURL (W_EditProposition (revision $ getRevisionInfo proposition))
-                          seeOtherXML editURL
-      handleFailure' errs frmXML = handleFailure (\t b -> appTemplate t () b) errs frmXML
-
-requireSession ::
-    ( HasFacebookConfig (FacebookT (s d) m)
-    , HasFacebookData d (FacebookT (s d) m)
-    , HasFacebookData FacebookConnectData (FacebookT (s d) m)
-    , HasFacebookData FacebookConnectData (FacebookT (FacebookStateU d) m)
-    , MonadPlus m
-    , WebMonad Response m
-    , FilterMonad Response m
-    ) 
-    => WebURL 
-    -> FacebookT (FacebookStateS d) m a 
-    -> FacebookT (s d) m a
-requireSession continueTo m =
-    msum [ withSessionSP m
-         , Happstack.escape $ fbml $ appTemplate "Login Required." () 
-                               <div>
-                                <p>To enjoy this awesome site you must first Connect with Facebook Connect.</p>
-                                <fb:login-button></fb:login-button>
-                               </div>
-         ]
-      
-seeOtherXML ::
-    ( HSX.XML m ~ XML
-    , Functor m
-    , XMLGenerator m
-    , FilterMonad Response m
-    ) 
-    => String -> XMLGenT m FbXML
-seeOtherXML loc = XMLGenT $ fmap FbXML $ unXMLGenT (seeOther loc =<< (<a href=loc><%  loc %></a>))
-
-fbml :: 
-    ( Functor m
-    , FilterMonad Response m
-    , XMLGenerator m
-    ) 
-    => XMLGenT m FbXML
-    -> m Response
-fbml xml = toResponse <$> (unXMLGenT xml)
-
--- http://wiki.developers.facebook.com/index.php/Connect/Setting_Up_Your_Site
-appTemplate :: 
-    ( Functor m
-    , HasFacebookConfig m
-    , XMLGenerator m
-    , EmbedAsChild m headers
-    , EmbedAsChild m body
-    , EmbedAsAttr m (Attr (String, String) String)
-    , (HSX.XML m) ~ XML
-    ) 
-    => String -- ^ title 
-    -> headers  -- ^ extra tags to include in \<head\>
-    -> body    -- ^ contents to put inside \<body\> 
-    -> XMLGenT m FbXML
-appTemplate title headers body = do 
-   c <- askFacebookConfig
-   XMLGenT $ (fmap FbXML) $ unXMLGenT $
-    (<html xmlns="http://www.w3.org/1999/xhtml" xmlns:fb="http://www.facebook.com/2008/fbml">
-     <head>
-       <% headers %>
-       <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
-       <script src="/jquery/jquery.js" type="text/javascript"></script>
-       <script type="text/javascript">function visibility(f, c) {if (f) {$(c).show("slow")} else {$(c).hide("slow")}}</script>
-       <title><% title %></title>
-     </head>
-     <body>
-      <% fbFeatureLoader %> -- enables XFBML, Facebook Javascript calls, etc
-      <% body %>
-      <% fbInit' =<< (apiKey <$> askFacebookConfig) %> -- script which causes XFBML to be rendered
-      <% analytics seereasonUACCT %>
-     </body>
-    </html>)
-
-fbInit' :: (XMLGenerator m, HasFacebookConfig m) => ApiKey -> XMLGenT m (HSX.XML m)
-fbInit' (ApiKey apiKey)= 
-    do config <- askFacebookConfig
-       let path = (uriPath (connectURL config)) </> "xd_receiver.htm" 
-       <script type="text/javascript">
-          FB.init("<% apiKey %>", "<% path %>" , {"reloadIfSessionStateChanged": true});
-       </script>
--}
-