[Added missing widgets.
prb@mult.ifario.us**20080103221052] {
addfile ./perpubplat/src/Blog/Widgets/DeliciousBadge.hs
hunk ./perpubplat/src/Blog/Widgets/DeliciousBadge.hs 1
-
+module Blog.Widgets.DeliciousBadge ( delicious_badge ) where
+
+import Text.XHtml.Strict ( Html, script, (!), (<<), (+++), stringToHtml,
+                           concatHtml, thetype, src, noHtml )
+
+delicious_badge :: Html
+delicious_badge = concatHtml [ script ! [ thetype "text/javascript" ] << delicious_js
+                             , script ! [ src "http://images.del.icio.us/static/js/blogbadge.js" ] << noHtml ]
+
+delicious_js :: Html
+delicious_js = stringToHtml $ "if (typeof window.Delicious == \"undefined\") window.Delicious = {};\n"
+               ++ "Delicious.BLOGBADGE_DEFAULT_CLASS = 'delicious-blogbadge-line';"
addfile ./perpubplat/src/Blog/Widgets/DeliciousSidebarBadge.hs
hunk ./perpubplat/src/Blog/Widgets/DeliciousSidebarBadge.hs 1
+module Blog.Widgets.DeliciousSidebarBadge ( delicious_sidebar_badge ) where
+
+import Text.XHtml.Strict ( Html, script, (!), (<<), (+++), stringToHtml,
+                           concatHtml, thetype, src, noHtml )
+
+delicious_sidebar_badge :: Html
+delicious_sidebar_badge = script ! [ src "http://images.del.icio.us/static/js/blogbadge.js" ] << noHtml
+
addfile ./perpubplat/src/Blog/Widgets/RedditBadge.hs
hunk ./perpubplat/src/Blog/Widgets/RedditBadge.hs 1
-
+module Blog.Widgets.RedditBadge ( reddit_badge ) where
+
+import qualified Blog.Model.Entry as B
+import Text.XHtml.Strict ( Html, script, (!), (<<), stringToHtml, (+++), thetype, src, noHtml )
+
+reddit_badge :: String -> String -> Html
+reddit_badge u t = ( script (stringToHtml $ concat ["reddit_url='",u,"'"] ) )
+                  +++ (script (stringToHtml $ concat ["reddit_title='",t,"'"]) )
+                  +++ ( script ! [ thetype "text/javascript", 
+                                   src "http://reddit.com/button.js?t=1" ]
+                        << noHtml)
}