module Happstack.Facebook where
import HSP
import qualified HSX.XMLGenerator as HSX
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) norepeat 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>