{-# OPTIONS_GHC -F -pgmFtrhsx #-}
module Happstack.Facebook where

import HSP
import qualified HSX.XMLGenerator as HSX

-- |create a share on facebook link
-- for best results see this page:
--  <http://www.facebook.com/share_partners.php>
shareOnFacebook :: (XMLGenerator m) => XMLGenT m (HSX.XML m)
shareOnFacebook =
    <div class="share-on-facebook">
     <script>function fbs_click() {u=location.href;t=document.title;window.open('http://www.facebook.com/sharer.php?u='+encodeURIComponent(u)+'&t='+encodeURIComponent(t),'sharer','toolbar=0,status=0,width=626,height=436');return false;}</script>
     <style> html .fb_share_link { padding:2px 0 0 20px; height:16px; background:url(http://static.ak.fbcdn.net/images/share/facebook_share_icon.gif?8:26981) no-repeat top left; }</style>
     <a href="http://www.facebook.com/share.php?u=<url>" onclick="return fbs_click()" target="_blank" class="fb_share_link">Share on Facebook</a>
    </div>